Automatisera processen att pinga olika adresser med Visual Basic for Applications ( VBA ) kan spara dig mycket tid , speciellt när man har att pinga flera adresser . Att pinga en adress innebär att köra ett test och bestämma om adressen är åtkomlig via nätverket . VBA är mycket lik VB och du kan använda den i alla Microsoft Office- program, till exempel Excel . Pinga en värd , måste du använda ett fåtal objekt variabler att exekvera ett skript kommando använder " Windows Scripting . " Du kan använda den här metoden för att kontrollera värdadresser kontinuerligt för att se till att de är igång . Din VBA program kan generera ett fel vid en värd svarar inte . Saker du behöver
Microsoft Office
Visa fler instruktioner
1
Launch Microsoft Word , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VBA editorn fönster . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kod modul .
2
Kopiera och klistra in följande kod för att skapa det förfarande som kommer att kalla den " myPingFunction " och visa ping resultaten för " google.com " genom en meddelanderuta :
Private Sub callPingFunction ( ) MsgBox myPingFunction ( " google.com " ) End Sub
3
Redigera " Google . com " i föregående steg och skriv in värden som du vill pinga .
4
Kopiera och klistra in följande funktion för att pinga den mottagande adress du skickade till funktionen och returnera resultatet till den anropande proceduren :
Funktion myPingFunction ( hostaddress As String ) Som 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
Klicka i " callPingFunction " proceduren och tryck på " F5 " för att köra den . Ping Resultaten kommer att visas genom en meddelanderuta .
