Aprite il vostro editor VBS scelto . È possibile utilizzare Blocco note , se non si dispone di un editor preferito , ma la sceneggiatura sarebbe ancora bisogno di essere compilato usando un compilatore corretto
2
Copia e incolla il seguente script nella sezione scripting : . < Br
strComputer > =
objWMIService = GetObject " . " (" winmgmts : \\ \\ " & strComputer & " \\ root \\ CIMV2 " ) per
colInstalledPrinters = objWMIService.ExecQuery _ ( "SELECT * FROM Win32_Printer " ) per
Ogni objPrinter in colInstalledPrintersIf Not (Sinistra ( objPrinter.Portname , 3) = "USB " ) ThenobjPrinter.Delete_End IfNext
Questo script elimina le stampanti LPT ma lascia le stampanti USB installate.
3
salvare lo script .
Programmazione © www.354353.com