none
Script Logon Mapeamento Impressora Local Por grupo de Usuarios RRS feed

  • Pergunta

  • Bom dia pessoal,

    Eu estou com um probleminha aqui e gostaria da ajuda de vocês, se for possível é claro.

    Cenário: Win 2008 Rs2

    Clientes: Thinstation

    Aqui na rede os clientes usam o thinstation para se conectar ao servidor por RDP

    Então todas as sessões são feitas no servidor e não no cliente.

    As impressoras são ligadas pela rede (não USB ou LPT)

    Todas as impressoras estão instaladas no servidor como impressoras locais.

    Exemplo: (HP LaserJet 4250 PCL 6)

    Eu preciso fazer um script de logon que faça por Grupo de Usuários.

     

    ·         Definir impressora padrão por departamento (grupo)

    o   Set HP LaserJet 4250 PCL 6 default vendas

    ·         Definir mapeamento de pasta compartilhada por departamento

    o   Set X: \\dc01\empresa\vendas

    ·         Definir mapeamento de pasta compartilhada por usuário

    o   Set Y: \\dc01\empresa\users\%username%

    ·         Definir mapeamento de pasta compartilhada para todos os usuários

    o   Set Z: \\dc01\empresa\Public

     

     

    O mapeamento das pastas é tranqüilo fazer o problema maior esta no da impressora.

    sexta-feira, 9 de abril de 2010 12:59

Respostas

  • Veja se é isso que precisa e qualquer duvida poste.

    Salve como vbs.

    Dim objNetwork, objShell, sUser, sMapUser
    Set objNetwork = CreateObject("Wscript.network")
    Set objShell = CreateObject( "WScript.Shell" )

    sUser= objShell.ExpandEnvironmentStrings("%UserName%")
    sMapUser = "\\dc01\users\" + sUser

    'Adiciona a impressora e seta como default
    objNetwork.AddWindowsPrinterConnection "\\servidor\impressora"
    objNetwork.SetDefaultPrinter "\\servidor\impressora "

    'Adiciona Unidades de Rede
    objNetwork.MapNetworkDrive "X:", \\dc01\empresa\vendas
    objNetwork.MapNetworkDrive "Y:", sMapUser
    objNetwork.MapNetworkDrive "Z:", \\dc01\empresa\Public

    Se for util vote.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    • Marcado como Resposta Diego F. Luisi segunda-feira, 12 de abril de 2010 15:59
    sábado, 10 de abril de 2010 21:49

Todas as Respostas

  • Veja se é isso que precisa e qualquer duvida poste.

    Salve como vbs.

    Dim objNetwork, objShell, sUser, sMapUser
    Set objNetwork = CreateObject("Wscript.network")
    Set objShell = CreateObject( "WScript.Shell" )

    sUser= objShell.ExpandEnvironmentStrings("%UserName%")
    sMapUser = "\\dc01\users\" + sUser

    'Adiciona a impressora e seta como default
    objNetwork.AddWindowsPrinterConnection "\\servidor\impressora"
    objNetwork.SetDefaultPrinter "\\servidor\impressora "

    'Adiciona Unidades de Rede
    objNetwork.MapNetworkDrive "X:", \\dc01\empresa\vendas
    objNetwork.MapNetworkDrive "Y:", sMapUser
    objNetwork.MapNetworkDrive "Z:", \\dc01\empresa\Public

    Se for util vote.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    • Marcado como Resposta Diego F. Luisi segunda-feira, 12 de abril de 2010 15:59
    sábado, 10 de abril de 2010 21:49
  • Sim, é praticamente isso que eu preciso

    Só falta apenas um detalhe, no meu caso a impressora não é compartilhada, ela é ligada por cabo de rede, mas é instalada como local,

    e queria colocar um "If" na impressora pra usar a Default por grupo

    If group = Vendas

    objNetwork.SetDefaultPrinter "\\servidor\impressora "
    if group = RH

    e como é só objNetwork.SetDefaultPrinter \\servidor\impressora_rh

    Creio que esse adiciona impressora serve só para impressoras compartilhadas na rede, precisso trocar esse \\ por algo que especifique local,

    obrigado

    é praticamente isso oque eu preciso,

     

    segunda-feira, 12 de abril de 2010 12:06
  • Para fazer isso por departamento aplique scripts na OU de cada departamento com os scripts configurados para aplicar a impressora do departamento.

    Compartilhe essa impressora.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    segunda-feira, 12 de abril de 2010 12:35
  • A Impressora é local, é os usuarios estao acessando por TS

    preciso compartilhar pra definir como padrão?

    E esse erro?

    segunda-feira, 12 de abril de 2010 12:55
  • Desculpe não tinha entendido.

    Se a impressora já está adicionada localmente e só quer definir como default faça o seguinte:

    objNetwork.SetDefaultPrinter "nome da impressora local"

    Para resolver o erro que está acontecendo inclua as aspas "fetacpddc01\Geral"

    Qualquer duvida poste.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    segunda-feira, 12 de abril de 2010 13:11
  • Obrigado pelo script

    Ficou muito bom,

    eu só queria fazer esse script com uns "Caso" pra usar o mesmo script para todos os grupos?

    Pode me ajudaR?

     

    Caso grupo = vendas então

    objNetwork.SetDefaultPrinter "vendas"

    Caso grupo = cpd então

    objNetwork.SetDefaultPrinter "cpd"

    • Sugerido como Resposta Diony Luiz Ruaro sexta-feira, 28 de janeiro de 2011 17:31
    segunda-feira, 12 de abril de 2010 16:02
  • Ok.

    Os usuários podem estar nos 2 grupos ou não?

    Só me responda isso e já te passo um esboço.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    segunda-feira, 12 de abril de 2010 16:04
  • Segue o script.

    Dim objNetwork
    dim sDomain, sGroup, sUser
    dim objGroup, objUser
    dim bMember

    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) = "VENDAS " Then
           objNetwork.SetDefaultPrinter "vendas"
        End If
              
    Next

    Coloque o nome do Grupo em letras maiusculas.

    Qualquer dúvida poste.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    segunda-feira, 12 de abril de 2010 16:52
  • Nossa...
    terça-feira, 13 de abril de 2010 13:48
  • Ola Gabriel

     

    Seguindo os seus modelos criei um script de logon e gostaria de saber se vc poder dar uma olhada e comentar os acertos e erros e possivel ?

    sexta-feira, 3 de dezembro de 2010 22:19
  • Veja se é isso que precisa e qualquer duvida poste.

    Salve como vbs.

    Dim objNetwork, objShell, sUser, sMapUser
    Set objNetwork = CreateObject("Wscript.network")
    Set objShell = CreateObject( "WScript.Shell" )

    sUser= objShell.ExpandEnvironmentStrings("%UserName%")
    sMapUser = "\\dc01\users\" + sUser

    'Adiciona a impressora e seta como default
    objNetwork.AddWindowsPrinterConnection "\\servidor\impressora"
    objNetwork.SetDefaultPrinter "\\servidor\impressora "

    Boa tarde,

       Gabriel, no meu caso preciso saber como elaboraria o script.

    Situação: Tenho um servidor de impressão e as estações dos usuários não estão no domínio , então quero criar um script para mapear as filas de impressão.

    Para a estação de trabalho do usuario autenticar no servidor criei esse script:

    net use \\servidor\impresssora /USER:usuario senha

    segunda-feira, 22 de junho de 2015 16:27