Windows støtter flere skriptspråk , inkludert Visual Basic Scripting Edition eller VBScript. Med intuitive , engelsk -lignende syntaks , er VBScript et lett 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 service ( WMI ) . WMI lagrer detaljert informasjon om datamaskinen, og kan brukes sammen med VBScript til å overvåke eller finne ut tilstanden i enhver komponent som samsvarer med WMI -standarder , inkludert å legge til eller slette skriverobjektene . Du trenger
Microsoft Windows 2000 eller nyere
Vis flere instruksjoner
en

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

2

Åpne Windows Notepad 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å menyen bar i Notepad , velg deretter " Word Wrap " for å veksle av denne funksjonen . Dette vil gjøre skriptet lettere å lese .
4

Type strComputer = " . " på første linje av 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 søke i WMI -tjenesten for informasjon om datamaskinen , må VBScript først feste , eller bind, til den tjenesten

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

Query WMI -tjenesten for en liste over alle skriverne som er installert på den lokale datamaskinen , og for hver skriver funnet, bekrefter slettingen. Fullføre manuset ved å skrive inn følgende kode :

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

Hver objPrinter i colPrinters

ret = MsgBox ( " Er du sikker på at du vil slette følgende skriver :" & objPrinter.Name , vbYesNo , "Bekreft Printer sletting ")
p Hvis ret = 6 Da

objPrinter.Delete_
< p > Slutt hvis

Neste

Wscript.Quit
7

Lagre Notisblokk-fil med filtypen * . vbs , og deretter dobbeltklikker du på filen for å starte skriptet.