Se sei un amministratore di sistema , è probabile che esegue la manutenzione del sistema e backup su molti computer . La maggior parte di tali compiti può essere fatto da remoto , ma solo se i sistemi si sta lavorando siano accesi . Prima di iniziare il vostro manutenzione programmata , è possibile eseguire uno script di Visual Basic che vi permetterà di eseguire il ping delle macchine sulla rete . Cose che ti serviranno
Connessione di rete a macchine remote
Visual Basic compilatore
elenco di indirizzi IP per le macchine che si desidera eseguire il ping
Mostra più istruzioni
1 < p > Creazione di un elenco di computer sulla base di indirizzi IP . Inserisci solo gli indirizzi IP e solo uno per riga. Salva questo elenco come file di testo , ad esempio , salvare il file come "c : \\ elencoserver.txt "
2

Creare uno script Visual Basic che chiama la "c : \\ elencoserver.txt " file come un file sorgente . Questo script o anche trasmettere i risultati al file "c: \\ output.csv " . Utilizzare il seguente codice :

strInputPath fioca , strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = " c : \\ elencoserver.txt " ) ' - posizione di ingresso

strOutputPath = " c : \\ output.csv " ) ' - luogo di produzione

impostare objFSO = CreateObject ( " Scripting.FileSystemObject " ) per

set objTextIn = objFSO . OpenTextFile ( strInputPath , 1 ) per

objTextIn = objFSO.CreateTextFile ( strOutputPath ) per

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

fare fino objTextIn.AtEndOfStream = vero

strComputer = objTextIn.ReadLine

se fPingTest ( strComputer ) poi

strStatus = " UP "

altro

strStatus = "DOWN "

fine se

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

cappio
3

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