Incrémenter résultat requete

Version imprimable

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:

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

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 :mouarf:

Code:

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++

05/11/2007, 09h24
jules418

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

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 :mouarf:
06/11/2007, 10h53
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" :D...

A++
13/11/2007, 12h06
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 :cry:

Merci encore de ton aide :ave:
13/11/2007, 14h02
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 :faq:
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.
13/11/2007, 15h45
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:

on error resume next

et voilà ..

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

A++