CODE: [Copy to clipboard]
Option Explicit
Dim strFile
Dim objFSO, objTS, strComputer
Dim strnewPass
strnewPass = InputBox ("Enter your password plz.",,"P@ssW0rd!")
strFile = "C:\computers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFile) Then
Set objTS = objFSO.OpenTextFile(strFile)
Do Until objTS.AtEndOfStream
strComputer = objTS.ReadLine
'do something with strComputer
If TestPing(strComputer) Then
On Error Resume Next
Dim objAdmin
Set objAdmin = GetObject("WinNT:\\" & strComputer & "\Administrator,user")
If Err = 0 Then
objAdmin.SetPassword strnewPass
'objAdmin.SetPassword "P@ssw0rd!"
objAdmin.SetInfo
Else
WScript.Echo strComputer & " skipped: " & _
Err.Description
End If
On Error GoTo 0
End If
Loop
objTS.Close ''这句原代码中的位置在if语句外,这样如果C:\computers.txt不存在就会出错
End If
WScript.Echo "Complete"
Function TestPing(sName)
Dim cPingResults, oPingResult
Verbose " Pinging " & sName
Set cPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery("SELECT * FROM Win32_PinStatus WHERE Address = '" & sName & "'")
For Each oPingResult In cPingResults
If oPingResult.StatusCode = 0 Then
TestPing = True
Else
TestPing = False
End If
Next
End Function