probier das mal
06.02.2004 18:19:58
y
hi Markus,
das schwerste war nicht das pingen und auslesen aus der txt datei sondern das warten auf das ende des shellscripts :-(
aber jetzt müsste es funktionieren
du musst nur in der ersten zeile den zu prüfenden rechnernamen eingeben ( kann man natürlich auch aus 'ner zelle auslesen ;-)
Sub pruefen()
Rechner = "Micha" ' hier bitte den rechnernamen eintragen
ShellAndWait ("CMD.EXE /C " & "ping " & Rechner & " > C:\Test.txt")
Close #1
Open "c:\Test.txt" For Input As #1
Input #1, Textzeile
If Left(Textzeile, 4) = "Ping" Then
MsgBox ("Der Rechner " & Rechner & " ist nicht erreichbar")
Else
MsgBox ("Der Rechner " & Rechner & " ist erreichbar")
End If
Close #1
Kill "c:\Test.txt"
End Sub
Function ShellAndWait(FileName As String)
Dim objScript
Set objScript = CreateObject("WScript.Shell")
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
End Function
cu Micha