16,554
社区成员
发帖
与我相关
我的任务
分享
Dim netAddress As String = ""
Dim netName As String = ""
Dim searcher As New Management.ManagementObjectSearcher("select * from win32_NetworkAdapterConfiguration")
Dim moc2 As Management.ManagementObjectCollection = searcher.Get()
For Each mo As Management.ManagementObject In moc2
If CBool(mo("IPEnabled")) Then '判断是否是网卡
netName = mo.Properties("caption").Value.ToString '网卡名称
netAddress = mo.Properties("MACAddress").Value.ToString 'mac地址
End If
Next
Dim wmi1 As New System.management.ManagementObjectSearcher("select * from win32_processor")
Dim uint321 As String
'Dim uint322 As UInt32
'Dim uint323 As UInt64
Dim uint324 As String
For Each wmiobj As ManagementObject In wmi1.Get
uint321 = wmiobj("processorid")
Next
'获得硬盘序列号
'Dim cmicwmi As New System.management.ManagementObjectSearcher("select * from win32_diskdrive")
'For Each cmicwmiobj As ManagementObject In cmicwmi.Get
' uint322 = cmicwmiobj("signature")
'Next
'获得硬盘总容量
'Dim wmi As New System.management.ManagementObjectSearcher("select * from win32_diskdrive")
'For Each wmiobj As ManagementObject In wmi.Get
' uint323 = wmiobj("size")
'Next
'网卡MAC
Dim Wmi4 As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each WmiObj As ManagementObject In Wmi4.Get
If CBool(WmiObj("IPEnabled")) Then
uint324 = WmiObj("MACAddress") & vbCrLf
End If
Next
Dim netid as String=""
Dim searcher as New ManagermentObjectSearch("select * from win32_NetworkAdapterConfiguration")
Dim moc2 as ManagementObjectCollection = searcher.Get()
For Each mo as ManagementObject in moc2
netid = mo.Properties["MACAddress"].Value.ToString
Next
//网卡
String netid = "";
ManagementObjectSearcher searcher = new ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc2 = searcher.Get();
foreach (ManagementObject mo in moc2)
{
netid = (string)mo.Properties["MACAddress"].Value;
}