VB Assitance Needed

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • scott0037
    New Member
    • Oct 2007
    • 1

    #1

    VB Assitance Needed

    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]
    Last edited by debasisdas; Oct 3 '07, 03:24 PM. Reason: Removed mail id
Working...