Boa tarde Marcellus,
Fiz os testes no link que você enviou e deu certo. Foi necessário alguns ajustes para atualização dos demais dados que não estão descritos no link. De qualquer forma obrigado pela força.. sua informação
foi o norte que eu precisava.
O script final ficou assim:
Const ADS_PROPERTY_UPDATE = 2
Set objGroup = GetObject _
("LDAP://ou=grupos,DC=dominio,dc=com")
'Atualiza o nome
objGroup.MoveHere "LDAP://cn=NomeDoGrupoAntigo,ou=grupos,DC=cominio,dc=com", "cn=NomeDoGrupoNovo"
Set objGroup = Nothing
'Atualiza os demais dados do grupo
Set objGroup = GetObject _
("LDAP://cn=NomeDoGrupoNovo,ou=grupos,DC=dominio,dc=com")
'Atualiza o nome no Windows 2000
objGroup.Put "sAMAccountName", "NomeDoGrupoNovo"
objGroup.Put "displayname", "NomeDoGrupoNovo"
'Atualiza descrição
objGroup.PutEx ADS_PROPERTY_UPDATE, _
"description", Array("Descrição do grupo com novo nome")
'Confirma as alterações
objGroup.SetInfo
Att. Douglas Tesch
