Petit problème avec LDAP

Résolu
Signaler
Messages postés
3
Date d'inscription
jeudi 29 juin 2006
Statut
Membre
Dernière intervention
21 juin 2007
-
Messages postés
3
Date d'inscription
jeudi 29 juin 2006
Statut
Membre
Dernière intervention
21 juin 2007
-
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

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
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
Messages postés
3
Date d'inscription
jeudi 29 juin 2006
Statut
Membre
Dernière intervention
21 juin 2007

-> 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.
Messages postés
3
Date d'inscription
jeudi 29 juin 2006
Statut
Membre
Dernière intervention
21 juin 2007

Merci beaucoup Renfield.

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