Discussion :

[bnisaid]

Ajouter le Référence Suivants :

• Active DS Type Library

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
 
Public TmpIad1 As IADs
Public TmpIad2 As IADs
Dim v_reseau
Private Sub Form_Load()
Set v_reseau = GetObject("WinNT:")
'Liste les domaines
DoEvents
For Each TmpIad1 In v_reseau
    MsgBox TmpIad1.ADsPath
    TmpIad1.Filter = Array("Computer")
'Liste les postes du domaine
    DoEvents
    For Each TmpIad2 In TmpIad1
        MsgBox TmpIad2.ADsPath
    Next
    DoEvents
Next
DoEvents
End Sub

[La Praline]

Heu...

u risque de passer pour un idiot, je me demande où est la question, estce qu'il y en a une et pourquoi avant même une réponse, le tag est activé ?!

Cordialement