printers and login scripts

[ChrisP]

 on error resume next
Dim         objNetwork, compName
 
Set objNetwork     =     CreateObject("WScript.Network")
compName    =    lCase(left(objNetwork.ComputerName,3))
if compName = "lap" then compname = lCase(left(objNetwork.ComputerName,7))
 
 
Select Case compName
 
    Case "lib"
        nukePrinters
        objNetwork.AddWindowsPrinterConnection "\\printserver1\Library HP CP2020"
        objNetwork.SetDefaultPrinter "\\printserver1\Library HP CP2020"
 
    Case "sp-"
        objNetwork.AddWindowsPrinterConnection "\\printserver2\Kyocera TASKalfa 250ci"
        objNetwork.SetDefaultPrinter "\\printserver2\Kyocera TASKalfa 250ci"
 
    Case "lap-ent","lap_ent"
        nukePrinters
        objNetwork.AddWindowsPrinterConnection "\\daisy\e1"
        objNetwork.AddWindowsPrinterConnection "\\printserver1\e2-2600"
        objNetwork.AddWindowsPrinterConnection "\\printserver1\e3-cp2020"
        objNetwork.SetDefaultPrinter "\\printserver1\e3-CP2020"
 
    Case "lap-hum","lap_hum"
        nukePrinters
 
    Case "lap-mfl","lap_mfl"
        nukePrinters
 
End Select
 
 
function nukePrinters
strComputer = "."
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
if InStr(objPrinter.Name, "\\") > 0 then 
 WshNetwork.RemovePrinterConnection objPrinter.Name
end if 
Next
 
end function 
  

[Simcfc73]

Sort of related to this topic.

Setting default printers is mentioned here.

Just tried it on my 2003 domain and it works lovely... I just used a 2008 non DC server to do the preferences

Set Default Printer with Windows 2008 Server Group Policy Preferences - Set the Default Printer via Group Policy | Windows Server Administration

[reggiep]

This is a VBS script which runs at logon I use to remove:

Microsoft Office Document Image Writer
Microsoft XPS Document Writer
Send To OneNote 2007

The script:



Hope this helps.

I tried this and it works fine if I run it logged on as an admin, but if I call it to run during the logon scripts I get a premission denie error.
Can anyone suggest how I can change the permissions to let the script run, it's pointing to line 8 of the script!

Thanks

[reggiep]

Doh,
I put it in to the boot script and it worked fine.
Thanks

[mbrunt]

Use group policy?

[browolf]

an alternative

rundll32 printui.dll,PrintUIEntry /in /n\\SERVERX\XMono

[Michael]

I deploy printers per user, per computer or a combination of both using 2003 R2 Print Management.

As for setting up the default printer I use a reg file at logon to set the default:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows]
"Device"="\\\\SERVERNAME\\PRINTER-NAME,winspool,Ne03:"

The easiest way is to set a printer as default, then navigate to HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows within the registry and export the entries, then save the reg file within your NETLOGON share and update logon scripts accordingly.

[sted]

recently ive started deploying with the 2003 r2 method and deploying printers to a policy then assigning that to the appropriate ou or using filtering and applying it to a group then adding a login script running pushprinterconnection to xp pcs. To set the default i use a heavily cut down version of my old vbs script that just sets the dfault printer (sets it once as network printer then tries to set it as local printer and all my local printers are called local printer)

' Printers.vbs - Jonathan
Option Explicit
Dim objNetwork
on error resume next

Set objNetwork = CreateObject("WScript.Network") 
objNetwork.SetDefaultPrinter "\\server\Laser1"
objNetwork.SetDefaultPrinter "local printer"

i just copy a shortcut to that vbs scrpit to %allusersprofile%\start menu\programs\startup\printers.lnk and as i always copy it with a name specified if i move it to a new ou it will copy say suite.lnk or ks1.lnk as printers overwriting the old one. On older deployments i just did the vbs
objNetwork.SetDefaultPrinter "local printer"