none
Script Logon por grupo RRS feed

  • Pergunta

  • Boa tarde!

    Alguém poderia me ajudar a acertar o script abaixo?  Obs: Já verifiquei todos os tópicos do Forum referente a script de logon e não consegui acertar, o script mapeia as unidades mesmo não pertencendo ao grupo definido.

    Const GRUPO1 = "cn=GSuporte"
    Set wshNetwork = CreateObject("WScript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives
    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    strGroups = LCase(Join(CurrentUser.MemberOf))
    If InStr (strGroups,GRUPO1) Then
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
    Else wscript.echo "Nao faz parte do grupo"
    End If

     

    sexta-feira, 4 de junho de 2010 17:28

Respostas

  • Tente assim só pra gente ver se tá executando e onde que tá parando.

    Const GRUPO1 = "GSuporte"
    Dim objNetwork, sDomain, sUser, objUser

    Set objNetwork = CreateObject("WScript.Network")
    Set WshShell = WScript.CreateObject("WScript.Shell")

    sDomain = objNetwork.UserDomain
    sUser = objNetwork.UserName

    Wscript.Echo "Usuario: " sUser

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

    For each oGroup in objUser.Groups

    Wscript.Echo oGroup.Name
        If UCase(oGroup.Name) = GRUPO1 Then

            Wscript.Echo "Pentence ao GSuporte"
            WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
        End If
           
    Next

    Aguardo sua resposta.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    terça-feira, 8 de junho de 2010 17:04

Todas as Respostas

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

    Const GRUPO1 = "GSuporte"
    Dim objNetwork, sDomain, sUser, objUser

    Set objNetwork = CreateObject("WScript.Network")
    Set WshShell = WScript.CreateObject("WScript.Shell")

    sDomain = objNetwork.UserDomain
    sUser = objNetwork.UserName

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

    For each oGroup in objUser.Groups
        If UCase(oGroup.Name) = GRUPO1 Then
            WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
        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.
    sábado, 5 de junho de 2010 13:46
  • Bom dia Gabriel!

    Fiz conforme você falou, mas também não funcionou, não mostra nenhuma mensagem de erro, porém quando o usuário faz parte do grupo ele não executa o script suporte.bat

    Desde já agradeço a atenção

     

    Abraço

    domingo, 6 de junho de 2010 15:16
  • O que esse bat faz?

    Por que dependendo do que for agente pode fazer isso no prórpio vbs.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    domingo, 6 de junho de 2010 20:46
  • Esse bat  faz o mapeamento de dois compartilhamentos, porém nos demais grupos que vou ter vou precisar fazer a cópia de alguns arquivos também.

     

     

     

    domingo, 6 de junho de 2010 23:04
  • Tente assim só pra gente ver se tá executando e onde que tá parando.

    Const GRUPO1 = "GSuporte"
    Dim objNetwork, sDomain, sUser, objUser

    Set objNetwork = CreateObject("WScript.Network")
    Set WshShell = WScript.CreateObject("WScript.Shell")

    sDomain = objNetwork.UserDomain
    sUser = objNetwork.UserName

    Wscript.Echo "Usuario: " sUser

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

    For each oGroup in objUser.Groups

    Wscript.Echo oGroup.Name
        If UCase(oGroup.Name) = GRUPO1 Then

            Wscript.Echo "Pentence ao GSuporte"
            WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
        End If
           
    Next

    Aguardo sua resposta.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    terça-feira, 8 de junho de 2010 17:04