home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Start / Write / vb / Write.bas next >
Encoding:
BASIC Source File  |  1999-01-19  |  437 b   |  19 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3.  
  4.    'Bind to a user
  5.    Set usr = GetObject("LDAP://CN=Jane Johnson,OU=DSys,DC=windows2000,DC=nttest,DC=microsoft,DC=com")
  6.    
  7.    'Modify single attributes
  8.    usr.Put "givenName", "Jane"
  9.    usr.Put "sn", "Johnson"
  10.    
  11.    'Modify multivalue attributes
  12.    usr.Put "otherTelephone", Array("425 844 1234", "425 924 4321")
  13.    
  14.    'Commit to the directory
  15.    usr.SetInfo
  16.     
  17.  
  18. End Sub
  19.