Need to restart all the Windows computers on the network? This script reads a text file populated with computer names and performs the remote remote restart on them. I use this all the time to forcibly restart computers that are still logged on – but in distant locations on the network – when performing system maintenance and software upgrades outside of office hours.
‘ ***************************************************************
‘ * Script to Restart Network Computers
‘ * based on computers names list in a file.
‘ * This script checks computer’s availability first via WMI ping
‘ * Ceyhun Kirmizitas
‘ ***************************************************************
On Error Resume Next
Dim strComputer
Dim objShell, objExec, strCmd, strTemp
Set fso = CreateObject("Scripting.FileSystemObject")
Set objInputFile = fso.OpenTextFile("Dclist.txt",1,True)
Do While objInputFile.AtEndOfLine <> True
strComputer = objInputFile.ReadLine
WScript.Echo strComputer & " trying to contact with specified host"
If PingComputer2() Then
WScript.Echo strComputer & " contacted with host"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Reboot()
Next
WScript.Echo strComputer & " Now Restarting host"
Else
WScript.Echo strComputer & " could not contacted with specified host. We will try to contact with the next host"
End If
WScript.Echo "——————————————————— "
Loop
‘Function PingComputer()
‘ 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
‘ PingComputer = True
‘ Else
‘ PingComputer = False
‘ End If
‘End Function
‘==========================================================================
‘ The following function will test if a machine is reachable via a ping
‘ using WMI and the Win32_PingStatus Class
‘==========================================================================
Function PingComputer2()
Dim wmiQuery, objWMIService, objPing, objStatus
wmiQuery = "Select * From Win32_PingStatus Where Address = ‘" & strComputer & "’"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
PingComputer2 = False ‘if computer is unreacable, return false
Else
PingComputer2 = True ‘if computer is reachable, return true
End If
Next
End Function