Hvis du er systemadministrator, du sandsynligvis udføre systemvedligeholdelse og sikkerhedskopier på mange computere . De fleste af disse opgaver kan udføres eksternt , men kun hvis de systemer , du arbejder på , er tændt. Før du begynder din planlagt vedligeholdelse , kan du køre en Visual Basic script, der vil give dig mulighed for at pinge maskinerne på dit netværk. Ting du skal
netværksforbindelse til eksterne maskiner
Visual Basic compiler
Liste over IP-adresser til maskiner , du ønsker at pinge
Vis Flere Instruktioner
1 < p > Opret en liste over computere baseret på IP-adresser. Indtast kun de IP -adresser , og kun én per linje. Gem denne liste som en tekstfil , for eksempel filen gem som " c: \\ serverlist.txt "
2

Opret en Visual Basic -script , der kalder "c: \\ serverlist.txt " fil som en kilde fil . Dette script vil også udlæse resultatet til filen "c: \\ OUTPUT.CSV " . Brug følgende kode : Hej

dim strInputPath , strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = " c: \\ serverlist.txt «) « - placering input

strOutputPath = " c: \\ OUTPUT.CSV «) « - placering af output

sæt objFSO = CreateObject ( " Scripting.FileSystemObject " )

sæt objTextIn = objFSO . OpenTextFile ( strInputPath , 1)

sæt objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( "computer , status " )

Må indtil objTextIn.AtEndOfStream = ægte

strComputer = objTextIn.ReadLine

hvis fPingTest ( strComputer ), så

strStatus = " UP "

ellers

strStatus = "DOWN "

ende, hvis

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

loop
3

Compile og udføre koden . Gennemgå indholdet af "c: \\ OUTPUT.CSV " .