home *** CD-ROM | disk | FTP | other *** search
- Dim Container as IOleDsContainer
- Dim NewUser as IOleDsUser
-
- æ Bind to the known container.
- Set Container = GetObject("WinNT://WCL/Users")
-
- æ Create the new wrapper.
- Set NewUser = Container.Create("user", "TestUser")
-
- æ Set JaneÆs password.
- NewUser.SetPassword("TestPassword")
-
- æ Complete the operation to create the object.
- NewUser.SetInfo
-