Bonjour,
quelqu'un serait-il comment faire pour ajouter un compte utilisateur au groupe Adiminstrateur local de la machine sous XP?
J'ai la fonction suivante qui fonctionne pour l'AD mais j'y arrive pas en local :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 'Ajouter un utilisateur à un groupe Public Function addUserToGroup(ByVal cheminLdapGroup As String, _ ByVal cheminLdapUser As String, _ ByVal monUsername As String, _ ByVal monPassword As String) As Boolean Dim monGroupe As New DirectoryEntry("LDAP://" & cheminLdapGroup, monUsername, _ monPassword, AuthenticationTypes.Secure) Dim monUtilisateur As New DirectoryEntry("LDAP://" & cheminLdapUser, monUsername, _ monPassword, AuthenticationTypes.Secure) Try ' Vérifie si l'utilisateur n'est pas déjà membre du groupe Dim estDejaMembre As Boolean = Convert.ToBoolean(monGroupe.Invoke("IsMember", _ New Object() {monUtilisateur.Path})) If Not estDejaMembre Then ' Utilisation de la méthode ADSI "Add" pour ajouter un utilisateur à un groupe monGroupe.Invoke("Add", New Object() {monUtilisateur.Path}) Else MessageBox.Show("L'utilisateur " & monUtilisateur.Properties("cn")._ Value.ToString() & " est déjà membre de ce groupe !") End If Return True Catch ex As Exception MessageBox.Show(ex.Message) Return False Finally ' Libération des ressources inutiles encore utilisées If Not IsNothing(monUtilisateur) Then monUtilisateur.Dispose() End If If Not IsNothing(monGroupe) Then monGroupe.Dispose() End If End Try End Function
Merci pour vos solutions
Partager