用vbs得到计算机的 IP 地址

203 阅读 0 评论 134 点赞

我是靠谱客的博主野性大雁，最近开发中收集的这篇文章主要介绍用vbs得到计算机的 IP 地址，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

描述
返回安装在计算机中的每个支持 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 