6
PING auswertung in Wsh bzw VB
Adminstrator mit wenig Kenntnis in VB benötigt Hilfe.
Hallo zusammen,
Ich muss ein VB script erstellen, welches aus einer Liste (die als Datei übergeben wird)
- IP-Adressen ausliest
- diese anpingt
- den Erfolgreichen ping nicht berücksichtigen muss
- den nicht erfolgreichen ping erkennt und
- dann einen Kommando-Zeilen-Befehl ausführt.
Habe das ganze schon mal als Batch realisiert, aber da ich die Fenster nicht unterdrücken kann,
und dieses Script auf allen Clients im Netz (mehr als 400) ablaufen soll, sollte es hlat unter VB laufen.
Ich hoffe das mir jemand Helfen kann und bedanke mich schon mal im voraus.
Gruß Peter
Hallo zusammen,
Ich muss ein VB script erstellen, welches aus einer Liste (die als Datei übergeben wird)
- IP-Adressen ausliest
- diese anpingt
- den Erfolgreichen ping nicht berücksichtigen muss
- den nicht erfolgreichen ping erkennt und
- dann einen Kommando-Zeilen-Befehl ausführt.
Habe das ganze schon mal als Batch realisiert, aber da ich die Fenster nicht unterdrücken kann,
und dieses Script auf allen Clients im Netz (mehr als 400) ablaufen soll, sollte es hlat unter VB laufen.
Ich hoffe das mir jemand Helfen kann und bedanke mich schon mal im voraus.
Gruß Peter
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 141240
Url: https://administrator.de/contentid/141240
Ausgedruckt am: 25.11.2024 um 18:11 Uhr
6 Kommentare
Neuester Kommentar
Nicht ganz das was du suchst, aber mit dem folgenden Schippsel kannst du deine bestehende Batch ohne sichtbares Fenster ausführen lassen:
Inhalt von C:\Test.vbs:
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\Test.cmd",0,True
Wscript.sleep 300000
Return = WshShell.Run ("C:\Test.vbs")
Gruß
Lord_Helmi
Inhalt von C:\Test.vbs:
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\Test.cmd",0,True
Wscript.sleep 300000
Return = WshShell.Run ("C:\Test.vbs")
Gruß
Lord_Helmi
Zitat von @Lord-Helmi:
Nicht ganz das was du suchst, aber mit dem folgenden Schippsel kannst du deine bestehende Batch ohne sichtbares Fenster
ausführen lassen:
Inhalt von C:\Test.vbs:
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\Test.cmd",0,True
Wscript.sleep 300000
Return = WshShell.Run ("C:\Test.vbs")
Gruß
Lord_Helmi
Nicht ganz das was du suchst, aber mit dem folgenden Schippsel kannst du deine bestehende Batch ohne sichtbares Fenster
ausführen lassen:
Inhalt von C:\Test.vbs:
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\Test.cmd",0,True
Wscript.sleep 300000
Return = WshShell.Run ("C:\Test.vbs")
Gruß
Lord_Helmi
Hallo Lord
Erst mal Danke für die schnelle Antwort. Dies gilt natürlich auch für LotPings
!!1. Ich habe Dein Test.vbs gerade mal bei mir getestet. Es funktioniert, so wie es soll....
)2. Würde ich gerne noch wissen, auf was genau sich der sleep auswirkt.
3. Und da, wie ja schon erwähnt, mein VB Kenntnisse nur sehr gering sind, würde ich mich über eine kurze Erläuterung sehr freuen.
Danke !!
Gruß peter
sleep steht für eine Pause mit dem Wert in Milisekunden.
Es reichten auch zwei Zeilen aus:
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\test.bat",0,True
Grüß
Es reichten auch zwei Zeilen aus:
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\test.bat",0,True
Grüß
Da hätte ich noch was dazu schreiben sollen. Ich lasse das *.cmd-Script im Abstand von 5 Minuten laufen, daher die Pause.
Danke an alle Beteiligten. Funktioniert wunderbar
Gruß Peter
Gruß Peter
