Discussion :

[jules418]

Bonjour à tous,

J'ai le code ci-dessous qui sort le résultat dans un csv sur une ligne.
Je voudrais sortir ce résultat mais avec le nom du cn= sur la 1ère ligne puis le résultat sur les lignes en dessous.
Autre chose, comme j'ai plusieurs groupes à faire je voudrais qu'ils s'incrémentent dans ce même fichier mais à chaque fois sur une colonne différente, est-ce possible ??

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
 
On Error Resume Next
 
Set objGroup = GetObject _
  ("LDAP://cn=mongroupe,ou=xxxx,ou=xxxx,dc=xxxx,dc=xxxx")
objGroup.GetInfo
 
arrMemberOf = objGroup.GetEx("member")
 
WScript.Echo "Members:"
For Each strMember in arrMemberOf
    XZne = Xzne & strMember & ";"
Next
 
Fic = "resultat.csv"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Fic, 2, True)
objFile.writeline XZne

Merci beaucoup de votre aide

[RadPAT]

Bon c'est bien parceque c'est toi.....

et que je commence à envisager de caresser le fol espoir que tu finisse par me paies un pot pour service rendu

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
 
       Const ADS_SCOPE_SUBTREE = 2
 
       Set objConnection = CreateObject("ADODB.Connection")
       Set objCommand =   CreateObject("ADODB.Command")
       objConnection.Provider = "ADsDSOObject"
       objConnection.Open "Active Directory Provider"
       Set objCommand.ActiveConnection = objConnection
 
       objCommand.Properties("Page Size") = 1000
       objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
       objCommand.CommandText = "SELECT Name, distinguishedName FROM 'LDAP://dc=Fabrikam,dc=com' WHERE objectCategory='group'"
       Set objRecordSet = objCommand.Execute
 
       objRecordSet.MoveFirst
 
       Do Until objRecordSet.EOF
 
            NomGrp = "LDAP://" & objRecordSet.Fields("distinguishedName") 
 
            Set objGroup = GetObject(NomGrp)
 
            objGroup.GetInfo
            XZne = XZne & objRecordSet.Fields("Name") & ";"
            arrMemberOf = objGroup.GetEx("member")
            WScript.Echo "Group:"  & objRecordSet.Fields("distinguishedName")
            WScript.Echo "Members:"
            For Each strMember in arrMemberOf
                WScript.Echo " - Members:" & strMember
                XZne = Xzne & strMember & ";"
            Next
            XZne = XZne & ";" & vbCrLf
            objRecordSet.MoveNext
       Loop
 
Fic = "resultat.csv"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Fic, 2, True)
objFile.writeline XZne

par contre c'est tout sur la même ligne, je te laisse le soin de terminer la presentation.

allez A++

[jules418]

Merci de vais tester ça dès que j'ai un peu de temps au taff

Pour le "tout sur la même ligne" je comprend pas trop, tu parles de la présentation ou dans le fichier .csv ??


PS : pour le pot aucun soucis

[RadPAT]

Salut,

lorsque je dis tout sur la même ligne c'est effectivement dans le fichier .csv,
tu va retouver tes enregs sous cette forme :

groupe1;user1;User2;User3....
groupe2;user5;User8;User9....
groupe3;user1;User4;User5....

alors que si j'ai bien compris, tu souhaitais cette forme :

groupe1;groupe2;groupe3
user1;user5;user1
user2;user8;user4
user3;user9;user5

Sous cette forme c'est un peu plus couillu, tu n'auras pas toujours le même nombre de users et de plus tu n'auras pas des colonnes avec la même quantité de user d'ou le codage une "gestion des trous" ...


A++

[jules418]

Exact je voulais la réponse sous le forme que tu as marqué en 2ème mais bon sinon je ferais sans je magouillerais après

Sinon je reviens à la charge car ton script me sort le résultat en messagebox plutot que dans un .csv

Merci encore de ton aide

[ced600]

C'est un peu abusé là.
RadPAT te fournis tout.
Comment passé d'une msgbox à un fichier -> réfléchir.

Là tu fais WScript.Echo, n'aimerais pas tu faire des file.writeline plutot ?
Ho miracle un objet FSO : FileSystemObject, qui permet de gèrer les fichiers existent.
Et en plus il est dans la
Moi je dis faut bosser un peu. Tu auras beaucoup de chance si RadPAT s'embêtes encore une fois.
Poses nous autant de question que tu veux sur le code, comment faire ceci, on y répondra, mais réfléchis un peu et n'attends pas qu'on le fasse pour toi.
Et désolé de paraître méchant mais cela m'exaspère. Surtout que RadPAT fournis énormément de code sur ce forum.

[RadPAT]

Salut,

en fait c'est tout con ce script fait à la fois l'affichage et la création d'un fichier.
Le soucis c'est que si tu as des membres à vide (des membres de groupes j'entends, sinon ce serait grossier !) et bien le script se gauffre et la création du fichier ne se fait pas.
Reprends le script précédent et ajoute ceci en première ligne :

Code :

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

on error resume next

et voilà ..

je me disai bien qu'il n'y avait pas d'informaticiens entre Louviers et le Neubourg

A++