home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Start / Move / vb / Move.bas next >
Encoding:
BASIC Source File  |  1999-01-18  |  349 b   |  12 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3.  
  4. 'Bind to the parent's destination
  5. Set cont = GetObject("LDAP://OU=DSys,DC=windows2000,DC=nttest,DC=microsoft,DC=com")
  6.  
  7. '---- Moving a user from one organization to another
  8. Set usr = cont.MoveHere("LDAP://CN=Mike Smith,OU=MCS,DC=windows2000,DC=nttest,DC=microsoft,DC=com", vbNullString)
  9.  
  10.  
  11. End Sub
  12.