Discussion :

[roadmender]

Bonjour,
J 'utilise un script du genre

Code :

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

1
2
3
4
5
6
7
 
Set colAccounts = GetObject("WinNT://" & strSrv )
colAccounts.Filter = Array("user")
 
For Each objUser In colAccounts
instruction
next

Je voudrai dire si objUser est la dernière valeur de colAccounts executer les instructions.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set colAccounts = GetObject("WinNT://" & strSrv )
colAccounts.Filter = Array("user")
 
For Each objUser In colAccounts
    inst1
       if (objUser = Ubound(colAccounts)) then
       inst2
       inst3
    End if
next

Mais ca ne marche pas je vois vraiment pas comment faire... SVP aidez moi

[argoet]

Si c'est vraiment sur la dernière valeur de colAccount
pourquoi n'executez vous pas ces instructions en sortie de votre boucle ?

Code :

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

1
2
3
4
5
6
7
8
9
10
flg_boucle = false   
For Each objUser In colAccounts
    inst1
    flg_boucle = true
next
 
if flg_boucle Then
       inst2
       inst3
End if

[roadmender]

Mais bien sur ! je cherchai a faire la même chose mais en imbriquant le if dans le for each... Quelle erreur ! merci beaucoup.