描述
返回安装在计算机中的每个支持 IP 的网络适配器的 IP 地址。
脚本代码
复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next
您可能感兴趣的文章:- vbs列出内网的中计算机(工作组也可以)
- 域内计算机和用户获取实现vbs代码
- 用vbs实现判断计算机是笔记本还是台式机的代码
- vbs实现计算机重启
- 如何用VBS脚本收集远程计算机或本地计算机安装的软件