คลิกเข้าบล็อก PSsix
บ้าน
สมัครสมาชิก(Register)
เข้าสู่ระบบ(Log in)
ตามหัวข้อเลยครับจะเอาไปศึกษาจะเอาไปใช้กับกระทู้@userดูในhelpมันไม่ละเอียด
2 posters
ช่วยอธิบายเกี่ยวกับคำสั่งiniwrite
Monaliza- PSsix Member Super Class III
จำนวนข้อความ : 213
ความนิยม : 7
เข้าร่วมเมื่อ : 03/10/2010
Monaliza- PSsix Member Super Class III
จำนวนข้อความ : 213
ความนิยม : 7
เข้าร่วมเมื่อ : 03/10/2010
DirCreate("c:\555")
Global $ary[1] = ["User"]
$NW = ObjCreate("Wscript.Network")
$namecom = $NW.ComputerName
$Acc = ObjGet("WinNT://" & $namecom & "")
$Acc.Filter = $ary
For $objUser In $Acc
$file=Fileopen("c:\555\user.txt", 2)
$text1=$objUser.Name
FileWrite($file,$text1)
FileClose($file)
Next
Global $ary[1] = ["User"]
$NW = ObjCreate("Wscript.Network")
$namecom = $NW.ComputerName
$Acc = ObjGet("WinNT://" & $namecom & "")
$Acc.Filter = $ary
For $objUser In $Acc
$file=Fileopen("c:\555\user.txt", 2)
$text1=$objUser.Name
FileWrite($file,$text1)
FileClose($file)
Next
Monaliza- PSsix Member Super Class III
จำนวนข้อความ : 213
ความนิยม : 7
เข้าร่วมเมื่อ : 03/10/2010
ทำได้แล้วครับเขียนลงไฟล์.txtที่c:\555\user.txt
แต่ไม่รูทำไมเขียนลงไปแค่userสุดท้ายเท่านั้นเช่นเครื่องผมมีuserอยู่5user
1aaa
2bbb
3ccc
4ddd
5eee
แต่พอทำเป็น.exeแล้วกดรันในc:\555\user.txt
มีแค่ user "eee" เท่านั้น งง
แต่ไม่รูทำไมเขียนลงไปแค่userสุดท้ายเท่านั้นเช่นเครื่องผมมีuserอยู่5user
1aaa
2bbb
3ccc
4ddd
5eee
แต่พอทำเป็น.exeแล้วกดรันในc:\555\user.txt
มีแค่ user "eee" เท่านั้น งง
aut- PSsix Powerful Scripting Class
จำนวนข้อความ : 472
ความนิยม : 126
เข้าร่วมเมื่อ : 24/07/2010
ลองแบบนี้คับ
:cheers:
DirCreate("c:\555")
Global $ary[1] = ["User"]
$NW = ObjCreate("Wscript.Network")
$namecom = $NW.ComputerName
$Acc = ObjGet("WinNT://" & $namecom & "")
$Acc.Filter = $ary
$file=Fileopen("c:\555\user.txt", 1)
For $objUser In $Acc
FileWrite($file,"user = " & $objUser.Name &@CRLF )
Next
FileClose($file)
:cheers:
Monaliza- PSsix Member Super Class III
จำนวนข้อความ : 213
ความนิยม : 7
เข้าร่วมเมื่อ : 03/10/2010
กระจ่างแล้วครับรู้แล้วเพราะอะไร
ผมดันไป ปิดfileก่อน "FileClose($file)"
ก่อนที่คำสั่ง Forxxxxxxจะทำงานเสร็จ
งง ตั้งนาน ขอบคุณนะครับ
เดวเอาไปทำให้ user.txtโผล่มาที่หน้าจอเปิดแสดงผลเลยหลังจากกดรันก่อน
ผมดันไป ปิดfileก่อน "FileClose($file)"
ก่อนที่คำสั่ง Forxxxxxxจะทำงานเสร็จ
งง ตั้งนาน ขอบคุณนะครับ
เดวเอาไปทำให้ user.txtโผล่มาที่หน้าจอเปิดแสดงผลเลยหลังจากกดรันก่อน
Monaliza- PSsix Member Super Class III
จำนวนข้อความ : 213
ความนิยม : 7
เข้าร่วมเมื่อ : 03/10/2010
[b]DirCreate("C:\555")
If FileExists("c:\555\user.txt") Then
FileDelete("c:\555\user.txt")
EndIf
Global $ary[1] = ["User"]
$NW = ObjCreate("Wscript.Network")
$namecom = $NW.ComputerName
$Acc = ObjGet("WinNT://" & $namecom & "")
$Acc.Filter = $ary
$file=Fileopen("C:\555\user.txt", 1)
For $objUser In $Acc
FileWrite($file,"user = " & $objUser.Name &@CRLF )
Next
FileClose($file)
run("notepad.exe C:\555\user.txt")
เสร็จสมบูรณ์แล้วครับเอาไปทำเป็น.exeได้เลยตรวจสอบuserทั้งหมดที่อยู่ในเครื่อง
ต้องขอบคุณ
คุณ POS
คุณ AUT
If FileExists("c:\555\user.txt") Then
FileDelete("c:\555\user.txt")
EndIf
Global $ary[1] = ["User"]
$NW = ObjCreate("Wscript.Network")
$namecom = $NW.ComputerName
$Acc = ObjGet("WinNT://" & $namecom & "")
$Acc.Filter = $ary
$file=Fileopen("C:\555\user.txt", 1)
For $objUser In $Acc
FileWrite($file,"user = " & $objUser.Name &@CRLF )
Next
FileClose($file)
run("notepad.exe C:\555\user.txt")
เสร็จสมบูรณ์แล้วครับเอาไปทำเป็น.exeได้เลยตรวจสอบuserทั้งหมดที่อยู่ในเครื่อง
ต้องขอบคุณ
คุณ POS
คุณ AUT
|
|
|