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

推荐阅读

excel计划表怎么使用，如何用excel制作计划表

免安装版mysql安装及配置超详细教程免安装的mysql数据库

怎么煮火锅好吃又简单怎么煮火锅好吃又简单窍门

宁夏红酒过期了还能喝吗宁夏红酒过期了还能不能喝

夏季吃粗粮养生健康美丽

有10万活期存款,每个月除去开销后有8K,怎么理财能每月收益1K？

什么是工艺能力

k3路由器

蝎子炸多久才熟油炸蝎子能放多久

摩羯女的孽缘星座摩羯四大孽缘星座

泉州结婚登记办理照片有什么要求吗泉州结婚登记办理照片有什么要求

代码编程软件图标含义图解，请问C编写代码时这几种图标分别代表什么

Linux中如何安装并使用http_load对服务器进行压力测试

癌症|癌症无缘无故发生？看了这3个“信号”，才恍然大悟

2018.5.27四个力量-拔除伤害他人生命和无明的坏种子

榴莲带有苦味是催熟的吗

虚拟机镜像怎么加载好快，虚拟机镜像的作用

买来了风信子盆栽怎么样

大金空调显示a3怎么回事是什么故障,原因通常是这样的

葡萄采果后施什么肥葡萄采果后必须施肥吗