vbscript um mehrere IP Adressen bzw ein Subnet 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 in der Eingabeaufforderung ├╝ber cscript pingsubnet.vbs (Sonst wird bei jedem erfolgreichen Pingversuch ein Fenster ge├Âffnet)

 


Hier der Inhalt der pingsubnet.vbs:
Quellcode:

 

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, "empfangen = 1") Then
    WScript.Echo strTarget & " antwortet."
  Else
'   WScript.Echo VbCrLf & strTarget & " did not respond to ping."
  End If
Next
positive Bewertung({{pro_count}})
Beitrag bewerten:
{{percentage}} % positiv
negative Bewertung({{con_count}})

DANKE f├╝r deine Bewertung!

Aktualisiert: 05.06.2016 von Bernhard ­čöö


Top-Artikel in diesem Bereich


VBScript .vbs Datum und Zeit Funktionen Syntax Referenz
Datum und Zeit Funktionen in vbscript

vbscript string
Strings werden zum Speichern und durch Aufruf von Funktionen zum Manipulieren von Text verwendet. (Ein String ist eine gespeicherte Zeichenfolge)

wie erstelle ich eine vbscript Datei .vbs - Grundlagen
Zum Erstellen der vbscript Datei gen├╝gt ein einfacher Editor. Eine in Windows abgespeicherte Textdatei mit der Eindung .vbs kann direkt ausgef├╝hrt werden.

Fragen / Kommentare


(sortiert nach Bewertung / Datum) [alle Kommentare(neueste zuerst)]

ÔťŹanonym
30.05.2021 13:45
Tag/Monat mit f├╝hrender Null auf zwei (oder mehr) Stellen erweitern:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Oftmals ben├Âtigt man eine "f├╝hrende Null" in Datums (Monat oder Tag).
Die Funktion LZ ' LeadingZero erledigt das:
 Function LZ(val, digits)
  LZ=Right(String(digits,"0") & val, digits) ' wenn nur 1 Stelle breit, wird/werden eine/mehrere 0 davor gesetzt.
End Function
' ├╝ber den Parameter digits, l├Ąsst sich die Anzahl der Gesamtstellen bestimmen: also 3=001 oder 5 = 00001

┬Ě Zum Einsatz kommt das Script z.B., wenn man das aktuelle Datum in einen Zahlenstring verwandeln will:
Tag=LZ(day(date),2)
Monat=LZ(month(date),2)
Jahr=year(date)
Wscript.Echo Jahr & Monat & Tag
' ergibt f├╝r heute z.B. 20210530

* Mit datepart l├Ąsst sich dies auch bewerkstelligen, z.B.
wscript.echo datepart("m",date) ' nur den Monat auslesen
Monat2=datepart("m",date)
Monat2=LZ(Monat2,2)
wscript.echo Monat2

User: Micha

ÔťŹanonym
28.01.2020 10:40
User: J├╝rgen 
SendKey ("^C") kopiert doch nur das Ergebnis in den Zwischenspeicher (entspricht CTRL + C) oder was ist der Effekt?

ÔťŹanonym
10.07.2018 14:21
User: Dennis 
Hallo zusammen, wie setzt man ein SendKey? Wie muss das Script angepasst werden, dammt es sich nicht gleich schlie├čt? Vielen Dank 

ÔťŹanonym
29.04.2015 10:38
User: Manuel 
Und wo w├Ąhre das zu setzen?

ÔťŹanonym
11.04.2015 01:16
User: Joachim 
Das Script ist gut, es wurde aber vergessen ein SendKey ("^C") zu setzen was dann zu leichten Irritationen f├╝hrt.