Dim wsTemp As Workspace Dim NewUser As User Dim NewGrp As Group
`Add a new user to the system database DBEngine.SystemDB = "C:\Windows\System\System.mdw" Set wsTemp = DBEngine.Workspaces(0) Set NewUser = wsTemp.CreateUser("BSILER", "12345", "PASSWORD")
`Add the user to the "Users" group wsTemp.Groups("Users").Users.Append NewUser
Dim NewUser As User
Dim NewGrp As Group
`Add a new user to the system database
DBEngine.SystemDB = "C:\Windows\System\System.mdw"
Set wsTemp = DBEngine.Workspaces(0)
Set NewUser = wsTemp.CreateUser("BSILER", "12345", "PASSWORD")
`Add the user to the "Users" group
wsTemp.Groups("Users").Users.Append NewUser