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