Si vous êtes un administrateur système , vous avez probablement procéder à la maintenance du système et des sauvegardes sur plusieurs 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. Choses que vous aurez besoin de connexion réseau
à des machines distantes
compilateur Visual Basic
Liste des adresses IP des machines que vous souhaitez réaliser un ping
Voir Plus Instructions
1

Créer une liste d'ordinateurs basé sur les adresses IP. Entrez seulement les adresses IP et seulement un par ligne . Sauvegarder cette liste comme un fichier texte , par exemple , enregistrez le fichier en tant que "c: \\ serverlist.txt "
2

créer un script Visual Basic qui appelle le "c: \\ serverlist.txt " fichier en tant que fichier source. Ce script permet également d'afficher 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 " ) '- location de entrée

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

mis objFSO = CreateObject (" Scripting.FileSystemObject " )

ensemble objTextIn = objFSO . OpenTextFile ( strInputPath , 1)

mis objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( " informatique , le statut " )

Ne jusqu'au objTextIn.AtEndOfStream = vrai

strComputer = objTextIn.ReadLine

si fPingTest ( strComputer ) puis

strStatus = "UP"

autre

strStatus = "DOWN"

fin si

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

boucle
3

Compile et exécuter le code . Vérifiez le contenu de "C: \\ output.csv " .