Usuário com melhor resposta
Mapear Impressoras por GRUPO.

Pergunta
-
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
Respostas
-
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.UserNameSet 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
NextQualquer 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
Todas as Respostas
-
UP... me ajudem pessoal... obrigado!
Albert Santos- Editado Santos Ber quinta-feira, 13 de maio de 2010 21:50 UP
-
-
-
Veja se esses links te ajudam.
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. -
Bom Gabriel, é mais ou menos parecido com a versao final do script do primeiro post que voce fez, mas ainda nao atende minha necessidade.
Vamos lá... vou colocar o cenario abaixo e vc tenta me ajudar:
Existem varios grupos de segurança no AD:
SPPRINT01
SPPRINT02
SPPRINT03
As impressoras estao compartilhadas da seguinte maneira:
\\servidor\PRINT01
\\servidor\print02
\\servidor\print03
NOTE QUE O NOME DA IMPRESSORA TEM REFERENCIA COM O GRUPO MAS O NOME É DIFERENTE.
Enfim, na impressora PRINT01 somente tem acesso quem o grupo SOPRINT01 e assim por diante.
Dessa maneira, qdo o user logar na maquina, o script tem q ver a quais grupos ele pertence e instalar a impressora correspondente.
Se ele faz parte do grupo SPPRINT01, ele instala a PRINT01.
Se ele faz parte do grupo SPPRINT01 e SPPRINT02 ele irá instalar as impressoras PRINT01 e PRINT02.
Nao importa qual vai ficar como default... o usuario se vira qto a isso.
Obrigado.
Albert Santos -
Outra coisa gabriel, vc me pediu alguns dados pra responder outro topico, segue o link:
Poderia me ajudar nesse tbm?! Abraços
Albert Santos -
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.UserNameSet 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
NextQualquer 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
-