Al igual que sucede con los grupos de trabajo, al crear un nuevo archivo de información de grupo de trabajo, por defecto se crea un único usuario administrador (Admin), el cual pertenece a los grupos de trabajo de administradores (Admins) y usuarios (Users).
El usuario que desee crear nuevas cuentas de usuarios, deberá pertenecer al grupo Admins, o a otro grupo con permisos para poder dar de alta a nuevos usuarios.
Otro requisito requerido es la necesidad de que el nombre del usuario que se desea crear se encuentre previamente incluido en la colección Users del objeto Catalog, y con el mismo identificador de usuario, porque de lo contrario, la biblioteca de ADOX nos devolverá un error.
Una vez incluido el usuario en la colección Users del objeto Catalog, ya podemos añadirlo a la colección Users, pero ésta vez será en la colección correspondiente a un objeto Group existente en el archivo de información de grupo de trabajo.
La cadena que identifica al usuario, así como la contraseña del mismo, no pueden exceder de veinte caracteres de longitud. La contraseña del usuario es opcional, pero para establecerla, necesariamente tendremos que utilizar el método ChangePassword del objeto User, método éste que podremos utilizar en cualquier momento para posteriormente cambiar la contraseña del usuario.
El siguiente ejemplo muestra como dar de alta a un nuevo usuario en los grupos Users y Admins:
Dim cat
As ADOX.Catalog
Dim grp As ADOX.Group
Dim usr As ADOX.User
' Creo un objeto Catalog
Set cat =
New ADOX.Catalog
' Abre la conexión el usuario Admin
cat.ActiveConnection = "Provider = Microsoft.Jet.OLEDB.4.0;"
& _
"Data Source = " & App.Path & "\System.mdw;" & _
"Jet OLEDB:System Database = " & App.Path & "\System.mdw;" & _
"User Id = Admin;" & _
"Passwod = "
' Primero, se agrega el usuario al catálogo de usuarios
cat.Users.Append "José Pérez"
' Si deseamos agregarle una contraseña, tendremos que
' hacerlo mediante el método ChangePassword del objeto User
cat.Users("José Pérez").ChangePassword "", "1234"
' Indicamos el grupo al que va a pertenecer el nuevo usuario,
' en este caso, el grupo de usuarios ("Users")
Set grp = cat.Groups("Users")
' Añadimos el usuario, siempre y cuando esté previamente
' incluido en el catálogo
grp.Users.Append "José Pérez"
' Ahora añadimos al usuario al grupo de administradores ("Admins")
Set grp = cat.Groups("Admins")
grp.Users.Append "José Pérez"
' Recorro la colección de usuarios
Set usr = New ADOX.User
For Each usr In grp.Users
MsgBox usr.Name, , "Usuarios"
Next
Otros enlaces de interés:
Cómo crear un nuevo archivo de información de grupos de trabajo
Cómo crear un nuevo grupo de trabajo
Cómo eliminar un grupo de trabajo
Enrique Martínez Montejo - 2003
NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.
NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.