Hvordan bruke VB VBA til å utføre en Ping-test

Automatisere prosessen med å pinge forskjellige adresser ved hjelp av Visual Basic for Applications (VBA) kan spare deg for mye tid, spesielt når du har å pinge mange adresser. For å 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 Excel. For å pinge en vert, må du bruke noen få objekter variabler å 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. Din VBA-programmet kan generere en feil i tilfelle et verten ikke svare.

Bruksanvisning

1 Start Microsoft Word, klikker du på "Utvikler" og klikk "Visual Basic" for å starte redigeringsvinduet VBA. Klikk på "Insert" -menyen og klikk "Module" å sette inn en ny kode modul.

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

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 å pinge vertsadressen du sendte til funksjon og returnere resultatet til kalle prosedyre:

Funksjon myPingFunction (hostAddress As String) As String
Dim FSObj As Object

Dim shellObj As Object
Dim tmpFileObj As Object
Dim sLine As String
Dim sFilename As String
Set FSObj = CreateObject("Scripting.FileSystemObject")
Set shellObj = CreateObject("Wscript.Shell")
sFilename = FSObj.GetTempName
shellObj.Run "cmd /c ping " & hostAddress & " >" & sFilename, 0, True
Set tmpFileObj = FSObj.OpenTextFile(sFilename, 1)
Do While tmpFileObj.AtEndOfStream <> True
sLine = tmpFileObj.Readline
myPingFunction = myPingFunction & Trim(sLine)
Loop
tmpFileObj.Close
FSObj.DeleteFile (sFilename)

End Function

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