[R] Obtenir la variable MemberOf d'un compte LDAP

[allbrans]

Je souhaiterais un script qui me permette de récupérer la variable MemberOf pour un utilisateur donné dans l'annuaire LDAP de mon domaine -

Est ce que cela vous semble possible ?

Cordialement,

Serveur Windows 2000 -

[Tlem]

Sans doute ici : http://www.autoitscript.com/forum/index ... t&p=277280

[allbrans]

Tout d'abord merci pour cette réponse ultra rapide -

Je viens de feuilleter le code et je pense que c'est ce code qui m'intéresse -

Code : Tout sélectionner

Func _ADGetUserGroups(ByRef $usergroups, $user = @UserName)
    Local $oUsr
    
    $strQuery = "<LDAP://" & $strHostServer & "/" & $strDNSDomain & ">;(sAMAccountName=" & $user & ");ADsPath;subtree"
    $objRecordSet = $objConnection.Execute ($strQuery)  ; Retrieve the FQDN for the logged on user
    $ldap_entry = $objRecordSet.fields (0).value
    $oUsr = ObjGet($ldap_entry)  ; Retrieve the COM Object for the logged on user
    
    $usergroups = $oUsr.GetEx ("memberof")
    
    $oUsr = 0
    
    $count = UBound($usergroups)
    _ArrayInsert($usergroups, 0, $count)
EndFunc   ;==>_ADGetUserGroups

Mais je n'arrive pas à obtenir de résultats - Pouvez vous m'aider à faire fonctionner cette fonction -

Avec pour le moment un affichage à l'écran des valeurs obtenues -


Cordialement,

[Tlem]

Merci de ne pas oublier l'utilisation des balises de code.

Pour votre demande; comme je n'ai pas d'AD ni de LDAP pour tester, je ne peut donc vous aider correctement.

[allbrans]

Pouvez vous me donner tout de même la commande permettant d'afficher se qui semble s'enregister dans le tableau - je crois que c'est _arraydisplay mais je n'en suis pas sur - je n'ai jamais utiliser la librairie array.au3 -

Cordialement,

[Tlem]

Essayez ceci :

Code : Tout sélectionner

#include <array.au3>
#include <adfunctions.au3>

Dim $aGroup
Dim $username = 'Toto'

_ADGetUserGroups($aGroup, $username)

If IsArray($aGroup) Then
    _ArrayDisplay($aGroup,"Membre de :")
Else
    MsgBox(16, "Erreur", "Pas de valeur de retour")
EndIf

[allbrans]

Je ne m'en sort pas, toutjours réponse pas de valeur de retour - Si au sein de ce forum un habitué vous semble apte à m'aider - Pouvez vous lui faire part de mon problème -

Cordialement,

[allbrans]

Après quelques recherches j'ai fini par trouver ce que je cherchais - en fouillant dans le librairie adfunctions.au3 -