'*** v9.3 *** www.dieseyer.de ****************************** 

' 

' Datei:  wmi-ping.vbs 

' Autor:  dieseyer@gmx.de  

' Auf:    www.dieseyer.de 

' 

' Gibt 'kurzfristig' zurück, ob ein PC erreichbar ist. 

' 

'*********************************************************** 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim Tst, ZielPC 

ZielPC = "129.0.0.1" 

ZielPC = "127.0.0.1" 

 

Tst = Timer 

 

' If     WMIpingOK( ZielPC ) = False Then  

  If not WMIpingOK( ZielPC )         Then  

    MsgBox ZielPC & vbCRLF & vbCRLF & "ist momentan nicht erreichbar!"& vbCRLF & vbCRLF & "Später noch einmal versuchen.", , Timer - Tst & " - " & WScript.ScriptName 

    WScript.Quit 

  End If 

 

  MsgBox ZielPC & vbCRLF & vbCRLF & "ist jetzt erreichbar!", , Timer - Tst & " - " & WScript.ScriptName 

 

  WScript.Quit 

 

 

'*** v9.3 *** www.dieseyer.de ****************************** 

Function WMIpingOK( PCName ) 

'*********************************************************** 

' Aufruf z.B.: If not WMIpingOK( ZielPC ) Then MsgBox ZielPC & " ist nicht erreichbar." : WScript.Quit 

  Dim Tst, objPing, objStatus 

  On Error Resume Next 

  err.Clear 

  Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & PCName & "'") 

  Tst = err.Number & " - " & err.Description 

  On Error Goto 0 

  If Len( Tst ) > 4 Then : WMIpingOK = "Fehler: " & Tst : Exit Function 

 

  WMIpingOK = True 

  For Each objStatus in objPing 

	If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 

'	  WScript.Echo("PCName " & PCName & " is not reachable") 

	  WMIpingOK = False 

	End If 

  Next 

  Set objPing = Nothing 

End Function ' WMIpingOK( PCName )