谁能帮我做个自动禁用启用网络连接的VBS文件？

来源：百度知道 编辑：UC知道 时间：2024/06/27 04:55:15
网络因为小区服务器有问题经常会突然就掉网了,必须要禁用/启用本地连接后,网络又恢复正常了,这种情况很频繁,而且近期不会有人来修。
所以我想找个BAT或者VBS文件什么的,能让电脑在网速为0的时候自动禁用/启用本地连接。
这样我下载东西就安心了。

vbs代码如下:

om error resume next
do
Dim mc,mo
set ws=CreateObject("WScript.Shell")
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
Gateway="ping "&mo.DefaultIPGateway(0) &" -n 1"
Exit For
End If
Next
Return=ws.run( "cmd /c"&Gateway,0,true)
if return=1 then
netlink(800)
end if
wscript.sleep 4000
loop
sub netlink(a)
for i=0 to 1
set shellApp=createobject("shell.application")
set oControlPanel=shellApp.Namespace(3)
for each folderitem in oControlPanel.items
if folderitem.name="网络连接" then
set oNetConnections=folderitem.getfolder
exit for
end if
next
set oLanConnection=nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name)="本地连接&qu