Πώς να Ping μια λίστα με τους υπολογιστές με VBScript

Αν είστε διαχειριστής του συστήματος , είναι πιθανό να εκτελούν εργασίες συντήρησης του συστήματος και δημιουργία αντιγράφων ασφαλείας σε πολλούς υπολογιστές . Τα περισσότερα από αυτά τα καθήκοντα μπορεί να γίνει εξ αποστάσεως , αλλά μόνο αν τα συστήματα που εργάζεστε σε λειτουργία . Πριν από την έναρξη προγραμματισμένη συντήρηση σας , μπορείτε να εκτελέσετε μια δέσμη ενεργειών Visual Basic που θα σας επιτρέψει να κάνετε ping τα μηχανήματα του δικτύου σας . Τα πράγματα που θα χρειαστείτε
σύνδεση δικτύου σε απομακρυσμένα μηχανήματα
μεταγλώττισης Visual Basic
Λίστα διευθύνσεων IP για μηχανές που θέλετε να κάνετε ping
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Δημιουργήστε μια λίστα με τους υπολογιστές που βασίζονται σε διευθύνσεις IP . Εισάγετε μόνο τις διευθύνσεις IP και μόνο μία ανά γραμμή . Αποθηκεύστε αυτή τη λίστα ως αρχείο κειμένου ? Για παράδειγμα , αποθηκεύστε το αρχείο ως "c : \\ serverlist.txt " 2

Δημιουργήστε μια δέσμη ενεργειών Visual Basic που καλεί το "c : \\ serverlist.txt " το αρχείο ως ένα αρχείο προέλευσης . Αυτό το σενάριο θα είναι επίσης έξοδο τα αποτελέσματα στο αρχείο "c : \\ OUTPUT.CSV " . Χρησιμοποιήστε τον ακόλουθο κώδικα :

dim strInputPath , strOutputPath , strStatus

dim objFSO , objTextIn , objTextOut

strInputPath = "c : \\ serverlist.txt " ) » - θέση εισόδου

strOutputPath = "c : \\ OUTPUT.CSV " ) » - θέση της παραγωγής

που objFSO = CreateObject ( " Scripting.FileSystemObject " )

που objTextIn = objFSO . OpenTextFile ( strInputPath , 1 )

που objTextIn = objFSO.CreateTextFile ( strOutputPath )

objTextOut.WriteLine ( "Ο υπολογιστής , το καθεστώς " )

κάνει μέχρι objTextIn.AtEndOfStream = True

strComputer = objTextIn.ReadLine

αν fPingTest ( strComputer ), τότε

strStatus = " UP "

άλλο

strStatus = " DOWN "

τέλος, αν

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

βρόχο
εικόνων 3

Compile και να εκτελέσει τον κώδικα . Εξετάστε τα περιεχόμενα του "c : \\ OUTPUT.CSV " .
Η
εικόνων