The script below will allow end users to be able to add their own network printer via a automated script.
The script will also prompt the end user if they would like to make it the default printer and it will make this change for them.
On error resume next
Set WshNetwork = CreateObject("WScript.Network")
'Change these for each printer
PrinterName = "Xerox4595"
PrinterDriver = "Xerox 4595 PS"
strServer = "\\YourPrinterLocation\"
StrApp = "Printer Status"
msgbox "This program will add the following printer: " & PrinterName & vbcrlf &_
"After choosing OK it may take about a minute for the printer driver to load.", vbokonly + 4096, "Add Printers"
PrinterPath = strServer & PrinterName
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
MsgBox "The following Network Printer has been added: " &_
vbCrLf & PrinterName,vbOKOnly + 4096, "Printer Status"
input = msgbox ("Would you like to set " & PrinterName & " as your default Printer?", vbyesno + 4096, strApp)
'msgbox input 'for testing
if input = "6" then
printer = strServer & PrinterName
MsgBox "Your default printer has been successfully set to: " & PrinterName, _
vbOKOnly + vbInformation + 4096, StrApp
if input = "7" then