none
Mapear unidade rede por grupo RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde Srs.

     

    Tenho uma GPO configurada para rodar um script no logon dos usuários para mapear unidade de rede e impressoras por grupo, porem ainda não esta em produção, pois quando logo com o usuário teste que criei, me aparece a seguinte mensagem “CN=grupo do usuário, OU=Grupo de trabalho....etc” e não é mapeado nada, este usuário é membro do grupo de trabalho e Domain Users.

     

    Quem puder ajudar agradeço...

     

    Valeu....

     

    domingo, 28 de outubro de 2007 16:53
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar
    Perfeito Leonardo!
    Obrigado pelo Script, segue um exemplo do Leonardo usando pastas mapeadas no servidor:


    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 "Teste1" ' AQUI É O GRUPO QUE VC DESEJA CONECTAR A PASTA ABAIXO
        objNetwork.MapNetworkDrive "X:", "\\servidor\Teste1"
    End Select

Next

    Abraços!

    • Sugerido como Resposta Langella segunda-feira, 20 de setembro de 2010 19:49
    • Marcado como Resposta Fábio JrModerator terça-feira, 31 de janeiro de 2012 14:51
    terça-feira, 9 de fevereiro de 2010 14:35
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Você poderia postar teu código aqui? Fica bem difícil "imaginar" o erro que você está encontrando...

    De qualquer forma, olha esse script:
    http://www.google.com.br/url?sa=t&ct=res&cd=1&url=http%3A%2F%2Fwww.microsoft.com%2Ftechnet%2Fscriptcenter%2Fresources%2Fqanda%2Fdec04%2Fhey1210.mspx&ei=2UglR424HYaKepPo4b4C&usg=AFQjCNG8UF_vOOGQ9UKmjUP2nSI8_9Tb9Q&sig2=kkDEllPYg2eNQLG3xRDFyA

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    segunda-feira, 29 de outubro de 2007 02:44
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    ai vai o codigo.....valeu pela atencao...

     

    On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objNetwork = CreateObject("Wscript.Network")

    strUserPath = "LDAP://" & objSysInfo.UserName
    Set objUser = GetObject(strUserPath)

    For Each strGroup in objUser.MemberOf
        strGroupPath = "LDAP://" & strGroup
        Set objGroup = GetObject(strGroupPath)
        strGroupName = objGroup.CN
        Wscript.Echo objUser.MemberOf

        Select Case strGroupName
            Case "grupoteste01"
      objNetwork.MapNetworkDrive "P:", "\\192.168.0.10\teste01"
              Case "grupoteste02"
      objNetwork.MapNetworkDrive "P:", "\\192.168.0.10\teste02"

            Case "Producao"
                'objNetwork.MapNetworkDrive "Z:", "\\SERVER\SHARE\Producao"

            Case "Vendas"
                objNetwork.MapNetworkDrive "Z:", "\\SERVER\SHARE\Vendas"
        End Select
    Next

     

    segunda-feira, 29 de outubro de 2007 20:19
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,


    retire a primeira linha do script, que faz com que ele não mostre nenhuma mensagem de erro e execute-o novamente. Depois mande o erro aqui que a gente tenta consertar.

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    quarta-feira, 31 de outubro de 2007 19:51
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Fiz com vc indicou.......ai esta o erro....

     

     

    "Script:

    \\estudo.com.br\SysVol\estudo.com.br\Policies\{9110240c6......}\User\Script\Logon\Mapear.vbs

    Linha: 7

    Caract.: 1

    Erro: O objeto não é uma coleção

    Código: 800A01C3

    Origem: Erro de tempo de execução do Microsoft VBScript"

     

    Abraços....

    quinta-feira, 1 de novembro de 2007 14:53
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Veja se esse link ajuda:

    http://www.rlmueller.net/MemberOf.htm

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    terça-feira, 6 de novembro de 2007 21:50
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Oh fera voce conseguiu resolver seu problema? Estou tendo o mesmo problema, se puder ajudar. Abs

     

     

    terça-feira, 5 de agosto de 2008 12:18
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Claudio_BH,

     

    Usa este script tinha postado em outra thread, tá funfando blz!! abç!!

     

     

     

     

     

    Code Snippet

    'Script Mapeamento de impressora por grupo do usuário
    'Por Leonardo Couto Conrado
    '02.07.2008
    '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 "SF_Armazem" ' AQUI É O GRUPO QUE VC DESEJA CONECTAR A IMPRESSORA ABAIXO
       objNetwork.AddWindowsPrinterConnection "\\bahasv101\KyoceraF" 'AQUI É O CAMINHO DA IMPRESSORA COMPARTILHADA NO SEU SERVIDOR
       objNetwork.SetDefaultPrinter "\\bahasv101\KyoceraF" 'AQUI SETA A IMPRESSORA QUE FOI CONECTADA NA LINHA ACIMA COMO PADRÃO
            Case "SF_Operacoes"
                objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
            Case "SF_Vendas"
       objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
            Case "SF_Administrativo"
                objNetwork.AddWindowsPrinterConnection"\\SERVIDOR\IMPRESSORA_SF_Administrativo" 
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Administrativo" 
        End Select

    Next

     

     

     

    • Sugerido como Resposta _Aragorn terça-feira, 9 de fevereiro de 2010 14:32
    terça-feira, 5 de agosto de 2008 13:19
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Preciso de um desse por usuario.

    não entendo nada de vbscript então por favor mastiguem

    segunda-feira, 6 de outubro de 2008 14:40
    |
  • Question
    Entrar para Votar
    1
    Entrar para Votar
    Perfeito Leonardo!
    Obrigado pelo Script, segue um exemplo do Leonardo usando pastas mapeadas no servidor:


    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 "Teste1" ' AQUI É O GRUPO QUE VC DESEJA CONECTAR A PASTA ABAIXO
        objNetwork.MapNetworkDrive "X:", "\\servidor\Teste1"
    End Select

Next

    Abraços!

    • Sugerido como Resposta Langella segunda-feira, 20 de setembro de 2010 19:49
    • Marcado como Resposta Fábio JrModerator terça-feira, 31 de janeiro de 2012 14:51
    terça-feira, 9 de fevereiro de 2010 14:35
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Perfeito _Aragorn... funcionou perfeitamente aqui

     

     

    Muito obrigado

    segunda-feira, 20 de setembro de 2010 19:50
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    ai vai o codigo.....valeu pela atencao...

     

    On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objNetwork = CreateObject("Wscript.Network")

    strUserPath = "LDAP://" & objSysInfo.UserName
    Set objUser = GetObject(strUserPath)

    For Each strGroup in objUser.MemberOf
        strGroupPath = "LDAP://" & strGroup
        Set objGroup = GetObject(strGroupPath)
        strGroupName = objGroup.CN
        Wscript.Echo objUser.MemberOf

        Select Case strGroupName
            Case "grupoteste01"
      objNetwork.MapNetworkDrive "P:", "\\192.168.0.10\teste01"
              Case "grupoteste02"
      objNetwork.MapNetworkDrive "P:", "\\192.168.0.10\teste02"

            Case "Producao"
                'objNetwork.MapNetworkDrive "Z:", "\\SERVER\SHARE\Producao"

            Case "Vendas"
                objNetwork.MapNetworkDrive "Z:", "\\SERVER\SHARE\Vendas"
        End Select
    Next

     


    Desculpa voltar com esse tema tão fartamente discutido, mas é que esse código não funcionou comigo, nada acontece. Retirei a primeira linha do script para forçar um possível erro mas nada. O que devo fazer?
    sexta-feira, 26 de novembro de 2010 13:25
    |