[问题求助] VBS如何规避因网络导致的延迟。

q121212

比如在一个局域网内有另外一台电脑：192.168.1.105
\\192.168.1.105\Music\黑豹乐队-靠近我.mp3
我要判断此文件是否存在，如果存在则a=1 不存在则a=0
'========正常思路是这样的=======
set fso =CreateObject("Scripting.FileSystemObject")
f1="\\192.168.1.105\Music\黑豹乐队-靠近我.mp3"
if fso.FileExists(f1) then a=1 else a=0
msgbox a
'================
正常情况下当然没问题
但是如果 192.168.1.105 这台电脑没有开机，用此命令的话会等很久才提示“0”
当然，上面的实例只是问题的具化，本质是网络是否通畅。

有没有办法规避这种情况？
VBS有没有可能给这个过程套个壳，限时（比如说500毫秒）判断是否成功，成功则继续；不成功则结束该过程并输出一个错误提示。  
或者有其他思路？


求姐，求带飞。

q121212

回复 3# yu2n


感谢    yu2n  的提示
代码已经用上：

Set ws = WScript.CreateObject("WScript.Shell")
TheIP = "192.168.1.105"
PingSet = " -n 1 -l 1 -w 500 "   
    TheState = ws.run("ping.exe " & TheIP & PingSet ,0, True)
    If TheState = 0 Then
        MsgBox "Ping = True"
    Else
        MsgBox "Ping = False"
    End If

判断网络是否畅通，当大于500毫秒即判断为超时。
久没上网，回复晚了。见谅见谅哈

q121212

回复 2# czjt1234


    代码我试过了，不是我想要的。应该是理解错我的出发点了。 还是感谢。