使用visio的vba测试visio图中的多个ip是否通

使用 VBA 脚本测试 Visio 图中的多个 IP 是否通信，可以通过以下步骤实现：

1. 在 Visio 中绘制 IP 图标，设置好 IP 地址和名称等属性；
2. 编写 VBA 脚本，使用 Ping 命令测试 IP 是否通信；
3. 循环遍历 Visio 图中的 IP 图标，调用 Ping 命令测试每个 IP 是否通信；
4. 根据测试结果，将 IP 图标的颜色或者其他属性进行相应的修改。

下面是一个简单的 VBA 代码示例：

Sub TestIP()
    Dim shp As Shape
    For Each shp In ActivePage.Shapes
        If shp.Master.Name = "IP" Then
            Dim ip As String
            ip = shp.Characters.Text
            If Ping(ip) Then
                shp.Cells("Fillforegnd").FormulaU = "RGB(0, 255, 0)"
            Else
                shp.Cells("Fillforegnd").FormulaU = "RGB(255, 0, 0)"
            End If
        End If
    Next shp
End Sub

Function Ping(ip As String) As Boolean
    Dim objPing As Object
    Dim objStatus As Object
    
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & ip & "'")
    For Each objStatus In objPing
        If objStatus.StatusCode = 0 Then
            Ping = True
        Else
            Ping = False
        End If
    Next
End Function

此脚本遍历 Visio 图中的所有形状，如果形状的 Master 为 IP，则取出 IP 地址并调用 Ping 函数进行测试，根据测试结果修改形状的 Fillforegnd 属性，以显示不同的颜色。Ping 函数使用 WMI 查询 Win32_PingStatus 类来执行 Ping 命令，返回结果包含 StatusCode 属性，0 表示 Ping 成功，非 0 表示失败。