Slik sletter du alle Skrivere Med VBScript

Slik sletter du alle Skrivere Med VBScript


Windows støtter flere skriptspråk, inkludert Visual Basic Scripting Edition eller VBScript. Med intuitive, engelsk-lignende syntaks, er VBScript et enkelt språk å lære. VBScript alene er et miljø som passer for mange vanlige administrative oppgaver, men det er større verdi kommer fra dens evne til å samhandle med andre komponenter i operativsystemet, for eksempel Windows Management Instrumentation Tilbud (WMI). WMI lagrer detaljert informasjon om datamaskinen din og kan brukes i forbindelse med VBScript å overvåke eller finne ut tilstanden til en komponent som er i samsvar med WMI-standarder, inkludert å legge til eller slette skriverobjekter.

Bruksanvisning

1 Logg på datamaskinen med en konto som har administrative rettigheter.

2 Åpne Windows Notisblokk ved å skrive "notepad" i søkefeltet på "Start" -menyen. Hvis du bruker Windows XP, klikker du på "Start" og deretter "Kjør ...," type "notepad" og trykk "OK".

3 Klikk "Format" på menylinjen i Notepad, velg deretter "Word Wrap" for å slå av denne funksjonen. Dette vil gjøre manuset lettere å lese.

4 Skriv strComputer = "." på den første linjen i filen. Dette indikerer at du vil at skriptet skal kjøres mot den lokale datamaskinen. Hvis du ønsker å kjøre skriptet mot en annen datamaskin og har de nødvendige tillatelsene, kan du erstatte "." med navnet på den eksterne datamaskinen.

5 Legg til følgende linje med kode til skriptet. Før du kan spørre WMI-tjenesten for informasjon om datamaskinen, må VBScript først feste eller binde, til denne tjenesten.

Sett objWMIService = GetObject ( "winmgmts: {impersonationLevel = opptre} \" & strComputer & "\ root \ cimv2")

6 Spørring WMI-tjenesten for en liste over alle skrivere som er installert på den lokale datamaskinen, og for hver skriver funnet, bekrefter slettingen. Fullfør script ved å skrive inn følgende kode:

Sett colPrinters = objWMIService.ExecQuery ( "Velg * fra Win32_Printer")

For hver objPrinter i colPrinters

ret = MsgBox("Are you sure you want to delete the following printer: " & objPrinter.Name, vbYesNo, "Confirm Printer Deletion")

Hvis ret = 6 Da

objPrinter.Delete_

Slutt om

neste

Wscript.Quit

7 Lagre Notisblokk-fil med filtypen * VBS, og dobbeltklikk på filen for å starte skriptet.

Hint

  • Hvis du vil vise en liste over installerte skrivere uten å slette dem, endre linje med kode som leser "objPrinter.Delete_" til "Wscript.Echo objPrinter.Name."
  • Kjører koden vil slette alle lokale og nettverksskriverobjekter fra den lokale datamaskinen. Hvis du sletter en skriver utilsiktet, bruke "Legg til skriver" veiviseren for å installere det.