none
Mapear Impressoras por GRUPO. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Pessoal tenho varias impressoras compatilhadas e um grupo no ad criado para cada impressora. Apenas em esta nesse grupo pode isntalar a impressora e usa-la.

     

    Quero criar um script de logon que verifique a qual impressora o usuario tem acesso e instale.

     

    Tipo tenho os grupos:

    GRUPO1

    GRUPO2

    GRUPO3

    Ai tenho as impressoas:

    IMP1

    IMP2

    IMP3

     

    Quero q o script remova todas as impressoras mapeadas e depois verifique o seguinte, se usuario x esta no grupo GRUPO1 entao ele instala  a IMP1, se estiver no GRUPO2 tambem instala a IMP2 e assim por diante.

     

    Obrigado desde ja pela ajuda.

    Albert Santos
    quarta-feira, 12 de maio de 2010 19:53
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Cara,

    Salve como vbs e veja se é o que vc precisa.

    Dim objNetwork, sDomain, sUser, objUser

    Set objNetwork = CreateObject("WScript.Network")

    sDomain = objNetwork.UserDomain
    sUser = objNetwork.UserName

    Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)

    For each oGroup in objUser.Groups
        If UCase(oGroup.Name) = "SPPRINT01" Then
           objNetwork.AddWindowsPrinterConnection "\\servidor\PRINT01"
        End If
        If UCase(oGroup.Name) = "SPPRINT02" Then
           objNetwork.AddWindowsPrinterConnection "\\servidor\PRINT02"
        End If
        If UCase(oGroup.Name) = "SPPRINT03" Then
           objNetwork.AddWindowsPrinterConnection "\\servidor\PRINT03"
        End If         
    Next

    Qualquer dúvida poste e se for útil vote.

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta Santos Ber quarta-feira, 14 de julho de 2010 14:05
    terça-feira, 18 de maio de 2010 22:20
    |

Todas as Respostas