Gewusst wie: eine Liste von Computern mit VBScript Ping

Wenn Sie ein Systemadministrator sind, führen Sie wahrscheinlich Systemwartung und Sicherungen auf vielen Computern. Die meisten dieser Aufgaben können Remote erfolgen, sondern sind nur wenn die Systeme, die, denen Sie arbeiten, eingeschaltet. Vor Beginn Ihrer geplanten Wartungsarbeiten, können Sie eine Visual Basic-Skript ausführen, die Ihnen erlauben, die Computer in Ihrem Netzwerk ping.

Anweisungen

1 Erstellen Sie eine Liste der Computer basierend auf IP-Adressen. Geben Sie die IP-Adressen und nur eine pro Zeile. Speichern Sie diese Liste als Textdatei; Speichern Sie die Datei beispielsweise als "c:\serverlist.txt"

2 Erstellen Sie eine Visual Basic-Skript, die die "c:\serverlist.txt"-Datei als Quelldatei aufruft. Dieses Skript wird auch die Ausgabe der Ergebnisse in die Datei "c:\output.csv". Verwenden Sie den folgenden Code:

Dim StrInputPath, StrOutputPath, strStatus

Dim ObjFSO, ObjTextIn, objTextOut

StrInputPath = "c:\serverlist.txt") '-Lage der Eingabe

StrOutputPath = "c:\output.csv") '-Ausgabeort

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

Set ObjTextIn = objFSO.OpenTextFile (StrInputPath, 1)

Set ObjTextIn = objFSO.CreateTextFile (StrOutputPath)

objTextOut.WriteLine("computer,status")

Tun bis objTextIn.AtEndOfStream = True

strComputer = objTextIn.ReadLine

if fPingTest( strComputer ) then

strStatus = "UP"

else

strStatus = "DOWN"

end if

objTextOut.WriteLine(strComputer & "," & strStatus)

Schleife

3 Kompilieren Sie und führen Sie den Code. Überprüfen Sie den Inhalt von "c:\output.csv".