Ta bort alla skrivare med VBScript

Windows stöder flera skriptspråk , inklusive Visual Basic Scripting Edition eller VBScript . Med intuitiva , engelska-liknande syntax är VBScript ett lätt språk att lära sig . VBScript är ensam en miljö som lämpar sig för många vanliga administrativa uppgifter , men dess större värde kommer från dess förmåga att samverka med andra komponenter i operativsystemet, till exempel Windows Management Instrumentation Service ( WMI ) . WMI sparar detaljerad information om din dator och kan användas tillsammans med VBScript för att övervaka eller ta reda på läget i alla komponenter som är förenlig med WMI standarder, inklusive lägga till eller ta bort skrivare objekt .

Du behöver : . .
Microsoft Windows 2000 eller nyare

1
Logga in på datorn med ett konto som har administratörsbehörighet

2 .
Öppna Windows Anteckningar genom att skriva ” notepad ” i sökfältet på ” Start ” -menyn . Om du använder Windows XP klickar du på ”Start” och sedan ” Kör . . . , ”typ ” notepad ” och tryck på ”OK ”.
3 .
Klicka på ” Format ” på menyraden i Anteckningar och välj sedan ” Automatiskt radbyte ” för att växla den funktionen. Detta kommer att göra ditt manus blir lättare att läsa .
4 .
Typ strComputer=” . ” på första raden i filen . Detta tyder på att du vill att skriptet ska köras mot den lokala datorn . Om du vill köra skriptet mot en annan dator och har rätt behörigheter kan du ersätta ” . ” med namnet på fjärrdatorn .
5 .
Lägg till följande kodrad i ditt manus . Innan du kan söka i WMI tjänsten för information om datorn måste VBScript bifoga först , eller binda , att denna tjänst

Set objWMIService=GetObject ( ” winmgmts . { impersonationLevel=imitera } ! \ \ ” strComputer ” \ root \ cimv2 ” )
6 .
Query WMI tjänsten för en lista över alla skrivare som är installerade på den lokala datorn , och för varje skrivare som hittas , bekräfta raderingen. Fyll i skriptet genom att skriva in följande kod :

Set colPrinters=objWMIService. ExecQuery ( ” SELECT * FROM Win32_Printer ” )

For Each objPrinter i colPrinters

RET=MsgBox ( ” Är du säker att du vill ta bort följande skrivare : ” objPrinter. Name , vbYesNo , ” Bekräfta skrivare Borttagande ” )

Om ret=6 Sedan

objPrinter . Delete_

End om

Nästa

wscript. quit
7 .
Spara fil i Anteckningar med tillägget *. vbs och dubbelklicka sedan på filen för att starta skriptet .

tips och varningar