Mir fehlen aber SubnetMask und Gateway für jeden
Network-Adapter. Weiss jemand wo ich die finde?
Versuchs mal mit den ManagementObject-Classes. Die haben nur einen GROSSEN Nachteil. Sie sind kaum oder meistens sogar nicht dokumentiert.
auf
http://www.vbcity.com/forums/topic.asp?tid=13981&hig…
hab ich vor ewigen Zeiten mal ein Beispiel für die MAC-Adresse gefunden. Ich weiß dass man damit auch den Gateway und die Subnetmask auslesen kann, aber ich weiß nicht mehr wie das war. Aber das sollt da schon Helfen.
In mo.Item(„macaddress“) ersetze einfach das „macaddress“ durch „subnetmask“ oder so. vielleicht hilfts. Spiel dich a bissl damit herum. Versprechen kann ich da nix, aber vielleicht hilfts ja.
Aufruf einfach mit: EnumNetworkAdapters()
'keine Zusätzlichen Imports; System.Management ist aber interresant
Public Sub EnumNetworkAdapters()
TextBox1.Text = „“
Try
Dim query As New System.Management.ManagementObjectSearcher(„SELECT * FROM Win32_NetworkAdapterConfiguration“)
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject()
For Each mo In queryCollection
If (IsDBNull(mo.Item(„macaddress“)) = False) AndAlso (mo.Item(„macaddress“) „“) Then TextBox1.Text = TextBox1.Text & mo.Item(„macaddress“) & vbCrLf
Next mo
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
MfG
Alexander Pichlbauer