Hoe te verwijderen Alle printers met VBScript

Hoe te verwijderen Alle printers met VBScript


Windows ondersteunt verschillende scripting talen, waaronder Visual Basic Scripting Edition of VBScript. Met intuïtieve, Engels-achtige syntax, VBScript is een makkelijke taal om te leren. VBScript alleen al is een omgeving die geschikt is voor veel voorkomende administratieve taken, maar de grotere waarde is afkomstig van de mogelijkheid tot interactie met andere componenten van het besturingssysteem, zoals Windows Management Instrumentation Dienst (WMI). WMI slaat gedetailleerde informatie over uw computer en kan worden gebruikt in combinatie met VBScript om toezicht te houden of uit te vinden de toestand van een component die voldoet aan de WMI normen, waaronder het toevoegen of verwijderen printer objecten.

instructies

1 Meld u aan op uw computer met een account die beheerdersrechten heeft.

2 Open Windows Kladblok door het intikken van "notepad" in het zoekveld in het menu "Start". Als u gebruik maakt van Windows XP, klikt u op "Start" en vervolgens op "Run ...," type "notepad" en druk op "OK."

3 Klik op "Format" op de menubalk in Kladblok, selecteer "Word Wrap" om die functie uit te schakelen. Dit zal je script gemakkelijker te lezen.

4 Typ strComputer = "." op de eerste regel van het bestand. Dit geeft aan dat u het script uit te voeren tegen de lokale computer. Wilt u het script tegen een andere computer draaien en hebben de juiste machtigingen, kunt u vervangen "." de naam van de externe computer.

5 Voeg de volgende regel code aan uw script. Voordat u de WMI-service voor informatie over de computer kan opvragen, moet VBScript eerst hechten of binden, die dienst.

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

6 Vraag het WMI service voor een lijst van alle printers op de lokale computer is geïnstalleerd, en voor elke printer gevonden, bevestigen verwijdering. Vul het script door het invoeren van de volgende code:

Set colPrinters = objWMIService.ExecQuery ( "Selecteer * uit Win32_Printer")

Voor elke objPrinter in colPrinters

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

Als ret = 6 Toen

objPrinter.Delete_

Stop als

volgende

WScript.Quit

7 Sla het Kladblok-bestand met de extensie * .vbs, en dubbelklik op het bestand om het script te starten.

Hints

  • Als u een lijst met geïnstalleerde printers te bekijken zonder ze daadwerkelijk te verwijderen, wijzigt u de regel code die "objPrinter.Delete_" leest "Wscript.Echo objPrinter.Name."
  • Het uitvoeren van de code zal alle lokale en netwerkprinter voorwerpen uit de lokale computer te verwijderen. Als u een printer per ongeluk verwijderen, gebruikt u de "Printer toevoegen" wizard om het opnieuw te installeren.