Comment Ping une liste d'ordinateurs Avec VBScript

Comment Ping une liste d'ordinateurs Avec VBScript


Si vous êtes un administrateur système, vous effectuez probablement la maintenance du système et des 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 sur votre réseau.

Instructions

1 Créer une liste d'ordinateurs basés sur les adresses IP. Entrez uniquement les adresses IP et une seule par ligne. Sauvegarder cette liste comme un fichier texte; par exemple, enregistrez le fichier comme "c: \ serverlist.txt"

2 Créer un script Visual Basic qui appelle le "c: \ serverlist.txt" fichier en tant que fichier source. Ce script sera également en sortie 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") "- l'emplacement de sortie

définir objFSO = CreateObject ( "Scripting.FileSystemObject")

définir objTextIn = objFSO.OpenTextFile (strInputPath, 1)

définir objTextIn = objFSO.CreateTextFile (strOutputPath)

objTextOut.WriteLine ( "ordinateur, statut»)

Faites jusqu'à objTextIn.AtEndOfStream = True

strComputer = objTextIn.ReadLine

si fPingTest (strComputer) puis

strStatus = "UP"

autre

strStatus = "DOWN"

fin si

objTextOut.WriteLine (strComputer & "," & strStatus)

boucle

3 Compiler et exécuter le code. Passez en revue le contenu de "c: \ output.csv".