Discussion :

[jalalnet]

bonjour j'aimerai creé une formulaire qui charge tous les machines connecté au reseau WorkGroup lors du chargement d'application
puis au moment dbclick sur une machine a partir du liste => affichage d'un dossier partager "partage" qui se trouve dans chacune des machines du reseau
\\nom_machine\partage
sauf je sais pas comment proceder

[hugoclo]

soit un form aveec un combobox

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
 
imports system.directoryservices
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim root As New DirectoryEntry("WinNT:")
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        Dim c As DirectoryEntry
        For Each complist As DirectoryEntry In parent
            For Each c In complist.Children
 
                If (c.Name <> "Schema") Then
                    ComboBox1.Items.Add(c.Name)
                    'ou pour les chemins  ComboBox1.Items.Add(c.Path)
                End If
            Next
        Next
 
    End Sub
 
 
End Class

Ne pas oublier la référence : System.directoryServices

[hugoclo]

Désolé j'avais oublié une partie du code

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
imports system.directoryservices
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim root As New DirectoryEntry("WinNT:")
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        Dim c As DirectoryEntry
        For Each complist As DirectoryEntry In parent
            For Each c In complist.Children
 
                If (c.Name <> "Schema") Then
                    ComboBox1.Items.Add(c.Path & "/partage")
                End If
            Next
        Next
 
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Shell("""Explorer.exe"" & ComboBox1.Text", vbNormalFocus)
    End Sub

[jalalnet]

merci pour votre réponse
votre bout de code charge les machines du reseau sur un combox alors j ai comme entrés dans le combo
WinNT://MSHOME/NOM_machine\partage
.
.
.
mais lorsque je choisi une machine j'ai comme réponse

the path ' & combox1.text' does not exist or is not a directory

est je trouve ça normale parc-que

Code :

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

explorer.exe WinNT://MSHOME/NOM_machine\partage

c'est pas un chemin réseau mais je sais pas comment résoudre le pb

autre chose j'aimerai bien que les entrés du combox prend que nom_machine\partage

[hugoclo]

code corriger

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
Imports System.directoryservices
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim root As New DirectoryEntry("WinNT:")
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        Dim c As DirectoryEntry
        For Each complist As DirectoryEntry In parent
            For Each c In complist.Children
 
                If (c.Name <> "Schema") Then
                    ComboBox1.Items.Add(c.Name & "\partage")
                    'ou pour les chemins  ComboBox1.Items.Add(c.Path)
                End If
            Next
        Next
 
 
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim pathy As String
        pathy = "\\" & ComboBox1.Text
        Process.Start("explorer.exe", pathy)
    End Sub
End Class

[jalalnet]

merci trop sympa ca marche bien

[hugoclo]

Pensez au Résolu

[jalalnet]

dsl pour le derangement mais tu sais pas par hazard comment charger que les machines actives sur le reseau
parce que comme ca j'ai meme les machines qui passe en mode arrete ou mise en vielle

[hugoclo]

Le plus simple est de faire un ping sur les machines:

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
'penser a rajouter
Imports System.Net.NetworkInformation
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim root As New DirectoryEntry("WinNT:")
        Dim monPing As Ping = New Ping
 
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        Dim c As DirectoryEntry
        For Each complist As DirectoryEntry In parent
            For Each c In complist.Children
 
                If (c.Name <> "Schema") Then
                    Dim Reply As PingReply = monPing.Send(c.Name)
                    If Reply.Status = IPStatus.Success Then
                        ComboBox1.Items.Add(c.Name & "\partage")
                        'ou pour les chemins  ComboBox1.Items.Add(c.Path)
                    End If
                End If
            Next
        Next
 
 
    End Sub