1,定义函数:
Function GetIPMAC(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
GetIPMAC = objAddress & ",MAC:" & objItem.MACAddress
Exit For
End If
Next
Exit For
Next
End Function
2,调用方法:本机的机器名,用"."即可
print GetIPMAC(".")
即可输出本机的IP和MAC地址:
分享到:
相关推荐
VBS显示IP地址,VBS显示IP地址代码
VBS获取本地ip QTP应用 已经调试通过
由于到项目上出差,客户那里使用的网络需设置成固定ip,固定DNS。回到旅店又需要设置成自动,顺手写了这个脚本完成这个工作,大家学习交流
VBS,IP,IP地址,局域网,动态,VBS,IP,IP地址,局域网,动态
VBS获取ip,mac,自已用的自动化测试工具(don't down)
一个能够获取本机网卡MAC地址的vbs文件。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
用VBS脚本判断IP地址有效性
VBS设置IP地址
VBS结合WMI技术修改IP地址,网关,DNS等
更改IP地址.vbs 一个让网管给不懂IT电脑的人应用的脚本
在原有的主板、cpu、内存、显卡、硬盘信息采集的基础上增添了操作系统、光驱、声卡、网卡MAC地址的采集。
有同学问如何获取本机的Adapter ID? 可以把以下代码复制到记事本, 保存成为GetNicInfo.vbs 扩展名是VBS, 然后你可以双击运行, 程序会枚举本机所有的网卡(物理,以及虚拟的)信息. 然后你可以参照你真实的网卡的MAC地址...
换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs
VBS获取完整计算机配置信息,可添加域组策略,批量获取局域网计算机配置信息
VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") for i=1 to 5 wsh.run "Rasdial /DISCONNECT",false,1 wsh....
让本地连接属性变灰的VBS脚本 双击打开即可让本地连接变灰 可以防止别人修改本地连接IP地址
vbs实现自动IP和静态IP
先把IP获取改为自动,然后得到本机MAC,然后与对比mac对应的计算进名称是什么,最后通过注册表添加的方式更改计算机名和计算机描述
vbs获取主机型号,通过注册表找到型号,路径2不需要管理员权限
VB 取多网卡IP MAC地址 子网掩码 网关