Ανοίξτε επιλέξει editor VBS σας . Μπορείτε να χρησιμοποιήσετε το Notepad , αν δεν έχετε ένα προτιμώμενο επεξεργαστή , αλλά το σενάριο θα πρέπει να εξακολουθήσουν να καταρτίζονται με τη χρήση κατάλληλης compiler 2
αντιγραφή και επικόλληση του παρακάτω script στο τμήμα scripting : .
strComputer =
Set objWMIService = GetObject ( " winmgmts : \\ \\ " & strComputer & "\\ root \\ cimv2 " )
Set colInstalledPrinters = objWMIService.ExecQuery _ ( "Επιλογή * Από Win32_Printer " )
For Each objPrinter σε colInstalledPrintersIf Όχι ( Αριστερά ( objPrinter.Portname , 3 ) = " USB " ) ThenobjPrinter.Delete_End IfNext
Αυτό το σενάριο διαγράφει τα LPT εκτυπωτές , αλλά αφήνει τους εκτυπωτές USB εγκατασταθεί .
εικόνων 3
Αποθηκεύστε το σενάριό σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα