用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