Wenn Sie ein Systemadministrator sind , haben Sie wahrscheinlich durchführen Systemwartung und Backups auf vielen Computern . Die meisten dieser Aufgaben können aus der Ferne durchgeführt werden, aber nur , wenn die Systeme auf dem Sie arbeiten werden eingeschaltet . Vor Beginn Ihrer planmäßigen Wartung , können Sie eine Visual Basic-Skript , das Ihnen erlaubt , um die Maschinen in Ihrem Netzwerk Ping wird . Things You
Netzwerkverbindung zu entfernten Rechnern
Visual Basic-Compiler
Liste der IP-Adressen für Maschinen, die Sie möchten
ping brauchen anzeigen Weitere Anweisungen
1

erstellen Sie eine Liste der Computer, auf IP-Adressen. Geben Sie nur die IP-Adressen und nur eine pro Zeile. Speichern Sie diese Liste als Text-Datei , zum Beispiel , speichern Sie die Datei als "c: \\ serverlist.txt "
2

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

dim strInputPath , strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = "c: \\ serverlist.txt ") ' - Standort Eingang

strOutputPath = "c: \\ output.csv ") ' - Lage der Ausgang

gesetzt objFSO = CreateObject (" Scripting.FileSystemObject " )

Satz objTextIn = objFSO . OpenTextFile ( strInputPath , 1) german

gesetzt objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( " Computer -Status " )

Sie bis objTextIn.AtEndOfStream = Wahre

strComputer = objTextIn.ReadLine

wenn fPingTest ( strComputer ) dann

strStatus = "UP"

sonst

strStatus = "DOWN"

end if

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

Schleife
3

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