vb读取计算机mac地址,用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

取消

评论