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
Sub IP() strComputer = . Set objWMIService = GetObject(winmgmts:\\ & strComputer & \root\cimv2) Set IPConfigSet = objWMIService.ExecQuery _ (Select * from Win32_NetworkAdapterConfiguration ) For Each IPConfig In IPConfigSet On Error Resume Next s = s = s & Description: & IPConfig.Description & vbCrLf ss = For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress) ss = ss & IPConfig.IPAddress(i) & Next s = s & IPAddress: & ss & vbCrLf s = s & MACAddress: & IPConfig.MACAddress & vbCrLf MsgBox s Next End Sub
