home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch07code / 07list05.txt
Text File  |  1995-08-10  |  1KB  |  26 lines
  1. Listing 7.5[md]You Can Perform Some Security System Maintenance Using Commands from Visual Basic
  2. '*************************************
  3. 'Add a new user to the system database
  4. '*************************************
  5. Dim OldWs As Workspace, NewUser As User, NewGrp As Group
  6. DBEngine.IniPath = "C:\VB4\TEST1.INI"
  7. Set OldWs = DBEngine.Workspaces(0)
  8. Set NewUser = OldWs.CreateUser("BJONES", "44587", "HOOPS")
  9. OldWs.Users.Append NewUser
  10. '**************************
  11. 'Add a user to a user group
  12. '**************************
  13. Dim OldWs As Workspace, NewUser As User, NewGrp As Group
  14. DBEngine.IniPath = "C:\VB4\TEST1.INI"
  15. Set OldWs = DBEngine.Workspaces(0)
  16. Set NewUser = OldWs.CreateUser("BJONES", "44587", "HOOPS")
  17. OldWs.Groups("Users").Users.Append NewUser
  18. '**************************************
  19. 'Delete a user from the system database
  20. '**************************************
  21. Dim OldWs As Workspace, NewUser As User, NewGrp As Group
  22. DBEngine.IniPath = "C:\VB4\TEST1.INI"
  23. Set OldWs = DBEngine.Workspaces(0)
  24. OldWs.Users.Delete "BJONES"
  25.  
  26.