如何将指定PowerShell代码改写为原生.vbs脚本实现IP地址弹窗展示

以下VBS脚本完全原生实现了你给出的PowerShell代码的过滤逻辑，直接双击运行即可弹窗输出符合要求的IP地址，无需调用任何.ps1文件：

Dim objWMIService, colItems, objItem, ipAddr, outputStr
outputStr = "符合规则的IP地址：" & vbCrLf & vbCrLf

' 连接WMI服务获取网卡配置
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objItem In colItems
    ' 跳过环回接口
    If InStr(1, objItem.Description, "Loopback", vbTextCompare) > 0 Then GoTo NextItem
    
    ' 遍历IP地址数组
    If Not IsNull(objItem.IPAddress) Then
        For Each ipAddr In objItem.IPAddress
            ' 筛选IPv4且192.168开头的地址
            If InStr(ipAddr, ".") > 0 And Left(ipAddr, 8) = "192.168." Then
                outputStr = outputStr & ipAddr & vbCrLf
            End If
        Next
    End If
NextItem:
Next

' 弹窗输出结果
WScript.Echo outputStr

匹配规则说明 #

• 仅筛选IPv4地址
• 自动排除环回接口地址
• 仅保留192.168开头的内网IP地址

内容的提问来源于stack exchange，提问作者Gundam0079