none
Como coletar a Unidade Organizacional do Usuário RRS feed

  • Pergunta

  • Olá gente.

    Novamente eu pedindo um Help.

    Estou montando um novo script de logon, onde minha intenção é montar de formar a passar variáveis para coletar dados como nome do Usuário, seu departamento e seu usuário, assim consigo montar um script só e mapear as unidades corretas para cada usuário.

    O nome e usuário eu consegui pegar, porem a unidade organizacional não!

    Tenho este pedaço de código para tentar seguir o mesmo tipo de programação

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

    'Carrega o nome completo da variavel "wname"

    wname = objUser.FullName


    Alguém consegue me dar uma força?

    Forte Abç.

    quinta-feira, 20 de fevereiro de 2020 18:16

Respostas

  • Galera consegui achar uma solução.

    Segue o script:

    Set objSysInfo = CreateObject("ADSystemInfo")
    set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    set objParent = GetObject(objUser.Parent)
    rem wscript.Echo objParent.Get("Name")

    set shell = CreateObject("wscript.shell")
    set SysEnv = shell.environment("USER")
    SysEnv("ouname") = objParent.Get("Name")

    WScript.Echo "ouname " & SysEnv("ouname")

    Assim a saída é apenas TI.

    Vlw pela força!!!

    sexta-feira, 21 de fevereiro de 2020 16:10

Todas as Respostas

  • Olá, 

    veja se te ajuda

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    WScript.Echo "Display name: " & objUser.displayName
    WScript.Echo "DN: " & objUser.distinguishedName

    quinta-feira, 20 de fevereiro de 2020 20:26
  • Fala meu amigo, muito obrigado pela ajuda.

    Sim, este script traz a informação que preciso, porém preciso apenas da informação da "OU", que no meu caso será parâmetro passado durante a criação do script de logon, assim consigo gerar apenas um script para todos os usuários, e as unidades de mapeamento será criado com o mesmo nome da OU que ele pertence.

    Vou continuar tentando, caso você tenha alguma outra ideia será de grande ajuda.

    Abç e tenha um ótimo feriado!!!

    Vlw

    sexta-feira, 21 de fevereiro de 2020 11:05
  • Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    WScript.Echo(Replace(objUser.parent,"LDAP://",""))

    sexta-feira, 21 de fevereiro de 2020 12:34
  • O meu amigo, muito obrigado novamente.

    O retorno deste script traz "OU=TI,DC=Composo,DC=CORP".

    No meu caso preciso apenas da informação "TI", e esta é a questão não consigo fazer isto, como existem vários OU's aqui dentro, não consigo nem contar caracteres.

    Mesmo assim muito obrigado por usar um pouco do seu tempo para me ajudar.

    Abç

    sexta-feira, 21 de fevereiro de 2020 13:13
  • Galera consegui achar uma solução.

    Segue o script:

    Set objSysInfo = CreateObject("ADSystemInfo")
    set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    set objParent = GetObject(objUser.Parent)
    rem wscript.Echo objParent.Get("Name")

    set shell = CreateObject("wscript.shell")
    set SysEnv = shell.environment("USER")
    SysEnv("ouname") = objParent.Get("Name")

    WScript.Echo "ouname " & SysEnv("ouname")

    Assim a saída é apenas TI.

    Vlw pela força!!!

    sexta-feira, 21 de fevereiro de 2020 16:10
  • Olá DX_Z,

    Obrigada por confirmar que foi encontrada uma solução para a pergunta, esta Thread será encerrada.

    Caso seja necessário, por gentileza, abra uma nova thread.

    Atenciosamente,

    Camila Brito
    __________________________________________________________________________
    Por favor lembre-se de "Marcar como resposta" as respostas que solucionaram seu problema, é uma forma comum de reconhecer aquelas pessoas que te ajudaram, e faz com que seja mais fácil para os outros visitantes encontrar a solução depois.

    Microsoft oferece esse serviço de forma gratuita, com a finalidade de ajudar os usuários e ampliar a base de dados de conhecimentos relacionados com os produtos e tecnologias de Microsoft.

    Este conteúdo é proporcionado "tal qual" e não implica nenhuma responsabilidade por parte de Microsoft.

    segunda-feira, 9 de março de 2020 21:50
    Moderador