Om du är systemadministratör , du sannolikt utföra systemunderhåll och säkerhetskopior på många datorer . De flesta av dessa uppgifter kan göras på distans , men endast om de system du arbetar med är påslagna . Innan du påbörjar din planerat underhåll , kan du köra en Visual Basic -skript som gör att du kan pinga datorer på ditt nätverk . Saker du behöver
Uppkoppling till fjärrmaskiner Review, Visual Basic -kompilator
lista över IP- adresser för maskiner du vill pinga
Visa fler instruktioner
1
Skapa en lista över datorer baserade på IP-adresser . Ange endast de IP-adresser och bara en per rad . Spara den här listan som en textfil , till exempel , spara filen som " c : \\ serverlist.txt "
2
Skapa ett Visual Basic -skript som anropar " c : \\ serverlist.txt " fil som en källfil . Detta skript kommer också mata ut resultaten till filen " C : \\ OUTPUT.CSV " . Använd följande kod :
dim strInputPath , strOutputPath , strStatus
dim objFSO , objTextIn , objTextOut
strInputPath = " c : \\ serverlist.txt " ) " - läge input
strOutputPath = " c : \\ OUTPUT.CSV " ) " - läge för utgång
satt objFSO = CreateObject ( " Scripting.FileSystemObject " ) katalog
set objTextIn = objFSO . OpenTextFile ( strInputPath , 1 ) katalog
inställd objTextIn = objFSO.CreateTextFile ( strOutputPath ) katalog
objTextOut.WriteLine ( " dator , status " ) katalog
göra tills objTextIn.AtEndOfStream = sant
strComputer = objTextIn.ReadLine
om fPingTest ( strComputer ) sedan
strStatus = " UPP "
annars
strStatus = " NER "
slut om
objTextOut.WriteLine ( strComputer & " , " & strStatus ) katalog
loop
3
Compile och köra koden . Granska innehållet i " c : \\ OUTPUT.CSV " .
