' primitives Script zum Netzwerkscannen der Netzgeschwindigkeit/ richard@borwinius

DIM i,strIP

' in der folgenden Zeile ist die zu scannende Basis einzutragen
strBASIS = "192.168.10."

On Error Resume Next

FOR  i = 1 TO 254

strIP = strBASIS & i

Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Exec("ping -n 1 -w 20 " & strIP)
  strPingResults = LCase(objExec.StdOut.ReadAll)

If InStr(strPingResults, "antwort") Then
    WScript.Echo strIP & " lebt noch."
Else
    WScript.Echo strIP & " antwortet nicht auf ping."
END IF

NEXT