Se sei un amministratore di sistema, è probabile che eseguire la manutenzione del sistema e backup su molti computer. La maggior parte di queste attività può essere fatto da remoto, ma solo se i sistemi di cui si sta lavorando sono accesi. Prima di iniziare la manutenzione programmata, è possibile eseguire uno script Visual Basic che vi permetterà di eseguire il ping le macchine in rete.

istruzione

1 Creare un elenco di computer basati su indirizzi IP. Inserisci solo gli indirizzi IP e solo uno per riga. Salva questa lista come un file di testo; per esempio, salvare il file come "c: \ Elencoserver.txt"

2 Creare uno script Visual Basic che chiama la "c: \ Elencoserver.txt" file come un file di origine. Questo script sarà anche l'uscita dei risultati nel file "C: \ output.csv". Utilizzare il seguente codice:

dim strInputPath, strOutputPath, strStatus

dim objFSO, objTextIn, objTextOut

strInputPath = "c: \ Elencoserver.txt") '- luogo di ingresso

strOutputPath = "c: \ output.csv") '- posizione di uscita

set objFSO = CreateObject ( "Scripting.FileSystemObject")

set objTextIn = objFSO.OpenTextFile (strInputPath, 1)

set objTextIn = objFSO.CreateTextFile (strOutputPath)

objTextOut.WriteLine ( "del computer, lo stato")

Fare fino objTextIn.AtEndOfStream = True

strComputer = objTextIn.ReadLine

se fPingTest (strComputer) allora

strStatus = "UP"

altro

strStatus = "DOWN"

finisci se

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

ciclo continuo

3 Compilare ed eseguire il codice. Esaminare il contenuto di "C: \ output.csv".