Petit problème avec LDAP

Résolu
diabloklyps Messages postés 3 Date d'inscription jeudi 29 juin 2006 Statut Membre Dernière intervention 21 juin 2007 - 21 juin 2007 à 14:16
diabloklyps Messages postés 3 Date d'inscription jeudi 29 juin 2006 Statut Membre Dernière intervention 21 juin 2007 - 21 juin 2007 à 15:12
Bonjour a tous,

N'étant pas (ou plutôt plus) programmeur , j'ai quand même essayer de me simplifier une tâche dans AD ou je dois lister tous les groupe d'une OU et ensuite lister les membres de chaque groupe:

Dim arrNames()
intSize = 0


Const ForWriting = 2
Dim fso, f , nom
  Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\temp\fred\Testfr.txt", ForWriting,true)


 




Set objOU = GetObject("[ldap://OU=General,OU=Groups,OU=FRUMG,OU=EMEA,DC=XXX,DC=XXX,DC=XXX LDAP://OU=General,OU=Groups,OU=FRUMG,OU=EMEA,DC=XXX,DC=XXX,DC=XXX]")
objOU.Filter = Array("Group")


For Each objGroup in objOU
     nom = Mid(objGroup.Name, 4)
     Wscript.echo nom
    f.write(nom)
    f.writeblanklines(2)
     -> Set objGroup GetObject(" <gras>LDAP://cn </gras> & nom,OU=General,OU=Groups,OU=FRUMG,OU=EMEA,DC=XXX,DC=XXX,DC=XXX)


For Each strUser in objGroup.Member
    Set objUser =  GetObject("LDAP://" & strUser)
    ReDim Preserve arrNames(intSize)
    arrNames(intSize) = objUser.CN
    intSize = intSize + 1
Next


For i = (UBound(arrNames) - 1) to 0 Step -1
    For j= 0 to i
 
        If UCase(arrNames(j)) > UCase(arrNames(j+1)) Then
            strHolder = arrNames(j+1)
            arrNames(j+1) = arrNames(j)
            arrNames(j) = strHolder
        End If
    Next
Next


For Each strName in arrNames
    Wscript.echo strName
    f.write(StrName)
    f.writeblanklines(1)
Next
 f.writeblanklines(2)


Next
 
C'est la ligne que j'ai souligné qui me pose problème, je n'arrive pas a ajouter ma variable "nom" qui possede le nom du groupe a l'intégrer au chemin LDAP, c'est surement un petit problème d'orthographe de vbs mais je m'y connais vraiment pas.

merci a tous.

Merci de votre aide a tous.

3 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
21 juin 2007 à 14:29
si j'ai bien saisi ce que tu souhaites....

je dirais :

Set objGroup = GetObject( "LDAP://cn=" & nom & ",OU =General,OU=Groups,OU=FRUMG,OU=EMEA,DC=XXX,DC=XXX,DC=XXX")

Renfield
Admin CodeS-SourceS- MVP Visual Basic
3
diabloklyps Messages postés 3 Date d'inscription jeudi 29 juin 2006 Statut Membre Dernière intervention 21 juin 2007
21 juin 2007 à 14:19
-> Set objGroup = GetObject("


[ldap://cn/


LDAP://cn


]


& nom,OUGeneral,OU=Groups,OU=FRUMG,OU=EMEA,DC=XXX,DC=XXX,DC=XXX")


 Oups j'avais oublié les guillemets mais le problème reste toujours la.
0
diabloklyps Messages postés 3 Date d'inscription jeudi 29 juin 2006 Statut Membre Dernière intervention 21 juin 2007
21 juin 2007 à 15:12
Merci beaucoup Renfield.

Et comme a l'habitude, merci a vbfrance pour toutes ces aides qu'elle m'apporte.
0