Printer Logon Script Not Setting Correct Default Printer

[martyn]

Hello all,

 

I have an annoying printer script error,

 

Here's the script applying to all authenticated users which correctly maps the three printers when the user logs in but always sets the default to Laser-Nul instead of the ICT1 Mono which it should be:

 

 

 

'Name : addprinter.vbs

'Author : Matt Davies

'Date : 22/03/2006

'Description : - Used to add printers for a user

' - Used inconjunction with group policy at Workstation level so it runs per room

' - Needs to be ran under "USER" Logon scripts

Option Explicit

On Error Resume Next

Dim objNetwork

 

'declare the printer names - add as necessary

Dim strUNCPrinter1

Dim strUNCPrinter2

Dim strUNCPrinter3

 

'set the UNC path to the printers you want mapped - add as necessary

strUNCPrinter1 = "\\pc-bashful\PC-ICT1-MONO"

strUNCPrinter2 = "\\pc-bashful\PC-ICT1-COLOUR"

strUNCPrinter3 = "\\pc-bashful\LASER-NUL"

 

Set objNetwork = CreateObject("WScript.Network")

 

'Add the printer to the computer - add as necessary

objNetwork.AddWindowsPrinterConnection strUNCPrinter1

objNetwork.AddWindowsPrinterConnection strUNCPrinter2

objNetwork.AddWindowsPrinterConnection strUNCPrinter3

 

' Here is where we set the default printer - change if necessary

objNetwork.SetDefaultPrinter strUNCPrinter1

 

'End the script

Wscript.Quit

 

 

It is very frustrating, anyone got any ideas or know if there is a way to force the correct default through vbs.

 

Many thanks in advance

 

Martyn.

[contink]

stupid question but is the default printer actually online, working and available (permissions) to the users logging in?

 

Also, is the default printer directly connected to or shared from the machine you're trying to login with?

[martyn]

Thanks for the reply:

 

Yes the printer is alive and kicking and will print, permissions are set so that everyone can print,

The printer is shared from a server (pc-bashful) and the script is applied when a user logs into a machine in that particular room.

 

 

Thanks

 

 

Martyn

[pallen]

May be being a bit thick here, but cant you just move the default printer to the last one thats mapped? I have ours setup so that the default is the last one listed and I force the default printer in the script. That way if the script fails at any point, it has 2 chances to set the default printer correctly.

[martyn]

Thanks for the reply,

 

I will try that at lunch time, what is the force command in vbs?

 

 

Thanks

 

 

Martyn.

[plexer]

Think he means change the order in which you allocate them in your script so that the one you want to be default is last.

 

I use a similar script but also specify the printer driver to use.

 

Ben

[plexer]

Hmm just looked it up and specifying the drive is only needed for 9x/me which I don't have.

 

Makes it simpler then.

 

Ben

[pallen]

Yes, I mean put the printer (which you want as default) as the last one that is mapped. It is then set as the default. Sorry if it was a bit vague, cant focus my eyes this morning

[srochford]

Try commenting out the "on error resume next" to see if some error (which I can't see!) is happening to prevent the code getting to that last line. Also, run the script with the debugger to see if that gives you any other useful info.

[martyn]

Thanks again for all the replies, ok now trying a slightly altered script,

See below,

 

If i comment out (on error resume next) I get a overlapping IO script host error on line 18: "" objNetwork.AddWindowsPrinterConnection strUNCPrinter ""

 

Then it only maps 'laser nul' not the other two,

but if the 'on error resume next' is there it maps all three but sets the wrong default.

 

Eek !!!

 

Cant kids use a pen and paper !

 

Thanks again.

 

 

' SetDefaultPrinter.vbs - Windows logon script example

' PrintersDefault.vbs - Set the default printer

' VBScript - to map a network printer

' Author Guy Thomas http://computerperformance.co.uk/

' Version 1.4 - April 24th 2005

' -----------------------------------------------------------------'

Option Explicit

 

Dim objNetwork, strUNCPrinter, strUNCPrinter1, strUNCPrinter2

 

 

strUNCPrinter = "\\pc-bashful\LASER-NUL"

strUNCPrinter1 = "\\pc-bashful\PC-ICT1-COLOUR"

strUNCPrinter2 = "\\pc-bashful\PC-ICT1-MONO"

 

 

Set objNetwork = CreateObject("WScript.Network")

objNetwork.AddWindowsPrinterConnection strUNCPrinter

objNetwork.AddWindowsPrinterConnection strUNCPrinter1

objNetwork.AddWindowsPrinterConnection strUNCPrinter2

 

' Here is where we set the default printer to strUNCPrinter

objNetwork.SetDefaultPrinter strUNCPrinter2

 

WScript.Quit

 

' End of Guy's Windows logon example VBScript.

[plexer]

Try this:

 

Option Explicit

 

Dim objNetwork, strUNCPrinter, strUNCPrinter1, strUNCPrinter2

 

 

strUNCPrinter = "\\pc-bashful\LASER-NUL"

strUNCPrinter1 = "\\pc-bashful\PC-ICT1-COLOUR"

strUNCPrinter2 = "\\pc-bashful\PC-ICT1-MONO"

 

 

Set objNetwork = CreateObject("WScript.Network")

 

 

 

 

'Remove ALL old printers

'Enumerate all printers first, after that you can select the printers you want by performing some string checks

Set WSHPrinters = objNetwork.EnumPrinterConnections

For LOOP_COUNTER = 0 To WSHPrinters.Count - 1 Step 2

'To remove only networked printers use this If Statement

If Left(WSHPrinters.Item(LOOP_COUNTER +1),2) = "\\" Then

objNetwork.RemovePrinterConnection WSHPrinters.Item(LOOP_COUNTER +1),True,True

End If

'To remove all printers incuding LOCAL printers use this statement and comment out the If Statement above

'objNetwork.RemovePrinterConnection WSHPrinters.Item(LOOP_COUNTER +1),True,True

Next

'end delete existing printers

 

objNetwork.AddWindowsPrinterConnection strUNCPrinter

objNetwork.AddWindowsPrinterConnection strUNCPrinter1

objNetwork.AddWindowsPrinterConnection strUNCPrinter2

 

' Here is where we set the default printer to strUNCPrinter

objNetwork.SetDefaultPrinter strUNCPrinter2

 

WScript.Quit

 

' End of Guy's Windows logon example VBScript.

 

Should delete existing printers then map new ones.

 

Ben

[martyn]

Cheers for that ! Will Try That One Now.

 

 

Martyn

[martyn]

Ok, there is an error on that one, WSHprinter variable not defined.

 

Martyn.

[Iain]

If you declare the WSHPrinters variable using the dim statement or comment out the Option Explicit statement, that sould get rid of the error.

 

Iain.