[VBS] Modifier nom complet Active Directory

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