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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
''' <summary>
''' Gibt ein Stringarray mit den Lokalen IPs zurück
''' </summary>
''' <param name="GenerateIP">wenn keine IP gefunden wird, eine genereiren?</param>
Public Function GetLocalIPs(Optional ByVal GenerateIP As Boolean = False) As String()
Dim StrngAr() As String
Try
Dim IP As Net.IPAddress
Dim IPList As Array = Net.Dns.GetHostEntry(SystemInformation.ComputerName.ToString).AddressList
If IPList.Length > 0 Then
ReDim StrngAr(IPList.Length - 1)
For i As Integer = 0 To IPList.Length - 1
IP = IPList.GetValue(i)
StrngAr(i) = IP.ToString
Next
Return StrngAr
End If
Catch ex As Exception
End Try
ReDim StrngAr(0)
If GenerateIP = True Then
StrngAr(0) = "192.168.1.1"
Else
StrngAr(0) = "0.0.0.0"
End If
Return StrngAr
End Function
''' <summary>
''' Gibt einen String mit der ersten gefundenen gültigen IP zurück.
''' </summary>
''' <param name="GenerateIP">wenn keine IP gefunden wird, eine genereiren?</param>
Public Function GetLocalIP(Optional ByVal GenerateIP As Boolean = False) As String
Try
Dim IP As Net.IPAddress
Dim IPList As Array = Net.Dns.GetHostEntry(SystemInformation.ComputerName.ToString).AddressList
If IPList.Length > 0 Then
For i As Integer = 0 To IPList.Length - 1
IP = IPList.GetValue(i)
If IP.ToString <> "0.0.0.0" Then Return IP.ToString
Next
End If
Catch ex As Exception
End Try
If GenerateIP = True Then
Return "192.168.1.1"
Else
Return "0.0.0.0"
End If
End Function
|