Automatisering av prosessen med å pinge forskjellige adresser med Visual Basic for Applications ( VBA ) kan spare deg for mye tid, spesielt når du har å pinge mange adresser . Å pinge en adresse betyr å kjøre en test og finne ut om adressen er tilgjengelig over nettverket . VBA er svært lik VB og du kan bruke den i alle Microsoft Office-program som for eksempel Excel. Å pinge en vert, må du bruke noen få objekter variabler for å kjøre et script kommando ved hjelp av " Windows Scripting . " Du kan bruke denne metoden for å sjekke vertsadresser kontinuerlig for å sørge for at de er oppe og går . VBA- programmet kan generere en feil i tilfelle en mengde reagerer ikke. Du trenger
Microsoft Office
Vis flere instruksjoner
en

Launch Microsoft Word , klikk på " Developer " og klikk " Visual Basic " for å starte VBA editor vinduet. Klikk på " Insert"-menyen og klikk " Module" for å sette inn en ny kode modul .
2

Kopier og lim inn følgende kode for å lage den prosedyre som vil kalle " myPingFunction " og vise ping resultater for " google.com " gjennom en meldingsboks : en

Private Sub callPingFunction ( ) MsgBox myPingFunction ( " google.com ") End Sub
3

Edit " google . com " i forrige trinn og skriv verten du ønsker å pinge .
4

Kopier og lim inn følgende funksjon for å pinge verten adressen du sendt til funksjon og returnere resultatene til kaller fremgangsmåten : en

Funksjon myPingFunction ( hostAddress As String ) As StringDim FSObj Som ObjectDim shellObj Som ObjectDim tmpFileObj Som ObjectDim Sline Som StringDim sFilename Som StringSet FSObj = CreateObject ( " Scripting.FileSystemObject ") Set shellObj = CreateObject ( " Wscript . Shell " ) sFilename = FSObj.GetTempNameshellObj.Run " cmd /c ping "& hostAddress &" > "& sFilename , 0 , TrueSet tmpFileObj = FSObj.OpenTextFile ( sFilename , 1 ) Do While tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( Sline ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFilename ) End Function
5

Klikk i " callPingFunction " prosedyre og trykk " F5 " å kjøre den. Ping resultatene kommer til å bli vist gjennom en meldingsboks.