Script AD - Ordre croissant

Version imprimable

Bonsoir à tous,

J'ai actuellement un script permettant de faire l'extraction des comptes administrateurs de l'AD :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 On Error Resume Next Set objGroup = GetObject _ ("LDAP://cn=Administrateurs,cn=Builtin,dc=developpez,dc=com") objGroup.GetInfo arrMemberOf = objGroup.GetEx("member") WScript.Echo "Members:" For Each strMember in arrMemberOf WScript.echo strMember Next
Je me sert de ce script en enregistrant le résultat tous les jours et en comparant ces fichiers (1 jour d'intervalle). Si je constate une différence, alors un mail est automatiquement envoyé indiquant quelles sont les différences (comptes administrateurs ajoutés/modifiés/supprimés).

Mon problème est que parfois les lignes sont identiques dans mes deux fichiers comparés mais qu'elles ne sont pas dans le même ordre. Ex :

Fichier1.txt
Compte1
Compte2
Compte3

Fichier2.txt
Compte1
Compte3
Compte2

Je souhaite donc que le script ci-dessus puisse réorganiser le résultat dans l'ordre croissant.

Avez-vous une idée de comment je pourrais faire cela ?

PS : je ne suis pas du tout adepte du VBScript (ma question le prouve ;)).

Bonne soirée et bon week-end à tous.

Bonsoir;

Dans ton cas, il te faut une routine de tri. Les données retournées par

Citation:

For Each strMember in arrMemberOf
WScript.echo strMember
Next

seront de préférence redirigées vers un fichier que tu liras par la suite. Un exemple est ce

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
41
42
43
44
Set Fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("C:\TT.txt",1,False)
s=f.ReadAll
T = Split(s,VbNewLine)
n=Ubound(T)
Tri n,T
Afficher n,T
'============================
  Sub Permut(a,b)
       aux = a
       a = b
       b = aux
  End Sub
'==============================
 
  FUNCTION pos_min(d,f,T)
 
    posmin = d
    FOR j= d+1 TO f 
       IF (T(j)<T(posmin)) THEN
         posmin = j
       End If
    Next
   pos_min =posmin
  End Function
'=============================
 Sub Tri(m,T)
 
   FOR i = 0 TO (m-1) 
      pm = pos_min(i,m,T)
      If (pm<>i) Then
         permut T(pm),T(i)
      End If
   Next
  End Sub
'==============================
 
  Sub Afficher(m,T)
   s=""
    For j =0 To m 
      s=s+T(j)+vbnewline
    Next
   MsgBox s
  End Sub

Tu peux alors adapter en fonction de ton besoin

17/12/2010, 22h26
Nickname

Y a t-il une autre possibilité sans passer par un autre fichier ?

En effet, pour le moment j'ai un script vbs et un script perl pour mon envoie de mail et faire un diff entre deux fichiers de sorties. Ajouter un fichier supplémentaire à traiter est un peu lourd pour ce que je souhaite faire.

N'y a t-il pas de fonction définie pour trier dans l'ordre croissant ?

Merci en tout cas pour ton script qui pourra m'être utile pour un autre contexte.

Si vous avez une solution pouvant être incluse dans mon script, n'hésitez pas ;)

Bonjour;

Au lieu de rediriger le résultat vers un fichier, il y a la possibilité de le mettre dans un tableau; par exemple :
Code:

1 2 3 4 5 6 7 8 Dim cnt ' cnt est un compteur cnt = -1 ' Juste pour commencer à cnt=0 For Each strMember in arrMemberOf If strMember<>"" Then cnt=cnt+1 T(cnt)= strMember End If Next
Juste après, tu peux utiliser le script que j'ai envoyé en commençant par
Code:

1 2 Tri cnt,T Afficher cnt,T
sans mettre le début dudit script.
Si tu veux écrire le résultat dans fichier1.txt
Code:

1 2 3 4 5 Set Fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile("C:\Fichier1.txt",2,True) ' 2 : pour écrire dans le fichier en écrasant son contenu Result=Afficher(cnt,T) f.Write Result f.Close ' ferme et enregistre le fichier
Dans ce cas de figure, la procédure Afficher doit être modifiée ainsi :
Code:

