|
| |
VB Skript (VBS)| Liste von Computern anpingen | |  | | Autor: sm5610 | | Datum: 19.11.08 10:24 |
| Hallo Leute,
ich beschäftige mich erst seit kurzem mit VBS. meine aufgabe ist es, eine liste von computernamen irgendwie einzulesen. diese computer sollen dann alle 30 minuten angepingt werden, damit herausgefunden wird, welcher computer täglich wie lange eingeschaltet ist. und zusätzlich soll das dann in einer liste (am besten ein excel, muss aber nicht sein) ausgegeben werden. gut wäre auch, wenn die zeit der überprüfung dazu ausgegeben wird.
bis jetzt bin ich so weit, dass ich die computer anpingen kann, aber nur, wenn ich diese statisch eingebe. sie werden also nicht aus der liste (.txt) übernommen. ich weiß auch, wie ich einen adressbereich anpingen kann, aber eben nicht, wie ich das mit der liste hinbekomme. und auch das ausgeben in einer liste kann ich nicht. weiters stellt sich mir die frage, wie ich dann herausfinde, wie viele stunden pro tag die rechner eingeschalten sind. ich weiß, dass es den begriff uptime gibt, der mir sagt, wie lange der pc schon eingeschalten ist. hilft mir das vielleicht weiter??
hier mein bisheriger code:
Set objshell = CreateObject("WScript.Shell")
For x = 1 To 9
intErg = objshell.Run("ping -n 1 -w 100 xptrws0" & x, 0, True)
If intErg = 0 Then
strListe = strListe & "xptrws0" & x & " ONLINE" & vbNewLine
Else
strListe = strListe & "xptrws0" & x & " nicht ONLINE" & vbNewLine
End If
Next
For x = 10 To 40
intErg = objshell.Run("ping -n 1 -w 100 xptrws" & x, 0, True)
If intErg = 0 Then
strListe = strListe & "xptrws" & x & " ONLINE" & vbNewLine
Else
strListe = strListe & "xptrws" & x & " nicht ONLINE" & vbNewLine
End If
Next
MsgBox strListelg | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
