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