1 2 3 4 5 6 7 Function Afficher(m,T) s="" For j =0 To m If T(j)<>"" Then s=s+T(j)+vbnewline Next Afficher= s End Function

Bonjour,

Merci beaucoup pour le script permettant de trier.

J'ai adapté en fonction de mes besoins mais cela ne passe pas :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
On Error Resume Next
 
Set objGroup = GetObject _
  ("LDAP://cn=Administrateurs,cn=Builtin,dc=developpez,dc=com")
objGroup.GetInfo
 
arrMemberOf = objGroup.GetEx("member")
 
Dim cnt
cnt = -1
For Each strMember in arrMemberOf
  If strMember<>"" Then
       cnt=cnt+1
       T(cnt)= strMember
  End If
Next
 
Tri cnt,T
Afficher cnt,T
 
'============================
  Sub Permut(a,b)
       aux = a
       a = b
       b = aux
  End Sub
'==============================
  FUNCTION pos_min(d,f,T)
 
    posmin = d
    FOR j= d+1 TO f 
       IF (T(j)<T(posmin)) THEN
         posmin = j
       End If
    Next
   pos_min =posmin
  End Function
'=============================
 Sub Tri(m,T)
 
   FOR i = 0 TO (m-1) 
      pm = pos_min(i,m,T)
      If (pm<>i) Then
         permut T(pm),T(i)
      End If
   Next
  End Sub
'==============================
  Sub Afficher(m,T)
   s=""
    For j =0 To m 
      s=s+T(j)+vbnewline
    Next
   WScript.Echo s
  End Sub

Une idée ?

Bonnes fêtes de fin d'année.

Cdlt,

24/12/2010, 15h36
l_autodidacte

Salut;

Où est-ce que ça ne passe pas ?

A mon avis, tu dois mettre en commentaire(ou supprimer) la ligne On Error Resume Next pour voir où se situe l'erreur.
28/12/2010, 09h10
Nickname

Bonjour,

Voici le message d'erreur :

Copyright (C) Microsoft Corporation 1996-2001. Tous droits réservés.

D:\test789.vbs(12, 8) Erreur d'exécution Microsoft VBScript: Type incompatible: 'T'

Une idée ? :)
28/12/2010, 09h52
SfJ5Rpw8

Citation:

Envoyé par Nickname

...
D:\test789.vbs(12, 8) Erreur d'exécution Microsoft VBScript: Type incompatible: 'T'
...

qu'elle est la ligne 12 de ton script ?
ou est déclarée ta variable tableau T ?
28/12/2010, 10h04
Nickname

Voici la ligne 12

Code:

T(cnt)= strMember

Les lignes extraites ont la forme :

CN=Nom Prénom - Service - Compte,OU=Administrateurs,OU=Comptes,DC=developpez,DC=com
CN=Nom1 Prénom1 - Service - Compte,OU=Administrateurs,OU=Comptes,DC=developpez,DC=com

Etc...

Edit : En effet, le tableau n'avait pas été déclaré. Merci bien !! :)

J'ai ajouté Dim T(8000) et cela passe sans problème.

Petite question, en vbscript le tableau T déclaré contient-il 1 champ par ligne ? Ex :
T(0) => CN=Nom Prénom - Service - Compte,OU=Administrateurs,OU=Comptes,DC=developpez,DC=com
T(1) => CN=Nom1 Prénom1 - Service - Compte,OU=Administrateurs,OU=Comptes,DC=developpez,DC=com

Ou chaque caractère est dans le tableau ? Ex :
T(0) => C
T(1) => N
T(2) => =

En effet, à l'instant j'attribue 8000 au tableau T mais il est possible que mon fichier fasse bien plus. Il aurait pu être intéressant d'indiquer que le tableau est dynamque. Est-ce possible ?

Par avance, merci.

tu peu dimensionner dynamiquement ton tableau ..:
Code:

1 2 3 4 5 6 7 8 9 Dim T() 'Déclare un tableau dynamique .... cnt=-1 .... cnt=cnt+1 Redim Preserve T(cnt) 'Redimensionne le tableau en conservant son contenu T(cnt)= strMember ...
ensuite ton tableau contient ce que tu y met dedans... et donc ici le contenu de ta variable strMember..

28/12/2010, 10h25
Nickname

Perfect !

Merci à vous deux et bonnes fêtes de fin d'année :ccool: