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
54
55
56
57
58
59
60
61
62
|
Public Shared Function GetIPAddresses(ByVal adapter As String) As String()
Dim oBuffer As New ArrayList()
Dim sInterface As String
Dim arrInterface As String()
Dim sIPAddress As String
Dim arrIPAddress As String()
Dim bDHCP As Boolean
Dim strBaseKey As String = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
Dim objRootKey As Microsoft.Win32.RegistryKey
Dim objKey As Microsoft.Win32.RegistryKey
Dim Registry As Microsoft.Win32.Registry = Nothing
objRootKey = Registry.LocalMachine.OpenSubKey(strBaseKey, False)
If objRootKey Is Nothing Then
Return oBuffer.ToArray(Type.GetType("System.String"))
Exit Function
End If
arrInterface = objRootKey.GetSubKeyNames()
For Each sInterface In arrInterface
objKey = Registry.LocalMachine.OpenSubKey(strBaseKey & sInterface & "\", False)
''Make sure that we got a key!
If Not (objKey Is Nothing) Then
'Pruft ob DHCP eingeschaltet ist
'wenn nicht, werden alle vorghanden IP addressen geladen
bDHCP = objKey.GetValue("EnableDCHP", False)
If bDHCP Then
'Einzelne IP address auslesen
sIPAddress = objKey.GetValue("DhcpIPAddress", "")
'Pruefung ob gueltige IP
If (sIPAddress.Length > 0) And (sIPAddress <> "0.0.0.0") Then
oBuffer.Add(sIPAddress)
End If
Else
For Each oName As Object In objKey.GetValueNames
'MsgBox(oName.ToString())
If oName.ToString.ToLower = "ipaddress" Then
'Lesen und array erstellen
arrIPAddress = objKey.GetValue(oName, "")
'Pruefung ob gueltige IP
For Each sIPAddress In arrIPAddress
If (sIPAddress.Length > 0) And (sIPAddress <> "0.0.0.0") Then
oBuffer.Add(sIPAddress)
End If
Next
End If
Next
End If
End If
Next
Registry.LocalMachine.Close()
Return oBuffer.ToArray(Type.GetType("System.String"))
End Function
|