Host pingen mit VBScript via WMI
Heute musste ich in einem VBScript einen Host pingen können. Zuerst habe ich lange versucht, mit cmd den Host zu pingen und um dann den zurückgegebenen Text zu filtern. Es gibt viel einfacher, schneller, bequemer und es geht kein cmd Fenster auf. Die Lösung ist WMI. So sieht die Funktion aus:
Function Reachable(host)
Dim wmiQuery, objWMIService, objPing, objStatus
wmiQuery = "Select * From Win32_PingStatus Where Address = '" & host & "'"
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
Gefunden habe ich den Codesnippet hier: visualbasicscript.com
Dein Kommentar
Want to join the discussion?Feel free to contribute!