Scanne einen IP-Bereich in einem C-Netz und ermittle ob in diesem Rechner auf „ping“ antworten:
( nur deutsches OS )

scaniprange.vbs

' 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