Discussion :

[Cercan]

Bonjour à tous,

j'utilise un script vbs qui en autre récupére le groupe principal pour chaque utilisateur de mon réseau.

J'utilise la commande objUser.Get("PrimaryGroupID"), cela fonctionne bien par contre je récupére l'ID sous la forme par exemple 210129 pour utilisa. du domaine.

Ma question est comment convertir cet ID pour obtenir le nom du groupe car mon code ne me l'affiche pas.

Merci à tous

Code employé :

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
 
On Error Resume Next 
 
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D 
 
Set objUser = GetObject ("LDAP://cn=user,OU=Users,OU=machin,OU=machin,DC=machin,DC=emi,DC=machin,DC=machin") 
intPrimaryGroupID = objUser.Get("primaryGroupID") 
 
Set objConnection = CreateObject("ADODB.Connection") 
objConnection.Open "Provider=ADsDSOObject;" 
Set objCommand = CreateObject("ADODB.Command") 
objCommand.ActiveConnection = objConnection 
objCommand.CommandText = _ 
    "<LDAP://OU=machin,OU=machin,DC=machin,DC=machin,DC=machin,DC=machin>;(objectCategory=Group);" & "distinguishedName,primaryGroupToken;subtree"   
Set objRecordSet = objCommand.Execute 
 
Do Until objRecordset.EOF 
    If objRecordset.Fields("primaryGroupToken") = intPrimaryGroupID Then 
        WScript.Echo "Primary group:"  'ne m'affiche que du vide
        WScript.Echo objRecordset.Fields("distinguishedName") & " (primaryGroupID: " & intPrimaryGroupID & ")" 
    End If 
    objRecordset.MoveNext 
Loop 
 
objConnection.Close

En fait j'arrive a afficher le groupe primaire avec le distinguishedName sous la forme : CN=primarygroup,OU=Groups,OU=machin,OU=machin ......
Donc comment pourrais-je l'isoler (le primarygroup) de facon à procèder à un test pour la connection de lecteur réseau par rapport à ce primarygroup, du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
pgroup = primarygroup
Service = "\\serveur\" & pgroup
WshNetwork.MapNetworkDrive "S:", & Service

Merci pour l'aide que vous pourriez m'apporter !

[Cercan]

Bonjour, je me permet de relancer mon message car je n'ai toujours pas trouvé de solution.
Merci de l'aide que vous pourriez m'apporter !