Toplu iş dosyası:
ping 192.168.1.1
IF ERRORLEVEL 1 SHUTDOWN -R -T 00
Güç kalkanı:
if (!(Test-Connection 192.168.1.1 -quiet)) {Restart-Computer -Force}
VBScript:
If Reachable("192.168.1.1") Then
WScript.Run("shutdown -r -t 00")
End If
Function Reachable(strComputer)
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
Reachable = False 'if computer is unreacable, return false
Else
Reachable = True 'if computer is reachable, return true
End If
Next
End Function
Bunlardan herhangi birinin size uygun bir müdahalede, yani "en yüksek ayrıcalıklarla" çalışacak şekilde planlanmış olması durumunda, olası UAC sorunlarının üstesinden gelebilecek bir görev olarak çalışması planlanabilir.
Bunun sadece yönlendiricinizin bağlantısını kontrol ettiğini unutmayın. IP adresini www.google.com veya benzeri bir adresle değiştirmeye değer olabilir .. cevapları bildiğiniz bir şey yapın (manuel bir ping yapın) ve kesinti süresine karşı hassas olan tehlikeli bir site olmadığından emin olun .. PC'niz hiçbir şey için yeniden başlatılıyor
-Force
anahtarı ekleyinrestart-computer
. Bunu yapmazsanız, bir hizmet durdurursa veya etkin olmayan bir RDP oturumunuz varsa (veya başka çeşitli nedenler varsa), makine yeniden başlatılmaz.-Force
Anahtar bunların hepsi göz ardı ederek onu yeniden yapacak