del printers (never scripted before =) )

[tech888]

I'm trying to get a script to delete all printers from a certain printer server (cal1) and add the printers I want with the default setting. however on some machines only one eng5si printer might exist. when i run the script it gives me an error that one eng5si connections doesn't exit, this is usually the first occurence (Thus is doesn't delete all the eng5si printers currently installed on the computer) Can any tell me how to write an if statement or some line that will bypass non existing printer connections and delete the rest of the eng5si on cal1.



this is the code
--------------------------------------------------------


Set objNetwork = WScript.CreateObject("WScript.Network&quot
objNetwork.RemovePrinterConnection "\\cal1\Eng5si1"
objNetwork.RemovePrinterConnection "\\cal1\Eng5si2"
objNetwork.RemovePrinterConnection "\\cal1\Eng5si3"

objNetwork.AddWindowsPrinterConnection "\\voyager\adminhp"
objNetwork.AddWindowsPrinterConnection "\\voyager\cgyadmin"
objNetwork.AddWindowsPrinterConnection "\\voyager\cgyadminDBS"

objNetwork.SetDefaultPrinter("\\voyager\adminhp&quot

 

[JPBERGEZ]

Hi,
in your case, and because you want to "clean" your server, I suggest a "On Error Resume Next" statement at the beginning of your script.
That is, when a printer does not exists, the error doesn't stop the script.
Thats all. ;-)

 

[tech888]

it worked like a charm
thanks JPBERGEz

 

[SMO6]

I'm trying to do the same thing, plz help! By no means am I a coder.

Is there special syntax for 'on eror resume next'?

 

[tech888]

that's exactly it.

the line is .........

On Error Resume Next

Rem : if an error occurs where there is no printer connection to REMOVE, the next line of code is execute