HRSBTech
asked on
Printer GPO fails, not all printers mapped
I have changed my GPO's and thought the problem was fixed but apperently wasn't. I had one GPO that mapped all printers but was advised to change it, I now have three scripts that map 7 printers, the first script is the actual GPO script and the other two scripts are called through the first .vbs script.
The first script looks like this... the second script calls three lab printers and the third calls 2 printers...
any help would be great!! so confussed...
matt
'------------------------- ---------- ---------- ---------- ----'
Option Explicit
Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2
strUNCPrinter1 = "\\dhs01\DHS_STAFF_PHOTO"
strUNCPrinter2 = "\\dhs01\DHS_STAFF_LASER"
Set objNetwork = CreateObject("WScript.Netw ork")
objNetwork.AddWindowsPrint erConnecti on strUNCPrinter1
objNetwork.AddWindowsPrint erConnecti on strUNCPrinter2
objNetwork.SetDefaultPrint er strUNCPrinter2
runotherscript "DHS-staff-print-2.vbs"
Sub runotherscript(name)
Dim oShell
Set oShell = WScript.CreateObject("WSCr ipt.shell" )
oShell.run name, 1, true
Set oShell = Nothing
end sub
WScript.Quit
The first script looks like this... the second script calls three lab printers and the third calls 2 printers...
any help would be great!! so confussed...
matt
'-------------------------
Option Explicit
Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2
strUNCPrinter1 = "\\dhs01\DHS_STAFF_PHOTO"
strUNCPrinter2 = "\\dhs01\DHS_STAFF_LASER"
Set objNetwork = CreateObject("WScript.Netw
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.SetDefaultPrint
runotherscript "DHS-staff-print-2.vbs"
Sub runotherscript(name)
Dim oShell
Set oShell = WScript.CreateObject("WSCr
oShell.run name, 1, true
Set oShell = Nothing
end sub
WScript.Quit
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
matt