BKL517

Hallo und Guten Morgen in die Runde. Da sich meine VBScript - Kenntnisse leider auf einem bescheidenen Stand befinden, bitte ich um Unterstützung bei der Anpassung / Erweiterung dieses Anmeldescripts. Ziel ist es den PC automatisiert, bei nicht erreichen beider „checkPC01 + checkPC02“ Ip-Adressen, herunterzufahren. 1. PC startete automaisch (Bioseinstellung) 2. VBA Startscript wird über Autostart abgerufen 3. es sollte eine kontinuierliche Prüfung auf Erreichbarkeit beider IP’s stattfinden 4. so bald beide IP’s zusammen über einen Zeitraum von x Minuten nicht erreichbar sind, sollte PC herunterfahren Vielen Dank im Voraus Set WSHShell = WScript.CreateObject("WScript.Shell") Dim checkPC01, checkPC02 Dim objResult ' Überprüfungsrechner checkPC01 = "192.xxx.xxx.xxx" 'PC01 checkPC02 = "192.xxx.xxx.xxx" 'PC02 ' Überprüfe ob checkPC01 online ist Do Until Ping_Network(checkPC01) objResult = WSHShell.sendkeys("{NUMLOCK}{NUMLOCK}") WScript.Sleep(60000) ' Eine Minute warten Loop ' checkPC01 ist online WScript.Sleep(60000) ' Warte eine weitere Minute ' Überprüfe ob checkPC02 online ist Do Until Ping_Network(checkPC02) objResult = WSHShell.sendkeys("{NUMLOCK}{NUMLOCK}") WScript.Sleep(60000) ' Eine Minute warten Loop ' checkPC02 ist online WScript.Sleep(60000) ' Eine Minute warten ' Einschlafen verhindern... Do While Ping_Network(checkPC01) '...solange der checkPC01 online ist If Ping_Network(checkPC02)= False Then ' checkPC02 ist offline gegangen Do Until Ping_Network(checkPC02) ' Überprüfe fortwährend ob checkPC02 online ist objResult = WSHShell.sendkeys("{NUMLOCK}{NUMLOCK}") ' Aktion ausführen WScript.Sleep(60000) ' Eine Minute warten Loop ' checkPC02 ist online WScript.Sleep(60000) ' Eine Minute warten, bis alle Dienste geladen sind Else objResult = WSHShell.sendkeys("{NUMLOCK}{NUMLOCK}") ' Aktion ausführen End If Wscript.Sleep(300000) ' Fünf Minuten warten Loop ' checkPC01 ist nicht mehr online => PC herunterfahren Dim strShutdown ' -s = shutdown, -t 10 = 10 Sekunden, -f = Proramm beenden erzwungen strShutdown = "shutdown.exe -s -t 10 -f" WSHShell.Run strShutdown, 0, false Function Ping_Network(sHost) Dim oPing, oRetStatus Set oPing = GetObject("winmgmts:").ExecQuery ("select * from Win32_PingStatus where address = '" & sHost & "'") For Each oRetStatus In oPing If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then Ping_Network= False Else Ping_Network= True End If Next Set oPing = Nothing End Function