Discussion :

[poussin_44]

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

[romsou]

Voila des lignes toutes simple en vbscript

strComputer = "MON-ORDI"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group")
Set objUser = GetObject("WinNT://DOMAIN/MON-USER,user")
objGroup.Add(objUser.ADsPath)