none
script com erro qdo vai pesquisar usuário RRS feed

  • Pergunta

  •  

    Olá...

     

    preciso de uma ajuda urgente..

     

    tenho um script,  e o mesmo qdo está executando não encontra o usuário de retorna o valor da variável = null.

     

    a parte do script é esse:

     

    Set objSysInfo = CreateObject("ADSystemInfo")
    strUserDN = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUserDN)  <----qdo passa por aqui dá o erro.
    Set objNet = CreateObject("WScript.Network")
    Set wshNet = CreateObject("WScript.Network")
    Set ADconn = CreateObject("ADSystemInfo")
    Set objFS  = CreateObject("Scripting.FileSystemObject")
    Set objApp = CreateObject("WScript.Shell")

     

    Function CheckGroups()

    If isArray(objUser.MemberOf) then
     CheckGroups = LCase(Join(objUser.MemberOf))
     On error resume next
    Else
        CheckGroups = LCase(Trim(objUser.MemberOf))
        on error resume next
    End if

    End function

    Grupo = CheckGroups()

     

    Preciso de uma ajuda urgente, pois to no cliente, e tem dado erro....

     

    Agradeço a colaboração.

    script

    sábado, 15 de novembro de 2008 18:03

Respostas

  •  

    Lembe-se de colocar sempre os créditos no scripts, assim se houver dúvidas futuras vc pode perguntar ao devido criador.

     

    Essa linha utiliza o user do ADsysinfo, mas só funciona se o usuário estiver cadastrado no AD, pra user com um user local use as seguintes linhas:

     

     

    Code Snippet

    Set objUser = GetObject("Winnt://" & wshNet.UserName)

     

     

    terça-feira, 18 de novembro de 2008 20:51
    Moderador