Discussion :

[marouprod]

je travaille sur vb.net
j'ai une datagridview(ADRIP,NOM), je veux lister tout les AdrIP et les nom des ordinateurs connecter sur le reseau

merci d'avance

[hugoclo]

Pour lister les ordis:

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
Imports System.DirectoryServices
Imports System.Collections
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
 
        Dim de As New directoryentry()
        de.Path = "WinNT://WORKGROUP"
 
        For Each d As directoryentry In de.children()
 
            If d.schemaclassname = "Computer" Then MsgBox(d.Name)
        Next
 
 
    End Sub
End Class

[marouprod]

merci pour votre reponse
mais pour la ligne 1 : Imports System.DirectoryServices , une warning s'affiche :

L'espace de noms ou le type spécifié dans les Imports 'System.DirectoryServices' ne contient aucun membre public ou est introuvable. Vérifiez que l'espace de noms ou le type est défini et qu'il contient au moins un membre public. Vérifiez que le nom de l'élément importé n'utilise pas d'autres alias

et donc le mot clé New directoryentry() ne pas defini

merci encore une fois


je travaille en visual basic 2008 (vb.net)

[hugoclo]

Il faud ajouter la reference. Dans projet ajouter une reference.
Voici un code plus complet.

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
36
37
38
Imports System.DirectoryServices
Imports System.Collections
Imports System.Net
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim ips() As String
 
        Dim de As New directoryentry()
        de.Path = "WinNT://WORKGROUP"
 
        For Each d As directoryentry In de.children()
 
            If d.SchemaClassName = "Computer" Then MsgBox(d.Name)
            ips = GetIPaddresses(d.Name)
            MsgBox(d.Name & " adresse IP: " & ips(0))
        Next
 
 
    End Sub
    Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String()
 
        Dim saddr() As String
        Dim addr() As IPAddress = Dns.GetHostEntry(computername).AddressList()
        Dim i As Integer
        If addr.Length > 0 Then
            saddr = New String(addr.Length - 1) {}
            For i = 0 To addr.Length - 1
                saddr(i) = addr(i).ToString
            Next
 
        End If
 
        Return saddr
 
    End Function

[marouprod]

merci amigos pour votre réponse
mais il reste un problème concernant la ligne :
For Each d As directoryentry In de.children()une erreur se déclenche lors de l'exécution

Erreur inconnue (0x80005000)

comment peut on le corrigé
et un grand merci d'avance

[hugoclo]

Quel est le groupe de travail?
Dans l'exemple c'est Workgroup nom a changer selon votre groupe

[marouprod]

pas de résultat je modifie le nom de groupe selon mon groupe de travail "Marouprod" mais l'erreur reste la même

[hugoclo]

Quel est votre OS?

[marouprod]

windows XP sweet 6.2