Hello,
I have been asked to create a group policy which includes a domain wide logon script to map about 6 printers on the same server to all users PC's Printer folder. I wanted to see if someone could proofread as my VB skills have diminished since college;
Dim multiPrinter, UNCpath1, UNCpath2, UNCpath3, UNCpath4, UNCpath5, UNCPath6
UNCpath1 = "\\servername\d jt110"
UNCpath2 = "\\servername\l j4250-b"
UNCpath3 = "\\servername\l j4250-f"
UNCpath4 = "\\servername\l j4700c"
UNCpath5 = "\\servername\R icoh-Back"
UNCpath6 = "\\servername\R icoh-Front"
Set multiPrinter = CreateObject("W Script.Network" )
multiPrinter.Ad dWindowsPrinter Connection UNCpath1
multiPrinter.Ad dWindowsPrinter Connection UNCpath2
multiPrinter.Ad dWindowsPrinter Connection UNCpath3
multiPrinter.Ad dWindowsPrinter Connection UNCpath4
multiPrinter.Ad dWindowsPrinter Connection UNCpath5
multiPrinter.Ad dWindowsPrinter Connection UNCpath6
WScript.Echo "Your printer is mapped from : " & UNCpath1 _
& "and from : " & UNCpath2
WScript.Quit
Any feedback is greatly appreciated! Thanks!
Email: [Removed]
I have been asked to create a group policy which includes a domain wide logon script to map about 6 printers on the same server to all users PC's Printer folder. I wanted to see if someone could proofread as my VB skills have diminished since college;
Dim multiPrinter, UNCpath1, UNCpath2, UNCpath3, UNCpath4, UNCpath5, UNCPath6
UNCpath1 = "\\servername\d jt110"
UNCpath2 = "\\servername\l j4250-b"
UNCpath3 = "\\servername\l j4250-f"
UNCpath4 = "\\servername\l j4700c"
UNCpath5 = "\\servername\R icoh-Back"
UNCpath6 = "\\servername\R icoh-Front"
Set multiPrinter = CreateObject("W Script.Network" )
multiPrinter.Ad dWindowsPrinter Connection UNCpath1
multiPrinter.Ad dWindowsPrinter Connection UNCpath2
multiPrinter.Ad dWindowsPrinter Connection UNCpath3
multiPrinter.Ad dWindowsPrinter Connection UNCpath4
multiPrinter.Ad dWindowsPrinter Connection UNCpath5
multiPrinter.Ad dWindowsPrinter Connection UNCpath6
WScript.Echo "Your printer is mapped from : " & UNCpath1 _
& "and from : " & UNCpath2
WScript.Quit
Any feedback is greatly appreciated! Thanks!
Email: [Removed]