用vbs得到计算机的 IP 地址

198 阅读 0 评论 131 点赞

我是靠谱客的博主野性大雁，这篇文章主要介绍用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 