L'automazione del processo di ping diversi indirizzi utilizzando Visual Basic, Applications Edition (VBA ), si può risparmiare un sacco di tempo, specialmente quando si deve eseguire il ping molti indirizzi . Per eseguire il ping di un indirizzo significa eseguire un test e determinare se l'indirizzo è accessibile attraverso la rete . VBA è molto simile a VB e si può utilizzare in qualsiasi applicazione di Microsoft Office come Excel . Per eseguire il ping di un host , è necessario utilizzare alcune variabili oggetti per eseguire un comando script utilizzando "Windows Scripting ". È possibile utilizzare questo metodo per controllare gli indirizzi host continuamente per assicurarsi che siano in funzione. Il vostro programma VBA può generare un errore nel caso in cui un host non risponde . Cose che ti serviranno
Microsoft Office
Mostra più istruzioni
1

lancio di Microsoft Word , fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per avviare l'editor di VBA finestra. Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice .
2

Copia e incolla il seguente codice per creare la procedura che chiamerà il " myPingFunction " e visualizzare i risultati ping per " google.com ", attraverso una finestra di messaggio :

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

Modifica " google . com " nel passaggio precedente e digitare l'host che si desidera eseguire il ping .
4

Copia e incolla il seguente funzione per eseguire il ping l' indirizzo dell'host che hai inviato alla funzione e restituire i risultati alla procedura chiamante :

Funzione myPingFunction ( hostaddress come stringa) come StringDim FSObj Come ObjectDim shellObj Come ObjectDim tmpFileObj Come ObjectDim sLine Come StringDim sFileName Come 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 Mentre tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sLine ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function
5

Fare clic all'interno della procedura " callPingFunction " e premere il tasto " F5 " per eseguirlo. I risultati ping stanno per essere visualizzati attraverso una finestra di messaggio .