描述

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

您可能感兴趣的文章:

声明:本站(华域联盟www.cnhackhy.com)所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。