Bonjour tout le monde,

Voilà après quelques recherches sur le net j'ai trouvé une fonction dont j'ai vraiment besoin dans mon projet. Il s'agit de voir toutes les adresses ip des machines dans un réseau local mais quand j'ai écrit le code il apparait une exception de référence null.
Voilà le 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
26
Public Shared Function GetAllIPADDRESSES(Optional ByVal args As String() = Nothing) As Integer
'args in the signature is optional, without it
'the function will simply get the hostname
'of the local machine then go from there

Dim strHostName As New String("")
If args.Length = 0 Then
' Getting Ip address of local machine...
' First get the host name of local machine.
strHostName = DNS.GetHostName()
Console.WriteLine("Local Machine's Host Name: " + strHostName)
Else
strHostName = args(0)
End If

' Then using host name, get the IP address list..
Dim ipEntry As IPHostEntry = DNS.GetHostByName(strHostName)
Dim addr As IPAddress() = ipEntry.AddressList

Dim i As Integer = 0
While i < addr.Length
Console.WriteLine("IP Address {0}: {1} ", i, addr(i).ToString())
System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
End While
Return 0
End Function
L'exception se situe dans la ligne en rouge. L'exception est :
La référence d'objet n'est pas définie à une instance d'un objet
Aussi que faut il mettre au juste dans le paramètre de la fonction exactement

Merci de m'aider.