home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1997 January / pcpro-0197.bin / Code / WinInt / listing4.txt < prev   
Encoding:
Text File  |  1996-11-01  |  354 b   |  15 lines

  1. Dim Container as IOleDsContainer
  2. Dim NewUser as IOleDsUser
  3.  
  4. æ Bind to the known container.
  5. Set Container = GetObject("WinNT://WCL/Users")
  6.  
  7. æ Create the new wrapper.
  8. Set NewUser = Container.Create("user", "TestUser")
  9.  
  10. æ Set JaneÆs password.
  11. NewUser.SetPassword("TestPassword")
  12.  
  13. æ Complete the operation to create the object.
  14. NewUser.SetInfo
  15.