Help with script for adding printers when user logs on

  • Thread starter Thread starter cheung.jccheung
  • Start date Start date
C

cheung.jccheung

Hi,
I have a logon script for users at my office which adds all the network
printers:

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\cm4\SMX3501N"
WshNetwork.AddWindowsPrinterConnection "\\cm4\SMX3501NPCL6"
WshNetwork.AddWindowsPrinterConnection "\\cm4\HPLJ5000PCL5e"
WshNetwork.AddWindowsPrinterConnection "\\cm4\HPDJ800PS"
WshNetwork.AddWindowsPrinterConnection "\\RHA17\ESPR1800"

The script works wonderfully, the only problem is when someone logs
into RHA17. When they log in, Windows gives an error because the
printer is already attached locally. I cannot move the printer because
it loses certain functionalities when shared through a print server. Is
there a way to set an if then statement in the script that checks
whether the computer that the user is logging into is RHA17?
Thanks for your help!
 
Hi,
I have a logon script for users at my office which adds all the network
printers:

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\cm4\SMX3501N"
WshNetwork.AddWindowsPrinterConnection "\\cm4\SMX3501NPCL6"
WshNetwork.AddWindowsPrinterConnection "\\cm4\HPLJ5000PCL5e"
WshNetwork.AddWindowsPrinterConnection "\\cm4\HPDJ800PS"
WshNetwork.AddWindowsPrinterConnection "\\RHA17\ESPR1800"

The script works wonderfully, the only problem is when someone logs
into RHA17. When they log in, Windows gives an error because the
printer is already attached locally. I cannot move the printer because
it loses certain functionalities when shared through a print server. Is
there a way to set an if then statement in the script that checks
whether the computer that the user is logging into is RHA17?
Thanks for your help!
Click to expand...

Set oShell = CreateObject( "WScript.Shell" )
comp=oShell.ExpandEnvironmentStrings("%ComputerName%")
Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\cm4\SMX3501N"
WshNetwork.AddWindowsPrinterConnection "\\cm4\SMX3501NPCL6"
WshNetwork.AddWindowsPrinterConnection "\\cm4\HPLJ5000PCL5e"
WshNetwork.AddWindowsPrinterConnection "\\cm4\HPDJ800PS"
if UCASE(comp) <> "RHA117" Then
WshNetwork.AddWindowsPrinterConnection "\\RHA17\ESPR1800"
End If


See tip 9956 » How do I use an environment variable in VBScript?
in the 'Tips & Tricks' at http://www.jsifaq.com


Jerold Schulman
Windows Server MVP
JSI, Inc.
http://www.jsiinc.com
http://www.jsifaq.com
 
Back
Top