' Nino Nacarlo 12 Sept 2007
' ********************************
' This script will take a list of computers from a text file and run a command against each one. 
' (One computername on each line)
' Great way to deploy some out of hours. If you've got a large MSI you can use this to install it 
' on all the PCs left on over night then link the
' Group to the Group Policy to capture the ones left off the next time then turn the PC on
' Also great to make changes during the day to PCs that are switched ou
' *************************************
' To the run the command to the following scrip: cscript.exe \\locationToFile\Push.vbs 
' \\LocationOfTextFile.txt \\LocationOfBatchFile\MSIFile.bat \\LocationofPsexec.exe

' e.g. cscript.exe \\server\share$\Push.vbs \\server\share$\Pclist.txt \\server\share\psexec.exe

' If you take the ' before the wscript.echo on line 32 and 42 and add >> c:\results.txt to the end 
' on the command it will make a result log file

' e.g. cscript.exe \\server\share$\Push.vbs \\server\share$\Pclist.txt \\server\share\psexec.exe >> c:\results.txt
 
Const ForReading = 1
Wscript.echo " "
Wscript.echo " "
wscript.echo Wscript.Arguments(0)
wscript.echo Wscript.Arguments(1)
wscript.echo Wscript.Arguments(2)
Wscript.echo " "
Wscript.echo " "
Wscript.echo " "
'Opens the list of PCs to run the command on
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Wscript.Arguments(0), ForReading)
 
'Loop though the list, Checks to see it the PC is reachable by the ping function, 
'then runs the command

Do Until objTextFile.AtEndOfStream
    strComputerTXT = objTextFile.ReadLine
    
If Reachable(strComputerTXT) Then
'WScript.Echo strComputerTXT & ", is Reachable! "
 
strArgument = Wscript.Arguments(2) & " \\" & strComputerTXT & " -u username -p password " & _
    chr(34) & Wscript.Arguments(1)  chr(34)
 
Set objShell = CreateObject("WScript.Shell")
objShell.Run strArgument
Wscript.Sleep 1000
Else
'WScript.Echo strComputerTXT & ", is Unreachable!"
End If
Loop

objTextFile.Close

Function Reachable(strComputer)
'     On Error Resume Next
 
 Dim objShell, objExec, strCmd, strTemp
 
 strCmd = "ping -n 1 " & strComputer
 
 Set objShell = CreateObject("WScript.Shell")
 Set objExec = objShell.Exec(strCmd)

 strTemp = UCase(objExec.StdOut.ReadAll)
 
 If InStr(strTemp, "REPLY FROM") Then
    Reachable = True 
 Else
    Reachable = False
 End If
End Function