Question

我正在寻求帮助。我想要一个简单的vbs，它将检查是否存在实时连接。我在这里找到了一些见解，但答案似乎只针对所提出的问题，我不确定是否可以将其分解以供我使用。

我找到了

How to launch vbs script after internet connection is detected in windows xp?

这几乎是一个好的开始，但我不是在寻找循环功能

也

Check network connection with VBScript

但老实说看起来很亲密。

我想要的vb会以静默方式运行（有点像对象壳），它将最终存储在启动文件夹中。我想检查是否可以进行实时Internet连接（可能是对站点进行ping操作），如果可以，请执行某些操作，否则在启动时退出。连接到互联网并继续安装后，它将自动删除。

Answer 1

找到一种使其正常工作的方法。我只是更改了“ If PINGFlag then”，以打开一个链接到要下载文件的网站，而其他则做了其他功能。已经测试。有效。

set WshShell = CreateObject("WScript.Shell") 

WshShell.run ("%COMSPEC% /c ipconfig  /release"), 0, true
WshShell.run ("%COMSPEC% /c ipconfig  /renew"), 0, true

PINGFlag = Not CBool(WshShell.run("ping -n 1 www.google.com",0,True))
If PINGFlag Then
    MsgBox "ip release/renew was successful."
Else
    MsgBox "ip release/renew was not successful"
End If

建立vbscript连接然后做

1 个答案: