[问题求助] [已解决]vbs代码，会连续弹出2个对话框。能否放在1个对话框里面，同时显示2个内容？

'判断网络是否畅通，当大于500毫秒即判断为超时。
Set ws = WScript.CreateObject("WScript.Shell")

Fir=""
Sec=""

TheIP1 = "192.168.11.118"
aaserv = "aa服务器"


TheIP2 = "10.10.128.13"
bbserv = "bb服务器"



PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP1 & PingSet ,0, True)
    If TheState = 0 Then
        Fir= aaserv & TheIP1 & "网络通畅"
    Else
        Fir= aaserv & TheIP1 & "网络不通畅"
    End If


PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP2 & PingSet ,0, True)
    If TheState = 0 Then
        Sec= bbserv & TheIP2 & "网络通畅"
    Else
        Sec= bbserv & TheIP2 & "网络不通畅"
    End If


'MsgBox Fir & vblf & Sec

msg = CreateObject("wscript.shell").popup (Fir & vblf & Sec,"8")
if msg = vbCancel then
	wscript.quit   
end if
复制代码

Function Ping(url) '检查网络Ping值，单位毫秒
    Set objWMI = GetObject("winmgmts:\\.")
    Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
    Ping=9999
    On error resume next
        For Each objPing in colPings
            Ping=objPing.ResponseTime+0
        Next
    On error goto 0
End Function
复制代码