none
Script Grupo AD RRS feed

  • Pergunta

  • Boa Noite,

    Tenho dois atributos criados por mim no schema do active directory, porém na aplicação do script o campo foi sobrescrito, como posso criar um script ´para copiar o valor de um atributo de um grupo do active directory e aplicar esse valor a outro atributo no mesmo grupo?

    Um atributo é o gidNumber que mapeia os grupos do Linux, por algum motivo esse campo foi duplicado em um outro com o nome MSSFU2x-gidNumber, preciso criar um script que leia o valor do atributo MSSFU2x-gidNumber e grave esse valor no atributo gidNumber para cada grupo em uma OU.

    Tentei com o script abaixo, porém não tive sucesso ...

    Sub Modifygroups(oObject)
    Dim ogroup
    For Each ogroup in oObject
    Select Case ogroup.Class
    Case "group"
    ogroup.Put "gidNumber", MSFU2x-gidNumber
    ogroup.Setinfo
    Case "organizationalUnit" , "Ativos"
    Modifygroups(ogroup)
    End select
    Next
    End Sub
    Dim oDomain
    Set oDomain=GetObject("LDAP://OU=Ativos,dc=xxx=xxx=br")
    Modifygroups(oDomain)
    Set oDomain = Nothing
    MsgBox "Finished"
    WScript.Quit

    Alguém pode me ajudar?
    Obrigado,
    Carlos Cedro.

    • Editado Carlos Costa Cedro terça-feira, 9 de março de 2010 12:16 parametros adicionais
    segunda-feira, 8 de março de 2010 23:33

Respostas