Rename an ADAM User Account

Renames the ADAM user account Kimabercrombie to Dylanmiller.

Visual Basic

Edit|Remove

On Error Resume Next

Set objOU = GetObject("LDAP://localhost:389/ou=Accounting,dc=fabrikam,dc=com")

objOU.MoveHere _
   "LDAP://cn=kimabercrombie, ou=Accounting,dc=fabrikam,dc=com", _
        "cn=dylanmiller"

On Error Resume Next

Set objOU = GetObject("LDAP://localhost:389/ou=Accounting,dc=fabrikam,dc=com")

objOU.MoveHere _
   "LDAP://cn=kimabercrombie, ou=Accounting,dc=fabrikam,dc=com", _
        "cn=dylanmiller"