logon script for printer

[ozzy]

Any help would be recieved with open arms!!!!
Just put the following logon script to map a printer in a OU GPO that I have been using to test policys before deploying them to a new domain, it worked fine with test user account but when I added another user to the OU nothing!!!!

Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\europa\itlaser"
objNetwork.SetDefaultPrinter "\\europa\itlaser"

any ideas, PLEASE.

[djm968]

Is the other user you have added a memebr Domain Admin security group?

Also check the security filtering on the GPO

[Ric_]

Also check out http://edugeek.net/index.php?name=Fo...iewtopic&t=404 for lots of info on this (and a ready made script that works!)

[Halfmad]

This is the printer script I use, adds the printer depending on the OU the computer in, rather than the user. Works great in here, add printer to server, add it to script, job done, it'll add itself to any computers in that department from then on.

Created with help from EDUGeek chaps:


on error resume next
'Set variables.

Set shell= WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
dim Counter, PrinterPath
Set objWshNetwork = CreateObject("WScript.Network")
Set objAdsSystemInfo = CreateObject("adsysteminfo")
Set objComputerName = GetObject("LDAP://" & objAdsSystemInfo.ComputerName)
Set objOU = GetObject(objComputerName.Parent)
strOU = replace(objOU.Name,"OU=","")
Set oPrinters = WshNetwork.EnumPrinterConnections

Dim computerName
computerName = LCase(WshNetwork.ComputerName)

'Add printers depending on AD OU containing computer.

Select Case strOU
Case "IT1"
removePrinters
addPrinter "\\print\Dell1700 IT1",True
addPrinter "\\print\HP2500C IT1",False
Case "IT2"
' removePrinters
addPrinter "\\print\HP LJ P2015n IT2",True

end select

function removePrinters()

FOR Counter = 0 to oPrinters.Count - 1
IF mid(oPrinters.Item(Counter), 1, 2) = "\\" THEN
PrinterPath = oPrinters.Item(Counter)
WshNetwork.RemovePrinterConnection PrinterPath, True, True
end if
next

end function

function addPrinter(strConnectString,isDefault)

if strConnectString <> "" then
strResult = WshNetwork.AddWindowsPrinterConnection(strConnectS tring)
if isDefault then
WshNetwork.SetDefaultPrinter strConnectString
end if
end if
end function


============

The true/false statements after the printer name dictate whether it's set as default or not. "removeprinters" only removes network and not local printers.

[aliv25]

Here is an example of a script we use for the LRC.
Note: The word school refers to the name of your server you use at your place.

rem ** Next line must not be deleted **
Set WshNetwork = CreateObject("WScript.Network")

rem ** This will delete existing printers **
On Error Resume Next
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 to oPrinters.Count - 1 Step 2
WshNetwork.RemovePrinterConnection oPrinters.Item(i)
Next

rem ** Setup new printer connection **
WshNetwork.AddWindowsPrinterConnection "\\SchoolPrint.School.local\LRC"

rem ** Setup default printer **
WshNetwork.SetDefaultPrinter "\\SchoolPrint.School.local\LRC"
MsgBox "Added Printer: LRC. This printer is default"

[mullet_man]

Use Ric_'s script, we have been using it here and it does the job perfect, not had one problem.

Cheers Ric_ :-)

[mrforgetful]

We use the R2 functionality of Server 2003 R2.

Before that I ran a script on the computer itself after imaging which would add the printer for anyone who logged on.