[VBS] Modifier nom complet Active Directory

Fermé
Yv@n - 28 juin 2006 à 14:06
 l'etudiant - 26 oct. 2007 à 10:35
Bonjour,

Voilà, je cherche un script me permettant de modifier le nom complet d'un compte active directory, c'est à dire le SAMAccountName.
J'ai tenté le script suivant mais ça n'a pas fonctionné:
nameToSearch="TEST"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider = ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = "<LDAP://dc=abbeville,dc=vss,dc=valeo>;(&(objectClass=user)(samAccountName="&nameToSearch&"));userprincipalName;subtree"

Set objOU = GetObject("LDAP://ou=test,dc=site,dc=lieu,dc=com")

objOU.MoveHere _
 "LDAP://samAccountName=&nameToSearch&,ou=test,dc=site,dc=lieu,dc=com", "samAccountName=TEST2"


Merci d'avance de votre aide
A voir également:

2 réponses

befadudesert Messages postés 17 Date d'inscription jeudi 22 février 2007 Statut Membre Dernière intervention 28 janvier 2008 4
4 mai 2007 à 14:30
C'est le champ name et non sAMAccountName qui lui correspond au nom de connexion !
4
Bonjour,
J'aimerai savoir comment executer ce script ? suffit-il de le compiler avec VB (ce dont je doute :p)?

Ce script a bien pour vocation de renomer un nom de domaine active directory ?

Merci pour votre aide.
-1