Ako Ping na zoznam počítačov s VBScript

Ak ste správca systému , budete pravdepodobne vykonávať údržbu systému a zálohy na mnohých počítačoch . Väčšina z týchto úloh možno vykonať na diaľku , ale iba v prípade , že systémy , ktoré pracujú na zapnuté . Pred začatím svojej plánovanú údržbu , môžete spustiť skript jazyka Visual Basic , ktorý vám umožní ping stroja vo vašej sieti . Veci , ktoré budete potrebovať
Sieťové pripojenie k vzdialeným strojom
kompilátora Visual Basic
Zoznam adries IP pre zariadenie , ktoré chcete pomocou príkazu ping
Zobraziť ďalšie inštrukcie
1

Vytvoriť zoznam počítačov na základe IP adries . Zadajte iba adresy IP a iba jeden na riadok . Uložte tento zoznam do textového súboru , napríklad uložiť súbor ako "c : \\ serverlist.txt "
2

Vytvorte skript jazyka Visual Basic , ktorý volá "c : \\ serverlist.txt " súbor ako zdrojový súbor . Tento skript bude tiež výstup výsledkov do súboru "c : \\ output.csv " . Použite nasledujúci kód :

dim strInputPath , strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = "c : \\ serverlist.txt " ) " - umiestnenie vstup

strOutputPath = "c : \\ output.csv " ) " - umiestnenie výstupu

nastaviť objFSO = CreateObject ( " Scripting.FileSystemObject " )

nastaviť objTextIn = objFSO . OpenTextFile ( strInputPath , 1 )

nastaviť objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( " počítač , štatút " )

do objTextIn.AtEndOfStream = pravda

strComputer = objTextIn.ReadLine

ak fPingTest ( strComputer ) , potom

strStatus = " UP "

iného

strStatus = " DOWN "

end if

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

slučka
3

kompilácie a spustiť kód . Prezrite si obsah "c : \\ output.csv " .

• Predchádzajúca strana: Ako používať Windows Media Player Control vo VB.NET 
• Ďalšia strana: Ako používať Telnet s VB6