用vbs得到计算机的 IP 地址
程序员文章站
2022-06-23 21:02:43
描述返回安装在计算机中的每个支持 ip 的网络适配器的 ip 地址。 脚本代码 复制代码 代码如下:strcomputer ...
描述
返回安装在计算机中的每个支持 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
返回安装在计算机中的每个支持 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