'Weist dem Attribut Description den Wert des Attributs Common-Name zu und benennt User mit Wert aus Description um. 
  
 Dim strTargetOU 
  
 strTargetOU = "OU=Users,OU=Accounts,OU=yyy,OU=DE,DC=mydomain,DC=xxx,DC=com" 
  
 Set oTargetOU = GetObject("LDAP://" & strTargetOU) 
 oTargetOU.Filter = Array("User") 
  
 For each usr in oTargetOU 
 if instr(usr.cn, "test") then 
 vTempDescription = usr.description 
 usr.description = usr.cn 
 usr.SetInfo 
 strName = "cn=" & vTempDescription 
 Set domainDNS = GetObject ("LDAP://DC=mydomain,DC=xxx,DC=com") 
 Set ou = domainDNS.GetObject("organizationalUnit", "OU=Users,OU=Accounts,OU=yyy,OU=DE") 
 Set user = ou.GetObject("user", usr.name) 
 Set newobj = ou.MoveHere(user.ADsPath, strName) 
 end if 
 Next