Hallo ich möchte gern eine Liste von Hostnames anpingen und wenn einer nicht erreichbar ist ne meldung bekommen perfekt wäre über das exchange konto kann das aber auch per blat realisieren somit ist das mit der meldung als msgbox auch ok. das baue ich mir dann schon passend.
bisher hab ich es wie folg gelößt, nur leider kann ich da nur einen hostname anpingen:
Set MyShell = CreateObject(„WScript.Shell“)
Set MyFiles = CreateObject(„Scripting.FileSystemObject“)
IP = „175.23.1.1“
Proggi = „%comspec% /c ping.exe -n 1 -a“ & " " & IP & " " & „>c:\batch\lan\temp.txt“
Return = MyShell.Run(Proggi,0,True)
Set TempFile =MyFiles.OpenTextFile(„c:\batch\lan\temp.txt“)
Abfrage = Tempfile.Readall
If instr(Abfrage, „ytes=“) > 0 Then
Ausgabe = MsgBox(„Ping an " + IP + " erfolgreich!“, 1)
Else
Ausgabe = MsgBox(„Host " + IP + " nicht erreichbar“, 1)
End if
tempfile.close