Création d'un utilisateur

Cette fonction permet de créer un nouvel utilisateur à la base de donnée.

Function NewUserX()

Dim wrkDefault As Workspace
Dim usrNew As User
Dim grpMember As Group
Dim strPassWord As String
Dim strNameUser As String
Dim strPidUser As String
Dim strNameGroup As String

Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
    strNameUser = InputBox("Entrez le nom du nouvel utilisateur : ")
    strPidUser = InputBox("Entrez le n° d'identification personnelle (PID) : ")
    Do While True
        strPassWord = InputBox("Entrez le mot de passe : ")
        Select Case Len(strPassWord)
            Case 1 To 14
                Exit Do
            Case Is > 14
                MsgBox "Le mot de passe est trop long !"
            Case 0
                Exit Do
        End Select
    Loop
    strNameGroup = InputBox("Entrez son groupe : ", , "Users")

    ' Crée un nouvel utilisateur et l'ajoute.
    Set usrNew = .CreateUser(strNameUser, _
        strPidUser, strPassWord)
    .Users.Append usrNew

    ' Inclut le nouvel utilisateur dans un groupe.
    Set grpMember = usrNew.CreateGroup(strNameGroup)
    usrNew.Groups.Append grpMember
End With

End Function

Auteur : Jessy SEMPERE