home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 July / DPPCPRO0799.ISO / RWC / Code / AdvWin.txt next >
Encoding:
Text File  |  1999-04-19  |  747 b   |  26 lines
  1. LISTING 1
  2.  
  3. Dim MyUser as IADsUser 
  4. Dim MyName as String 
  5. Set MyUser = GetObject("NDS://O=MyOrg/OU=SomeOU/CN=BillGates") 
  6. MyName = MyUser.Fullname
  7.  
  8. LISTING 2
  9. Dim Group as IADsGroup 
  10. Set Group = GetObject("WinNT://MyDomain/Groups/Administrators")
  11. Group.Add("WinNT://MyDomain/Users/Bill")
  12. Group.Add("WinNT://MyDomain/Users/Ben")
  13.  
  14. LISTING 3
  15. Dim Container as IADsContainer 
  16. Dim NewUser as IADsUser 
  17. Set Container = GetObject("WinNT://MyDomain")
  18. Set NewUser = Container.Create("user", "Fred")
  19. NewUser.SetInfo æWrite it to DS
  20. NewUser.SetPassword("FunkyPWD")  æSet password
  21.  
  22. LISTING 4
  23. SELECT AdsPath, cn, revision FROM 'LDAP://nw01t1/O=Internet/DC=COM/DC=MICROSOFT/DC=NTDEV/dc=nwparent' WHERE objectClass='*' AND revision >= 10
  24.  
  25.  
  26.