Link to home
Start Free TrialLog in
Avatar of LeviDaily
LeviDailyFlag for United States of America

asked on

Computer Logon script to add multiple printers and set one as default

Here is my basic vbs script for adding these four network printers. The problem is users jump around so much that if one user logs on downstairs no matter what user it is need the same printer as default. How can I add this to my script. I need it to be scripts for computer not user and I will add them to group policy..will this script work for a computer logon script?

Set objWSHNetwork = CreateObject("WScript.Network")  'create network object
strConnectString = "\\server01\HP 4300N RICK AND JUDY OFFICE"
strResult = objWSHNetwork.AddWindowsPrinterConnection(strConnectString)

Set objWSHNetwork = CreateObject("WScript.Network")  'create network object
strConnectString = "\\server01\KM 4530 DOWNSTAIRS"
strResult = objWSHNetwork.AddWindowsPrinterConnection(strConnectString)

Set objWSHNetwork = CreateObject("WScript.Network")  'create network object
strConnectString = "\\server01\KM 5050 UPSTAIRS"
strResult = objWSHNetwork.AddWindowsPrinterConnection(strConnectString)

Set objWSHNetwork = CreateObject("WScript.Network")  'create network object
strConnectString = "\\server01\KM 4530 UPSTAIRS"
strResult = objWSHNetwork.AddWindowsPrinterConnection(strConnectString)
Avatar of elissaqp
elissaqp
Flag of Peru image
This is the script for setting a default printer:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")
For Each objPrinter in colInstalledPrinters
    objPrinter.SetDefaultPrinter()
Next
ASKER CERTIFIED SOLUTION
Avatar of elissaqp
elissaqp
Flag of Peru image
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of LeviDaily
LeviDaily
Flag of United States of America image

ASKER

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\PrintServer1\Xerox300"
WshNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"

That one worked! Anyone know if it will work for a computer logon script?