Come eliminare tutte le stampanti con VBScript

Windows supporta diversi linguaggi di scripting , tra cui Visual Basic Scripting Edition , o VBScript . Con la sintassi intuitiva , simile all'inglese , VBScript è una lingua facile da imparare . Solo VBScript è un ambiente adatto per molte attività amministrative comuni , ma il suo maggior valore deriva dalla sua capacità di interagire con gli altri componenti del sistema operativo , come ad esempio il servizio Strumentazione gestione Windows (WMI) . WMI memorizza le informazioni dettagliate sul computer e può essere utilizzato in combinazione con VBScript per monitorare o scoprire lo stato di ogni componente che è conforme allo standard di WMI , compresa l'aggiunta o l'eliminazione di oggetti stampante . Cose che ti serviranno
Microsoft Windows 2000 o più recente
Show More Istruzioni
1

Accedere al computer con un account che dispone di autorizzazioni amministrative .

2

Apri Blocco Note di Windows , digitare " notepad " nel campo di ricerca nel menu "Start" . Se si utilizza Windows XP , fare clic su "Start" e poi su " Esegui ... ", digitare " notepad " e premere " OK ".
3

Fare clic su " Format " nel menu bar nel Blocco note , quindi selezionare " a capo automatico " per attivare o disattivare tale funzionalità . Questo renderà il vostro script più facili da leggere .
4

Tipo strComputer = " . " sulla prima riga del file . Questo indica che si desidera eseguire lo script contro il computer locale . Se si desidera eseguire lo script su un altro computer e di disporre delle autorizzazioni appropriate , è possibile sostituire " . " con il nome del computer remoto .
5

Aggiungere la seguente riga di codice al vostro script . Prima di poter interrogare il servizio WMI per le informazioni relative al computer , VBScript deve prima attaccare , o si legano , per tale servizio

objWMIService = GetObject ( ". Winmgmts : { impersonationLevel = impersonate } \\ \\ " & strComputer & " \\ root \\ CIMV2 " ) economici 6

Query il servizio WMI per un elenco di tutte le stampanti installate sul computer locale , e per ogni stampante ha trovato , confermare l'eliminazione. Completare lo script inserendo il seguente codice :

colPrinters = objWMIService.ExecQuery ( " Select * from Win32_Printer " ) per

Ogni objPrinter in colPrinters

ret = MsgBox ( " Sei sicuro di voler eliminare la seguente stampante : " & objPrinter.Name , vbYesNo , "Conferma Cancellazione stampante" ) per

ret = 6 Poi

objPrinter.Delete_

Fine se

Avanti

Wscript.Quit
7

Salvare il file di blocco note con estensione * . vbs , quindi fare doppio clic sul file per avviare lo script .