Πώς να Διαγραφή όλων των εκτυπωτών με VBScript

Windows υποστηρίζει διάφορες γλώσσες δέσμης ενεργειών , συμπεριλαμβανομένης της Visual Basic Scripting Edition , ή VBScript . Με το έξυπνο , Αγγλικά - όπως σύνταξη , VBScript είναι μια εύκολη γλώσσα για να μάθει . VBScript από μόνη της είναι ένα περιβάλλον κατάλληλο για πολλά κοινά διοικητικά καθήκοντα , αλλά μεγαλύτερη αξία του προέρχεται από την ικανότητά του να αλληλεπιδρά με άλλα συστατικά του λειτουργικού συστήματος , όπως η Υπηρεσία οργάνων διαχείρισης των Windows ( WMI ) . WMI καταστήματα λεπτομερείς πληροφορίες σχετικά με τον υπολογιστή σας και μπορεί να χρησιμοποιηθεί σε συνδυασμό με VBScript να ελέγχει ή να μάθετε την κατάσταση του κάθε στοιχείου που συμμορφώνεται με τα πρότυπα WMI , όπως η προσθήκη ή διαγραφή αντικειμένων εκτυπωτή . Τα πράγματα που θα χρειαστείτε για Microsoft Windows 2000 ή νεότερη
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Συνδεθείτε στον υπολογιστή σας με ένα λογαριασμό που έχει δικαιώματα διαχειριστή .

2

Ανοίξτε το Windows Notepad , πληκτρολογώντας " σημειωματάριο " στο πεδίο αναζήτησης στο μενού " Έναρξη " . Εάν χρησιμοποιείτε Windows XP , κάντε κλικ στο κουμπί " Start" και στη συνέχεια " Run ... , " τύπος " notepad " και πατήστε " OK".
Εικόνων 3

Κάντε κλικ στο " Format" στο μενού μπαρ στο Σημειωματάριο , και στη συνέχεια επιλέξτε " Αναδίπλωση λέξεων " για να αλλάξετε αυτή τη λειτουργία. Αυτό θα κάνει το script σας πιο εύκολο να διαβάσει .
Η 4

Τύπος strComputer = " . " στην πρώτη γραμμή του αρχείου . Αυτό σημαίνει ότι θέλετε το script να τρέχει έναντι του τοπικού υπολογιστή . Εάν θέλετε να εκτελέσετε τη δέσμη ενεργειών ενάντια σε ένα άλλο υπολογιστή και να έχουν τα κατάλληλα δικαιώματα , μπορείτε να αντικαταστήσετε " . " με το όνομα του απομακρυσμένου υπολογιστή .
5

Προσθέστε την ακόλουθη γραμμή κώδικα στο script σας . Για να μπορέσετε να ρωτούν την υπηρεσία WMI για πληροφορίες σχετικά με τον υπολογιστή , VBScript πρέπει πρώτα να επισυνάψετε ή δεσμεύουν, με την εν λόγω υπηρεσία

Set objWMIService = GetObject ( " winmgmts : { impersonationLevel = μιμηθεί } \\ \\ " . & StrComputer & "\\ root \\ cimv2 " )
Η 6

Ερώτημα την υπηρεσία WMI για μια λίστα με όλους τους εκτυπωτές εγκατεστημένο στον τοπικό υπολογιστή , καθώς και για κάθε εκτυπωτή που βρέθηκαν , επιβεβαίωση της διαγραφής . Συμπληρώστε το σενάριο εισάγοντας τον ακόλουθο κώδικα :

Set colPrinters = objWMIService.ExecQuery ( " Επιλέξτε * από Win32_Printer " )

For Each objPrinter σε colPrinters

ret = MsgBox ( "Είστε σίγουροι ότι θέλετε να διαγράψετε το παρακάτω εκτυπωτή : " & objPrinter.Name , vbYesNo , " Επιβεβαίωση διαγραφής του εκτυπωτή" )

Αν ret = 6 τότε

objPrinter.Delete_

Τέλος , αν

Επόμενο

Wscript.Quit
Η

7 Αποθηκεύστε το αρχείο Notepad με την επέκταση * . vbs , και στη συνέχεια κάντε διπλό κλικ στο αρχείο για να ξεκινήσει το σενάριο .
Η
εικόνων