Hvis du er en system administrator , har du sannsynligvis utføre systemvedlikehold og backup på mange datamaskiner . De fleste av disse oppgavene kan gjøres eksternt , men bare hvis de systemene du jobber med blir slått på. Før du starter planlagt vedlikehold , kan du kjøre en Visual Basic- skript som vil tillate deg å pinge maskinene på nettverket. Du trenger
Network tilkobling til eksterne maskiner
Visual Basic-kompilator
liste over IP -adresser for maskiner du ønsker å pinge
Vis flere instruksjoner
1

Lag en liste over datamaskiner basert på IP-adresser. Tast bare IP-adressene og bare én per linje. Lagre denne listen som en tekstfil , for eksempel lagre filen som "c : \\ serverlist.txt "
2

Lag en Visual Basic- script som kaller "c : \\ serverlist.txt " fil som en kilde fil . Dette skriptet vil også sende resultatene til filen " c: \\ output.csv " . Bruk følgende kode :

dim strInputPath , strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = "c : \\ serverlist.txt ") '- plasseringen av innspill

strOutputPath = "c : \\ output.csv ") ' - plassering av produksjonen

satt objFSO = CreateObject ( " Scripting.FileSystemObject ")

sett objTextIn = objFSO . OpenTextFile ( strInputPath , 1 )

satt objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( "datamaskin , status ")

Gå til objTextIn.AtEndOfStream = sant

strComputer = objTextIn.ReadLine

hvis fPingTest ( strComputer ) så

strStatus = "UP "

annet

strStatus = "DOWN"

slutten hvis

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

sløyfe
3

Compile og utføre koden . Gjennom innholdet i "c : \\ output.csv " .