相关疑难解决方法(0)

是否可以循环函数直到item = TRUE？

我试图ping服务器...一旦建立连接,或Ping = TRUE,程序将执行.如果未建立连接,则ping将重复,直到它为TRUE.

到目前为止,我的代码如下.如果为TRUE,MyProgram将打开.如果为False,则再次调用该函数.但这不会发生......实际上没有任何事情发生,它只是退出.

任何帮助都很高兴.如果有人知道更有效的方法来完成这项任务,请告诉我.谢谢!

     Function Ping
        Dim oPing, oRetStatus, bReturn
        Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & "strHost" & "'")

        For Each oRetStatus In oPing
            If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
                bReturn = False
            Else
                bReturn = True
            End If
            Set oRetStatus = Nothing
        Next
        Set oPing = Nothing

    Ping = bReturn
    End Function

If Ping Then
    Call MyProgram
Else
    Call PingSub
End If

Sub MyProgram
    Dim objShell
        Set objShell = WScript.CreateObject( …