none
Script Ismember RRS feed

  • Pergunta

  • Possuo tambem um script ismember que testa se os usuários são membros de determinado grupo no ad e faz algumas alterações

    Esse script esta para iniciar por caminho no arquivo bat de login dos usuários


    ==============================================================
    'Cria um loop para ignorar erros de busca.
    on error resume next

      'Declaração do objeto que pesquisa no AD.
      Set objSysInfo = CreateObject("ADSystemInfo")
     
      'Todas as variáveis são declaradas antes de serem usadas.
      Dim strUserPath
      strUserPath = "LDAP://" & objSysInfo.UserName
      Set objUser = GetObject(strUserPath)

      'Laço que verifica o grupo do usuário.
      For Each strGroup in objUser.MemberOf
        Dim strGroupPath
        Dim strGroupName
        strGroupPath = "LDAP://" & strGroup
        Set objGroup = GetObject(strGroupPath)
        strGroupName = objGroup.CN

        'Executa ação baseado no grupo.
        Select Case strGroupName
          Case "NomeGrupo1"
            createobject("wscript.shell").Run("cmd /c \\servidor\caminho\acoes.bat")
        End Select
    next
    ======================================================

    só que esta ocorrendo pra alguns usuários quando logan o cmd fica aberto nesse arquivo

    por exemplo fica a tela do command aberta e a ultima linha esta assim

    \\servidor\caminho\ismember.vbs

    e ali fica até que tenha q se fechar a janela manualmente.


    Não sei se o teste esta sendo executado ou não, mas enfim tem como colocar tipo um tempo

    tipo acho que na bat mesmo

    se o arquivo não retornar em 10 segundos pula pro proximo ou algo assim


    sei que quando o arquivo vbs q testa os usuários tiver mais testes de grupos ira demorar mais pra executar..

    mas esse foi o unico jeito que eu achei pra fazer um ismember..


    Alguem tem algum script melhor ou coisa do genero??

    Grato
     José Luiz

    quinta-feira, 30 de abril de 2009 19:13

Todas as Respostas