用vbs得到计算机的 IP 地址

2019-10-26 17:59:57

字体：大中小

来源：转载

供稿：网友

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

上一篇：vbscript下调用 Dir 命令的方法

下一篇：定时自动备份IIS的WWW日志的vbs脚本