Sletning af netværks printere

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer where DeviceID = 'ScriptedPrinter'")
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next


det her skulle gøre så den sletter en given printer du kan jo selv lige lege lidt med at rette det til så du kan bruge det...

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next


den her den sletter alle printere.....

den anden sletter en printer ved navn ScriptedPrinter

Det er den sidste jeg skal bruge.. Men den laver fejl ved SWbemObject
I linien ved objPrinter.Delete

vil også sige, jeg tror måske godt du kan løbe ind i lidt problemer hvis printerne er installeret på en IP adr, for den sletter vist ikke IP adr. men hvis den bare (som jo er mest normalt) skal mappes via en Print server så tror jeg ikke der skulle være nogen problemer...

Det kan jeg ikke forstå for her var der ingen problemer....
Skriv lige det hele den skriver....

Script: H:\Printer.vbs
Linie: 7
Tegn: 5
Fejl: Provideren kan ikke udføre den forsøgte handling.
Kode: 80041024
Kilde: SWbemObject

kan du ikke smide hvad du har ændret i scriptet... hvis du da har ændret noget... (kan umiddelbart ikke finde SWbemObject...)

jeg havde ikke nogen problemer med at køre det her på min computer... den gjorde også hvad den skulle....

Men du må jo nok hellere være sikker på du er lokal admin på pc'en kunne være sådan noget??? ved det ikke lige umiddelbart... men hvis du bare har Copy/pastet det script jeg smed før.... så kan jeg sgu ikke lige se hvad det er...

det er direkte Copy/paste. Og jeg er Domæne admin her...

Det var sgu da mærkeligt... hmm.... ja det kan jeg godt se.... så burde det da ikke være noget problem at slette en printer.. hehe...

http://www.mcse.ms/archive68-2003-11-26907.html
hmm fandt lige det her..... må nok indrømme tror ikke jeg kan hjælpe dig mere... så du må jo lige tage at lade spørgsmålet være åben indtil der kommer en forbi der kan hjælpe dig lidt mere end mig... eller tag pointene selv og oprette et nyt... sry...

men du kan jo med fordel lige smide oppe i toppen option explicit også declare variablerne... eks...
har ikke umiddelbart bedre bud...

Jeg fandt ud af det..

On Error Resume Next
  set objNetwork = CreateObject("wscript.network")
  set objPrinters = ObjNetwork.EnumPrinterConnections
For i = 0 to ObjPrinters.Count - 1 Step 2
  PrinterPath = ObjPrinters.Item(i+1)
  ObjNetwork.RemovePrinterConnection PrinterPath, true, true
Next

ha ha.... ja okay... fornuftigt... ;)

egentlig burde du faktisk ha nogle point.. for din hjælp.. vi deler i porte du for 15.. opretter et emne..

nah.. behøver du ikke.... det ikke nødvendigt.. har rigelig.... du beholder dem bare.... du løste jo selv dit problem jeg gav dig bare et skub i den rigtige retning... ;)