Sign in
Microsoft.com
 
Script Center
 
 
 
Script Center > Scripting Forums > The Official Scripting Guys Forum! > assign printer
Ask a questionAsk a question
Search Forums:
 

Questionassign printer

  • Friday, November 06, 2009 2:02 PMpankajmcp Users MedalsUsers MedalsUsers MedalsUsers MedalsUsers Medals
     
    Sign In to Vote
    0
    Sign In to Vote
    hi

    we have windows 2003 with sp2 .printers are shared on server.we have AD.we have xp client pcs in domain.
    we want to setup following
    when user login all share printer will be assign .

    regards
    pankaj
     

All Replies

  • Wednesday, November 11, 2009 9:59 PMRob.Ford Users MedalsUsers MedalsUsers MedalsUsers MedalsUsers Medals
     
    Sign In to Vote
    0
    Sign In to Vote
    Hi Pankajmcp, if your printers are published in AD on the sharing options, you can use something like this:

    Const ADS_SCOPE_SUBTREE = 2

    set WN = CreateObject("WScript.Network")

    set ADConnection = CreateObject("ADODB.Connection")
    set ADCommand = CreateObject("ADODB.Command")
    ADConnection.Provider = "ADsDSOObject"
    ADConnection.Open("Active Directory Provider")
    ADCommand.ActiveConnection = ADConnection
    ADCommand.Properties("Page Size") = 1000
    ADCommand.Properties("Timeout") = 30
    ADCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    ADCommand.Properties("Cache Results") = False

    'Set Printer name to match on (change to match your printer names)
    pName = "SITECODE*"

    'Setup query - this is one line
    ADCommand.CommandText = "Select printerName, serverName from 'LDAP://dc=yourdomain,dc=xx,dc=xx' where objectClass = 'printQueue' AND " & "printerName = '" & pName & "'"

    set RecSet = ADCommand.Execute
    RecSet.MoveFirst()

    Do Until RecSet.EOF

     WN.AddWindowsPrinterConnection("\\" & RecSet.Fields("serverName").value & "\" & RecSet.Fields("printerName").value)
     recset.movenext
       
    Loop