Discussion :

[INESBERR]

Bonjour,

ça fais quelques jours je galère avec une partie de mon application windows que j arrive pas à trouver le code source bref j ai besoin en cliquant sur un bouton d'avoir la liste des adresse Ip qui se trouve en réseau local . j ai essayé de faire le max mais a chaque fois c est l IP de mon pc que ça m'afficha , s'il vous plait si quelqu'un a une réponse n’hésiter pas a me repondre c est important pour mon stage

[dkmix]

Bonjour,

Par exemple (en c#) :

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
using System.Diagnostics; 
 using System.IO; 
 
//Gets the machine names that are connected on LAN 
 Process netUtility = new Process(); 
 netUtility.StartInfo.FileName = "net.exe"; 
 netUtility.StartInfo.CreateNoWindow = true; 
 netUtility.StartInfo.Arguments = "view"; 
 netUtility.StartInfo.RedirectStandardOutput = true; 
 netUtility.StartInfo.UseShellExecute = false; 
 netUtility.StartInfo.RedirectStandardError = true; 
 netUtility.Start(); 
 
StreamReader streamReader = new StreamReader(netUtility.StandardOutput.BaseStream, netUtility.StandardOutput.CurrentEncoding); 
 
string line = ""; 
 
while ((line = streamReader.ReadLine()) != null) 
 { 
       if (line.StartsWith("\\")) 
       { 
            listBox1.Items.Add(line.Substring(2).Substring(0, line.Substring(2).IndexOf(" ")).ToUpper()); 
       }  
} 
 
streamReader.Close(); 
netUtility.WaitForExit(1000);

lien forum msdn

[INESBERR]

Rebonjour,


Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String()

Dim saddr() As String
Dim addr() As IPAddress = Dns.Resolve(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

voila un code que j ai essayé mais ça marche pas au niveau de Dns.Resolve ça me dit Resolve is obsoleted try GethostEntry et cette derniere ça marche pas aussi , est ce que que c est a ce point deficile de trouver liste des IP qui se trouve sur reseau ethernet dans une societé???

[dkmix]

Bonjour,

Avez-vous essayé le bout de code proposé ci-dessus ?
Il existe des convertisseurs VB/C# sur internet

[INESBERR]

bonjour,


je vous remercie j ai essayé votre code en c# même ça marche , c pas grave je vais faire cette partie en c# merci enormément

[azstar]

tu peux utiliser WMI

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim moOS As ManagementObjectSearcher
Dim moIP As ManagementObject
Dim ip AsString
 
moOS = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
ForEach moIP In moOS.Get
ip = moIP("IPAddress").ToString
Next

[INESBERR]

Bonjour AZSTAR,

je vous remercie pour votre aide et votre solution me semble trop logique , mais j ai eu quelques difficultés déja je suis en framwork 4 vb.net 2010 et j'arrive pas a comprendre malgré quelques recherche sur msdn l'erreur voila
le mot en rouge c est la ou ya l erreur et ça di que ManagementObjectSearcher ça peut etre indexé car elle n a pas de propriete par defaut , y'a l espace de nom en place System.Management je comprend pas , j'espere que qulqu'un me clarifié l'erreur

Try


Dim moOS As ManagementObjectSearcher
Dim moIP As ManagementObjectSearcher
Dim ip As String

moOS = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each moIP In moOS.Get
ip = moIP("IPAddress").ToString

Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[azstar]

bonjour ;

tu peux faire

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
 
 
  Try
 
            Dim moOS As ManagementObjectSearcher
            Dim ip As String
 
            moOS = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
 
            For Each mIP As ManagementObject In moOS.Get
                Dim Ips() As String = mIP.Properties("IPAddress").Value
                For Each _ip As String In Ips
                    'IP
                    Console.WriteLine(_ip)
                Next
 
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try