L'automatisation du processus de cliquetis des adresses différentes en utilisant Visual Basic pour Applications (VBA) peut vous faire économiser beaucoup de temps, surtout quand vous avez de faire un ping de nombreuses adresses. Pour effectuer un ping une adresse signifie pour exécuter un test et de déterminer si l'adresse est accessible sur le réseau. VBA est très similaire à VB et vous pouvez l'utiliser dans une application Microsoft Office tels que Excel. Pour ping d'un hôte, vous devez utiliser quelques variables objets pour exécuter une commande de script à l'aide "Windows Scripting." Vous pouvez utiliser cette méthode pour vérifier les adresses d'accueil en continu pour vous assurer qu'ils sont en place et fonctionne. Votre programme VBA peut provoquer une erreur dans le cas où un hôte ne répond pas.
Lancez Microsoft Word, cliquez sur le "Promoteur" onglet et faites un clic "Visual Basic" pour lancer la fenêtre de l'éditeur VBA. Cliquez sur le "Insérer" menu et clic "Module" pour insérer un nouveau module de code.
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:
Private Sub callPingFunction ()
MsgBox myPingFunction ("-google.com"-)
End Sub
Éditer "google.com" à l'étape précédente et tapez l'hôte que vous voulez faire un ping.
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:
Fonction myPingFunction (HOSTADDRESS As String) As String
Dim FSObj As Object
Dim shellObj As Object
Dim tmpFileObj As Object
Dim sLine As String
Dim sFilename As String
Réglez FSObj = CreateObject ("-Scripting.FileSystemObject"-)
Réglez shellObj = CreateObject ("-Wscript.Shell"-)
sFilename = FSObj.GetTempName
shellObj.Run "-cmd / c ping "- &Amp HOSTADDRESS &Amp "- gt;"- &Amp sFilename, 0, True
Réglez tmpFileObj = FSObj.OpenTextFile (sFilename, 1)
Do While tmpFileObj.AtEndOfStream lt; gt; Vrai
sLine = tmpFileObj.Readline
myPingFunction = myPingFunction &Amp trim (sLine)
Boucle
tmpFileObj.Close
FSObj.DeleteFile (sFilename)
End Function
Cliquez à l'intérieur du "callPingFunction" procédure et appuyez "F5" pour l'exécuter. Les résultats de ping vont être affichée à travers une boîte de message.