IP-Adressen bei VPN unter Windows 7
Christian
mein gutes altes Script zum Auslesen meiner IP-Adressen funktioniert unter Windows 7 (64bit) bei Windows-VPN-Verbindungen leider nicht mehr.
Da ich sehr häufig über eine oder mehrere Netzwerkkarten mit diversen Netzen verbunden bin, war dieses Script immer sehr hilfreich, da es alle aktiven Verbindungen auflistet - zumindest unter WinXP (32bit). Dies sind zum einen die physikalische IP's der Netzkarten als auch die für mich interessanten IP's bei VPN Verbindungen.
Das Script läuft auch jetzt ohne Fehlermeldung aber die IP's von Windows-VPN-Verbindungen werden nicht mehr erkannt. Alle anderen IP-Adressen - auch IP's von VPN-Verbindungen, die z.B. über den Cisco VPN-Client aufgebaut werden - werden angezeigt.
Hat jemand 'ne Idee, wie man mit winmgmts unter Win7-64 die IP's von Windows-VPN-Verbindungen auslesen kann?
vielen Dank vorab,
Grüße
Christian
Hier der Code mit besagtem Manko unter Win7-64:
Option Explicit
Sub IpAddresses()
MsgBox GetIPs
End Sub
Function GetIPs()
Dim opjIPs As Object, objIP As Object
Dim strIPs As String
Set opjIPs = GetObject( _
"winmgmts:{impersonationLevel=impersonate}!//localhost/root/cimv2").ExecQuery( _
"select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objIP In opjIPs
strIPs = strIPs & objIP.IPAddress(0) & vbLf
Next
If Len(strIPs) Then
strIPs = Left(strIPs, Len(strIPs) - 1)
Else
strIPs = "127.0.0.1"
End If
GetIPs = strIPs
Set objIP = Nothing
Set opjIPs = Nothing
End Function