Discussion :

[leptityugi]

Bonjour,
je developpe un petit explorateur personelle et j'aurai besoin de pouvoir acceder aux ordinateurs présent sur mon réseau dans une listview.
puis acceder aux dossiers partager par ceux-ci.
Avec ma methode actuelle j'ai acces aux disque des serveurs mais pas aux ordinateur.

je n'ai pas trouver de tuto qui explique ce que je veux, mais j'ai peut etre mal chercher...

[graphicsxp]

Salut,
Il me semble qu'il faut que tu regardes du coté d'Active Directory. Désolé je n'ai pas d'autres pistes pour l'instant.
Voici un lien utile:
http://morpheus.developpez.com/addotnet/ADVBNET/

[leptityugi]

merci j'ai deja regardez des tuto de ce Mr mais pas celui la.
je jette un oeil.

[freddyboy]

tu peux regarder du coté de www.codeproject.com
il y a des trucs pour faire cela comme NetworkSelect
il y a une classe dedans pour parcourir le reseau et voir les partages avec gestion des mots de passes ...

@+

[leptityugi]

merci merci je pense que j'ai trouvé mon bonheur.

[graphicsxp]

tag dans ce cas

[leptityugi]

j'attend d'avoir réussit

[leptityugi]

bas... en fait non....

graphicsxp merci pour ton lien mais en fait sa a pas l'air d'etre ce que je veux pour etre simple je veux "favoris réseau" dans ma listview pouvoir ouvrir les pc présent sur le réseau etc... comme avec windows.

je vais allez voir le lien de freddyboy

Merci

[graphicsxp]

Essayes ce code, ca devrait marcher, j'ai testé:

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
 
Imports System.DirectoryServices
Imports System.Collections.Specialized
 
 Function GetDomList(ByVal domain As String) As String()
        Dim dirs, dir As DirectoryEntry
        Dim buf(-1) As String
        Dim ans As New StringCollection
 
        dirs = New DirectoryEntry("WinNT://" & domain)
        For Each dir In dirs.Children
            ' collect data on all of our Domain PCs
            If dir.SchemaClassName = "Computer" Then
                ans.Add(dir.Name)
            End If
        Next
 
        If ans.Count > 0 Then
            ReDim buf(ans.Count - 1)
            ans.CopyTo(buf, 0)
        End If
        Return buf
    End Function
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim PC As String
        Dim PcList As String()
 
        PcList = GetDomList("mydomainname")
        For Each PC In PcList
            'Remplace par ta liste ou un autre control
            TextBox1.Text = PC = " & PC)"
        Next
 
    End Sub

[leptityugi]

sa fonctionne merci c genial par contre comment je peut faire pour avoir un acces aux données.
exemple le pc que je cible est dans le domaine workgroup et s'appelle tata le chemin d'accés est donc : //workgroup/tata???

et je n'arrive pas a trouvé a koi correspond l'adresse ip au debut

je sais je suis nul mais j'ai un peu de mal avec le réseau