L'automatisation du processus de ping adresses différentes à l'aide de Visual Basic pour Applications ( VBA) peut vous faire économiser beaucoup de temps , surtout quand vous avez un ping de nombreuses adresses . Pour effectuer un ping une adresse moyens pour exécuter un test et déterminer si l'adresse est accessible sur le réseau. VBA est très similaire à VB et vous pouvez l'utiliser dans n'importe quelle application Microsoft Office tels que Excel. Pour effectuer un ping d'un hôte, vous devez utiliser quelques variables objets pour exécuter une commande de script utilisant "Windows Scripting ". Vous pouvez utiliser cette méthode pour vérifier les adresses d'hôtes en permanence pour s'assurer qu'ils sont en marche. Votre programme VBA peut provoquer une erreur dans le cas où un hôte ne répond pas . Choses que vous devez
Microsoft Office
Voir Plus Instructions
1

Lancez Microsoft Word, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l'éditeur VBA fenêtre . Cliquez sur le menu "Insertion " et cliquez sur "Module " pour insérer un nouveau module de code.
2

Copiez et collez le code suivant pour créer la procédure qui va appeler le " myPingFunction " et afficher les résultats de ping pour " google.com " à travers une boîte de message :

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

Edit " google . com " à l'étape précédente et entrez l'hôte que vous voulez faire un ping .
4

Copiez et collez la fonction suivante pour tester l'adresse de l'hôte que vous avez envoyé à la fonction et retourner les résultats de la procédure d'appel : Photos

myPingFunction de fonction ( hostAddress As String) As StringDim FSObj Comme ObjectDim shellObj Comme ObjectDim tmpFileObj Comme ObjectDim sLine Comme StringDim sFilename Comme StringSet FSObj = CreateObject (" Scripting.FileSystemObject ") Set shellObj = CreateObject (" Wscript . Shell " ) sFilename = FSObj.GetTempNameshellObj.Run " cmd /c ping " et hostAddress et "> " et sFilename , 0, TrueSet tmpFileObj = FSObj.OpenTextFile ( sFilename , 1) ne Tandis que tmpFileObj . AtEndOfStream <> TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sLine ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFilename ) End Function
5

Cliquez dans la procédure " callPingFunction " et appuyez sur " F5 " pour l'exécuter. Les résultats de ping vont être affichés par l'intermédiaire d'une boîte de message.