Als je een systeembeheerder bent , je waarschijnlijk presteren systeemonderhoud en back-ups op een groot aantal computers . De meeste van deze taken kan op afstand worden gedaan , maar alleen als de systemen die u bezig bent zijn ingeschakeld . Voorafgaand aan het begin van uw gepland onderhoud , kunt u een Visual Basic- script dat zal u toelaten om de machines te pingelen op je netwerk draaien . Wat je
Netwerk verbinding op afstand machines in Visual Basic -compiler
Lijst van IP-adressen voor de machines die u wilt
pingen Need Toon Meer Aanwijzingen
1 Maak een lijst van computers op basis van IP-adressen . Voer alleen de IP-adressen en slechts een per regel . Bewaar deze lijst als tekstbestand , bijvoorbeeld , het bestand opslaan als " c: \\ serverlist.txt " de " c: \\ serverlist.txt " kopen van 2 Maak een Visual Basic- script dat noemt bestand als een bronbestand . Dit script zal ook de resultaten uit te voeren naar het bestand " c: \\ output.csv " . Gebruik de volgende code : dim strInputPath
, strOutputPath , strStatus
dim objFSO , objTextIn , objTextOut strInputPath
= " c: \\ serverlist.txt " ) ' - locatie van ingang strOutputPath
= " c: \\ output.csv " ) ' - locatie van de output
ingesteld objFSO = CreateObject ( " Scripting.FileSystemObject " ) op Twitter set objTextIn = objFSO . OpenTextFile ( strInputPath , 1 ) op Twitter ingesteld objTextIn = objFSO.CreateTextFile ( strOutputPath ) objTextOut.WriteLine
( " computer , de status " ) op Twitter Heb tot objTextIn.AtEndOfStream = True strComputer
= objTextIn.ReadLine
als fPingTest ( strComputer ) dan = " UP "
anders strStatus =
strStatus
" DOWN " einde
als objTextOut.WriteLine
( strComputer & " , " & strStatus ) lus
Compile
3 en uitvoeren van de code . Beoordelen de inhoud van " c: \\ output.csv " .
|
