Automatisering processen pinge forskellige adresser ved hjælp af Visual Basic for Applications ( VBA ), kan spare dig for en masse tid, især når du har at pinge mange adresser . At pinge en adresse betyder at køre en test og afgøre, om adressen er tilgængelig over netværket. VBA er meget lig VB og du kan bruge det i enhver Microsoft Office-program som Excel . At pinge en vært, skal du bruge et par genstande variabler til at udføre et script kommando ved hjælp af "Windows Scripting ". Du kan bruge denne metode til at kontrollere værtsadresser kontinuerligt for at sikre, at de er oppe og køre . Dit VBA program kan generere en fejl i tilfælde af en vært ikke reagerer . Ting du skal
Microsoft Office
Vis Flere Instruktioner
1
Launch Microsoft Word, skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at starte VBA editoren vindue . Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul.
2
Kopier og indsæt følgende kode til at skabe den procedure, der vil kalde " myPingFunction " og vise ping resultater for " google.com " gennem en besked boks : Hej
Private Sub callPingFunction () MsgBox myPingFunction ( " google.com " ) End Sub
3
Edit "google . com "i forrige trin , og skriv den vært, du ønsker at pinge .
4
Kopier og indsæt følgende funktion til at pinge host adresse, du sendte til den funktion og returnere resultaterne til den kaldende procedure : Hej
Function 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
Klik inde i " callPingFunction " procedure og trykke på " F5 "for at køre den. De ping Resultaterne vil blive vist gennem en besked boks .
