Het automatiseren van het proces van het pingen verschillende adressen met Visual Basic for Applications ( VBA ) kunt u bespaart een hoop tijd , vooral als je te veel adressen pingen . Om een adres te pingen betekent om een test uit te voeren en te bepalen of het adres is toegankelijk via het netwerk . VBA is zeer vergelijkbaar met VB en je kunt het gebruiken in alle Microsoft Office-toepassing , zoals Excel . Om een machine te pingen , moet je een paar objecten variabelen gebruiken om een commando uit te voeren met behulp van script 'Windows Scripting . "Je kunt deze methode gebruiken om hostadressen continu controleren om ervoor te zorgen dat ze up and running . Uw VBA programma kan een fout in het geval van een gastheer reageert niet genereren . Wat je nodig hebt Microsoft Office Toon Meer Aanwijzingen Lancering Microsoft Word 1 , klikt u op het tabblad " Developer " en klik op " Visual Basic " om de VBA editor te starten venster . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module plaatsen . Copy 2 en plak de volgende code om de procedure die de " myPingFunction " zullen noemen maken en weer de ping resultaten voor " google.com " door middel van een bericht : Private Sub callPingFunction ( ) MsgBox myPingFunction ( " google.com " ) End Sub 3 Edit " google . com " in de vorige stap en typ de host die u wilt pingen . Kopieer 4 en plak de volgende functie om het host-adres u de functie gestuurd pingen en de terugkeer van de resultaten naar de aanroepende procedure : Functie myPingFunction ( Hostaddress als Koord) als StringDim FSObj Zoals ObjectDim shellObj Zoals ObjectDim tmpFileObj Zoals ObjectDim SLINE Zoals StringDim sFileName Zoals 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 ) Doe terwijl tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( SLINE ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function 5 Klik in het " callPingFunction " procedure en druk op " F5 "om het uit te voeren . De ping resultaten zullen worden weergegeven door middel van een bericht in.
|