| Forum: VB.NET |
Thema:
Re: Mac - Adresse auslesen mit vb.net |
Von:
G. Guest (
28.07.2004 16:07) |
Public Sub MAC_lesen()
Dim mos As Management.ManagementObjectSearcher
Dim moc As Management.ManagementObjectCollection
Dim mo As New Management.ManagementObject()
Dim pd As Management.PropertyData
mos = New Management.ManagementObjectSearcher("SELECT macaddress FROM Win32_NetworkAdapterConfiguration")
moc = mos.Get()
For Each mo In moc
For Each pd In mo.Properties
If mo.Item("macaddress") <> ""
software.items.add(pd.value.tostring)
Mac_Adresse = pd.value.toString
MAC_Adresse = MAC_Adresse.Replace(":", "-")
End If
Next
Next
moc.Dispose()
mos.Dispose()
End Sub
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
