Batchdatei:
ping 192.168.1.1 IF ERRORLEVEL 1 SHUTDOWN -R -T 00
Power Shell:
if (!(Test-Connection 192.168.1.1 -quiet))
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
Jede dieser Aufgaben kann zeitweise als Aufgabe für einen bestimmten Zeitraum geplant werden - wenn sie mit "höchsten Privilegien" ausgeführt wird, können mögliche UAC-Probleme gelöst werden.
Beachten Sie, dass dies nur die Verbindung zu Ihrem Router prüft. Es lohnt sich vielleicht, die IP durch eine wie zB www.google.com oder ähnliches zu ersetzen. Machen Sie etwas, das Sie wissen, antworten (machen Sie einen manuellen Ping) und stellen Sie sicher, dass es keine zwielichtige Website ist, die anfällig für Ausfallzeiten ist Ihr PC startet umsonst