Windows understøtter flere scriptsprog , herunder Visual Basic Scripting Edition eller VBScript. Med intuitive , engelsk- lignende syntaks er VBScript et let sprog at lære. VBScript alene er et miljø egnet til mange almindelige administrative opgaver , men dens større værdi kommer fra dens evne til at interagere med andre komponenter i operativsystemet , såsom Windows Management Instrumentation service ( WMI ) . WMI gemmer detaljerede oplysninger om din computer og kan bruges i forbindelse med VBScript til at overvåge eller finde ud af tilstanden af ​​enhver komponent , der overholder WMI -standarder , herunder at tilføje eller slette printer objekter. Ting du skal
Microsoft Windows 2000 eller nyere
Vis Flere Instruktioner
1

Log på computeren med en konto, der har administratorrettigheder.
< Br > 2.

Åbn Windows Notesblok ved at skrive " notepad " i søgefeltet på "Start "-menuen. Hvis du bruger Windows XP , skal du klikke på "Start " og derefter "Run ... ," type " notepad " og tryk " OK".
3

Klik på " Format " i menuen bar i Notesblok og derefter vælge " Word Wrap " for at skifte denne funktion. Dette vil gøre dit script lettere at læse.
4

Type strComputer = " . " på den første linje i filen . Dette indikerer, at du vil have scriptet til at køre mod den lokale computer. Hvis du ønsker at køre scriptet mod en anden computer og har de relevante tilladelser , kan du erstatte " . " med navnet på fjerncomputeren.
5.

Tilføj følgende linje kode til dit script . Før du kan søge i WMI service for oplysninger om computeren , skal VBScript først vedhæfte, eller binde i denne tjeneste

Set objWMIService = GetObject ( ". Winmgmts : { impersonationLevel = udgive } \\ \\ " & strComputer & " \\ root \\ cimv2 " )
6

Query WMI service for en liste over alle de printere, installeret på den lokale computer , og for hver printer fundet , at bekræfte sletningen. Komplet scriptet ved at indtaste følgende kode :

Set colPrinters = objWMIService.ExecQuery ( "Select * fra Win32_Printer " )

For Each objPrinter i colPrinters

RET = MsgBox ( " Er du sikker på du vil slette følgende printer: " & objPrinter.Name , vbYesNo , "Bekræft printer sletning" )
p Hvis RET = 6 Så

objPrinter.Delete_
< p> End If

Næste

Wscript.Quit
7

Gem Notesblok fil med extension * . vbs og derefter dobbeltklikke på filen for at starte scriptet.