Befehl remote auf mehreren Clients ausführen

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Set fso = CreateObject("Scripting.FileSystemObject")  
Set oCList = fso.OpenTextFile("C:\Scripts\LocalAccounts\clients.txt", 1)  
Set oRList = fso.OpenTextFile("C:\Scripts\LocalAccounts\results.txt", 2, True)  

Clients = Split(oCList.ReadAll, vbCrLF)
oCList.Close

U = UBound(Clients)
Do While Clients(U) = ""  
	U = U - 1
Loop

For i = 0 To U
	strComputer = Clients(i)
	WScript.Echo Right("   " & CStr(i + 1), 3) & "/" & CStr(U + 1) & ": " & strComputer  

	If Ping(strComputer) Then
		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
		Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount WHERE Name LIKE 'Admin%'", "WQL", _  
		wbemFlagReturnImmediately + wbemFlagForwardOnly)

		For Each objItem In colItems
			oRList.WriteLine strComputer & vbTab & objItem.Name
		Next
	Else
		oRList.WriteLine strComputer & vbTab & "### nicht erreichbar ###"  
	End If
Next
oRList.Close

Function Ping(machine)
PingResult = True
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._  
	ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")  
For Each objStatus in objPing
	If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then 
		PingResult = False
	End If
Next
Ping = PingResult
End Function

WHERE Name LIKE 'Admin%'  

Client<TAB>Username

oRList.WriteLine "=========================================="  

Function Ping(machine)
Set objShell = CreateObject("WScript.Shell")  
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & machine)  
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, "antwort von") Then  
	Ping = True
Else
	Ping = False
End If
End Function