[VB2008]Manipulation AD

Bonjour,

je cherche a déplacer un ordinateur d'une Ou a une autre dans mon AD par un script,
j'utilise la synthaxe suivante:
Computer = GetObject("<GC://" + strNewDomain)
Computer.MoveHere("<GC://Cn=" & strComputerName & strOldDomain, vbNullString)

Mais a l'execution j'obtiens une erreur du type:
Impossible de créer le composant ActiveX

cette erreur semble lié a cette ligne :
Computer = GetObject("<GC://" + strNewDomain)

et a la fonction GetObject...

Merci de vos réponses par avance.