vb.net获取mac vb 获取本机ip _IPAddress

vb.net获取本地连接的mac地址Private Sub Form_Load()
Dim strComputer As String
Dim objWMIAs Object
Dim colIPAs Object
Dim IPAs Object
Dim IAs Integer
strComputer = "."
Set objWMI = GetObject("winmgmts://"strComputer"/root/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP地址:"IP.IPAddress(I)Chr(10)_
"网卡类型:"IP.Description(I)Chr(10)_
"网卡地址:"IP.Macaddress(I)
Next
End If
Next
End Sub
用vb.net如何取得mac地址？这是C#的vb.net获取mac ， vb.net获取mac你可以转换一下
using System.Management;
//获取网卡的系列号
private static string GetMacAddress()
{
string ret = "";
try
{
ManagementClass cimobject = new ManagementClass("Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc = cimobject.GetInstances();
if (moc.Count == 0)
return "";
else
{
foreach (ManagementObject mo in moc)
{
【vb.net获取mac vb 获取本机ip】if ((bool)mo["IPEnabled"] == true)
{
ret = (string)mo.Properties["MacAddress"].Value;
break;
}
}
}
}
catch
{
ret = "";
}
return ret;
}
用VB获取MAC地址Private Sub Form_Load()
Dim Mac
strComputer = "."
Mac = ""
'获得MAC信息
Set objWMIService = GetObject("winmgmts:""{impersonationLevel=impersonate}!//"strComputer"/root/cimv2")'''加上这个
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objItem In colItems
Mac = Mac" "objItem.macaddress
Next
TeMac.Text = Replace(Trim(Mac), ":", "-")
strComputer = "."
Set objWMI = GetObject("winmgmts://"strComputer"/root/cimv2")
Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each Ip In colIP
If Not IsNull(Ip.ipaddress) Then
For i = LBound(Ip.ipaddress) To UBound(Ip.ipaddress)
'Mac = Ip.macaddress(I)objObject.DNSHostName
If Ip.ipaddress(i) = "0.0.0.0" Then
Else
TeIp.Text = Trim(TeIp.Text" "Ip.ipaddress(i))
End If
'MsgBox "IP 地址:"IP.ipaddress(I)Chr(10)_
"网卡类型:"IP.Description(I)Chr(10)_
"网卡地址:"IP.macaddress(I)
Next
End If
Next
End Sub
vb.net获取mac的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 获取本机ip、vb.net获取mac的信息别忘了在本站进行查找喔。

vb.net获取mac vb 获取本机ip

推荐阅读

房子阳台朝哪个方向好房子阳台朝什么方向好

独在异乡的第二年

炒这些菜时千万不要放醋以免发生反应

尼康d850的基本设置是什么尼康d850的基本设置

滴滴与uber的竞争分析,uber被滴滴合并分析

中括号 [ ]在数学表示什么中括号 [ ]在数学里面表示什么

埋线改全切怎么抽线

鮟鱇鱼的特点

苏州林内燃气热水器不燃烧是什么原因,全面的对比下

青砖伴瓦漆白马踏新泥什么意思

自热火锅上层加热水会爆炸吗

摩托罗拉|泪目！华为商城上线“中国制造”个性手机壳全系9.9元

矩阵分析那本书好,矩阵在那本书里讲

python函数需要背吗 python需要背哪些东西英语

iphone|真不怕冷！零下三十度都能用，支持热成像和激光测距！AGM G1发布

劳动合同解除和终止的区别是什么

元日古诗解释元日古诗的翻译及原文

癌症|院士坦言癌症不可能被消灭？从头到脚的防癌重点，帮你总结全了

青州新办事中心地址在什么位置

煎饺和蒸饺的区别