none
Problemas em script de impressoras RRS feed

  • Pergunta

  • Pessoal

    To precisando de uma ajuda de vocês

    Criamos aqui na empresa um script para a instalação das impressoras assim que o usuário logar na rede, só que el alguns usuários o script executa, mas não consegue identificar o grupo que o usuário faz parte e por isso não instala nenhuma impressora.

    O script identifica que tem impressoras instaladas via \\ apaga elas e depois entra em um case para a instalação das impressoras.

    Eu fiz um debug no script e verifiquei que no segundo for aonde coloquei em negrito, que ele não identifica o grupo que o usuário faz parte. 

    Será que alguém consegue me ajudar?

    Abraço

     

    on error resume next

    Set objNet = WScript.CreateObject("WScript.Network")

    Set objSysInfo = CreateObject("ADSystemInfo")

    Set objNetwork = CreateObject("Wscript.Network")

    Set Printers = objNet.EnumPrinterConnections

     

    strUserPath = "LDAP://" & objSysInfo.UserName

    Set objUser = GetObject(strUserPath)

     

    For i = 0 to Printers.Count - 1 Step 2

     

        If Left(ucase(Printers.Item(i+1)),2) = "\\" Then

           objNet.RemovePrinterConnection Printers.Item(i+1)

        End IF

    Next

     

    For Each strGroup in objUser.MemberOf

        strGroupPath = "LDAP://" & strGroup

        Set objGroup = GetObject(strGroupPath)

        strGroupName = objGroup.CN

     

    Select Case strGroupName

     

    Case "#Grupo1"

            objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\x644"

    Case "#grupo2"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\x644"

     

    Case "grupo3"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\x644"

     

    Case "#Grupo4"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\HPLaserColor"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\W820"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\W820"

     

    Case "#grupo5"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\x644"

     

    Case "#grupo6"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\HPLaserColor"

     

    Case "#grupo7"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\W820"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\W820"

     

    Case "#grupo8"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\x644"

     

    Case "grupo9"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\T632_SMB"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"

    objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"

    objNetwork.SetDefaultPrinter "\\Printerserver\T632_SMB"

     

    End Select

    Next


    Luciano Aguiar Administrador de Redes
    segunda-feira, 31 de maio de 2010 13:29

Respostas