none
Instalação automatizada de impressoras RRS feed

  • Pergunta

  • Bom Pessoal!

    Encontrei um script aqui no forum de um colega e customizei ele para meu ambiente, este script verifica qual grupo o usuario pertence e ele mapeia as impressoras mencionadas, porem gostaria de incluir neste script que ele mapeie a impressora caso ela nao estiver mapeada, se estiver va para o proximo passo ou se ja estiver todas mapeadas nao faça nada, alguém poderia me ajudar.

    'Script Mapeamento de impressora por grupo do usuário
    'Por Leonardo Couto Conrado
    'On Error Resume Next
    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")
    i=0
    For Each objGroup In objUser.Groups
        Select Case objGroup.Name
            Case "GP_PROJETOS" ' AQUI É O GRUPO QUE VC DESEJA CONECTAR A IMPRESSORA ABAIXO
        objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTCL01" 'AQUI É O CAMINHO DA IMPRESSORA COMPARTILHADA NO SEU SERVIDOR
        objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB01"
        objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB02"
        objNetwork.SetDefaultPrinter "\\SRV01\PRTPB01" 'AQUI SETA A IMPRESSORA QUE FOI CONECTADA NA LINHA ACIMA COMO PADRÃO
            Case "GP_ADMINS" 
                   objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB01"
                   objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB02"
                   objNetwork.SetDefaultPrinter "\\SRV01\PRTPB01"
            Case "GP_RH"
        objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTCL02"
        objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB03"
        objNetwork.SetDefaultPrinter "\\SRV01\PRTPB03"
            Case "GP_TI"
                    objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB04"
        objNetwork.SetDefaultPrinter "\\SRV01\PRTPB04"
            Case "GP_COMPRAS"
                    objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB01"
        objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB02"
    objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB05"
        objNetwork.SetDefaultPrinter "\\SRV01\PRTPB05"
            Case "GP_MEC"
                    objNetwork.AddWindowsPrinterConnection "\\SRV01\PRTPB06"
        objNetwork.SetDefaultPrinter "\\SRV01\PRTPB06"
        End Select
    Next

    segunda-feira, 11 de junho de 2012 13:53

Respostas

Todas as Respostas