Les sujets:

Les partenaires publicitaires:

Réponses populaires

Questions connexes

Les partenaires publicitaires:

Comment faire un ping une liste d'ordinateurs avec VBScript

Si vous êtes un administrateur système, vous effectuez probablement la maintenance du système et les sauvegardes sur de nombreux ordinateurs. La plupart de ces tâches peuvent être effectuées à distance, mais seulement si les systèmes sur lesquels vous travaillez sont sous tension. Avant de commencer votre entretien programmé, vous pouvez exécuter un script Visual Basic qui vous permettra de faire un ping les machines de votre réseau.

Choses que vous devez

  • La connexion réseau à des ordinateurs distants
  • Compilateur Visual Basic
  • Liste des adresses IP pour les machines que vous souhaitez faire un ping

Instructions

  1. 1

    Créer une liste d'ordinateurs basés sur les adresses IP. Entrez seulement les adresses IP et un seul par ligne. Sauvegarder cette liste comme un Fichier de texte par exemple, enregistrez le fichier sous "c: serverlist.txt"

  2. 2

    Créez un script Visual Basic qui appelle la "c: serverlist.txt" fichier comme un fichier source. Ce script émet également les résultats dans le fichier "c: output.csv". Utilisez le code suivant:

    dim strInputPath, strOutputPath, strStatus

    dim objFSO, objTextIn, objTextOut

    strInputPath = "c: serverlist.txt") '- L'emplacement de l'entrée

    strOutputPath = "c: output.csv") '- Emplacement de sortie

    mettre objFSO = CreateObject ("Scripting.FileSystemObject")

    mettre objTextIn = objFSO.OpenTextFile (strInputPath, 1)

    mettre objTextIn = objFSO.CreateTextFile (strOutputPath)




    objTextOut.WriteLine ("ordinateur, le statut")

    Faire jusqu'à objTextIn.AtEndOfStream = True

    strComputer = objTextIn.ReadLine
    si fPingTest (strComputer) puis
    strStatus = "UP"
    autre
    strStatus = "VERS LE BAS"
    fin si
    objTextOut.WriteLine (strComputer & "," & strStatus)

    boucle

  3. 3

    Compiler et exécuter le code. Examinez le contenu du "c: output.csv".

Questions connexes

» » » » Comment faire un ping une liste d'ordinateurs avec VBScript