Script Examples vbscript autoit php batch

vbscript um mehrere IP-Adressen bzw ein Subnet zu pingen

(0)
Artikel
bewerten
(2)

Beispiel um mit Hilfe von vbScript ein Klasse C Subnet (255.255.255.0) zu pingen

um zu sehen welche Rechner in einem Subnet antworten, setzt dieses Beispielscript einen ping auf alle Adressen ab und liefert das Ergebnis zurück.
Aufrufen über cscript pingsubnet.vbs (Sonst wird bei jedem erfolgreichen Pingversuch ein Fenster geöffnet)

Hier der Inhalt der pingsubnet.vbs:
Code:
On Error Resume Next
Netz = InputBox ("Bitte Netz eingeben z.B. 192.168.0",,"x.x.x")

for j=1 to 254
strTarget=Netz & "." & j
  Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Exec("ping -n 1 -w 1000 " & strTarget)
  strPingResults = LCase(objExec.StdOut.ReadAll)
  If InStr(strPingResults, "von") Then
    WScript.Echo strTarget & " antwortet."
  Else
'   WScript.Echo VbCrLf & strTarget & " did not respond to ping."
  End If
Next
<<< vbscript - lesen, schreiben oder updaten einer Access Datei vbscript - Dateien verschieben (Ersatz für Windows move) >>>


neue Themen

Stichwortsuche auf dieser Seite:
03.09.2010 15:58 zZ 12 Leser online
Powered by cms.libe.net 2004-2010