none
Como gravar o valor de um atributo de um usuário do AD no registro do windows? RRS feed

Respostas

  • Sim,

    • Lendo um atributo no AD: Utilize o ADSI Scriptomatic, ele é um assistente de geração de scripts para AD

    ADSI Scriptomatic

    http://www.microsoft.com/en-us/download/details.aspx?id=20460

    Veja estes exemplos também:

    User Information 

    ss64.com/vb/syntax-userinfo.html

    • Para gravar no registro, Exemplo:
    Set objShell = CreateObject("WScript.Shell")
    
    strRegPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\DisablePasswordCaching"
    strRegValor= "1"
    
    objShell.RegWrite strRegPath, strRegValor, "REG_SZ"
    • Juntando os dois: é um exemplo que serve para script de logon, pega os dados do usuário que está logando e grava no registro (coloquei uma chave ficticia)
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    
    'Quero gravar o display name no registro
    strDisplayName = objUser.FullName
    
    
    'Gravar no registro
    Set objShell = CreateObject("WScript.Shell")
    
    strRegPath = "HKEY_CURRENT_USER\Software\Suachave\DisplayName"
    strRegValor= strDisplayName
    
    objShell.RegWrite strRegPath, strRegValor, "REG_SZ"

    Fábio de Paula Junior


    sexta-feira, 19 de outubro de 2012 11:28
    Moderador

Todas as Respostas

  • Sim,

    • Lendo um atributo no AD: Utilize o ADSI Scriptomatic, ele é um assistente de geração de scripts para AD

    ADSI Scriptomatic

    http://www.microsoft.com/en-us/download/details.aspx?id=20460

    Veja estes exemplos também:

    User Information 

    ss64.com/vb/syntax-userinfo.html

    • Para gravar no registro, Exemplo:
    Set objShell = CreateObject("WScript.Shell")
    
    strRegPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\DisablePasswordCaching"
    strRegValor= "1"
    
    objShell.RegWrite strRegPath, strRegValor, "REG_SZ"
    • Juntando os dois: é um exemplo que serve para script de logon, pega os dados do usuário que está logando e grava no registro (coloquei uma chave ficticia)
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    
    'Quero gravar o display name no registro
    strDisplayName = objUser.FullName
    
    
    'Gravar no registro
    Set objShell = CreateObject("WScript.Shell")
    
    strRegPath = "HKEY_CURRENT_USER\Software\Suachave\DisplayName"
    strRegValor= strDisplayName
    
    objShell.RegWrite strRegPath, strRegValor, "REG_SZ"

    Fábio de Paula Junior


    sexta-feira, 19 de outubro de 2012 11:28
    Moderador
  • Observação: Os script são VBScript (.vbs)

    Fábio de Paula Junior

    sexta-feira, 19 de outubro de 2012 11:29
    Moderador
  • Bombou! Valeu!

    segunda-feira, 22 de outubro de 2012 12:52