Les partenaires publicitaires:

Comment utiliser vb vba pour effectuer un test de ping

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.

Choses que vous devez

  • Microsoft Office

Instructions

  1. 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.

  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:

    Private Sub callPingFunction ()



    MsgBox myPingFunction ("-google.com"-)

    End Sub




  3. Éditer "google.com" à l'étape précédente et tapez 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:

    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

  5. 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.

» » » » Comment utiliser vb vba pour effectuer un test de ping