vbscript获取本机的ip地址和mac地址

最新推荐文章于 2021-07-30 18:07:15 发布

liaomin416100569

最新推荐文章于 2021-07-30 18:07:15 发布

阅读量2.5k

点赞数

分类专栏： vbscript 文章标签： vbscript each function

本文链接：https://blog.csdn.net/liaomin416100569/article/details/7106246

版权

vbscript 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

msgbox "ip地址是:"&GetIP(".")
msgbox "mac地址是:"&GetMAC(".")

Function GetIP(ComputerName)
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP= objAddress
Exit For
End If
Next
Exit For
Next
End Function

Function GetMAC(ComputerName)
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetMAC= objItem.MACAddress
Exit For
End If
Next
Exit For
Next
End Function