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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 141240
Url: https://administrator.de/contentid/141240
Printed on: April 20, 2024 at 06:04 o'clock
6 Comments
Latest comment
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