home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Start / Create / vb / Create.bas next >
Encoding:
BASIC Source File  |  1999-01-18  |  205 b   |  11 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3. Set cont = GetObject("WinNT://INDEPENDENCE")
  4.  
  5. '---- Creating a user
  6. Set usr = cont.Create("user", "JohnD")
  7. usr.FullName = "John Doe"
  8. usr.SetInfo
  9.  
  10. End Sub
  11.