[VB.NET][Réseau] afficher les PC en réseau sur une list view

Version imprimable

13/12/2005, 10h58
leptityugi

[VB.NET][Réseau] afficher les PC en réseau sur une list view

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... :roll:
13/12/2005, 11h09
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/
13/12/2005, 11h18
leptityugi

merci j'ai deja regardez des tuto de ce Mr mais pas celui la.
je jette un oeil.
13/12/2005, 11h18
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 ...

@+
13/12/2005, 11h20
leptityugi

merci merci je pense que j'ai trouvé mon bonheur.
13/12/2005, 11h21
graphicsxp

tag :resolu: dans ce cas :wink:
13/12/2005, 11h24
leptityugi

j'attend d'avoir réussit :wink:
13/12/2005, 11h48
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

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

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

13/12/2005, 13h51
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 :roll: