Question

求帮忙写个vbs开机断网程序 编程高手来~

写个vbs文件

作用是在每次开机时 指定时间内断网

或频繁间歇性 断网

vbs文件发来时 请高手写明注释~

谢谢~ 以便我能看懂 或修改~

比如说 我在开机（联网）后10分钟断网 当再次有人（手动）联网时 20分钟后断网

只要联网 规定时间内 自动断网

set ws=createobject("wscript.shell")
wscript.sleep 5000
ws.run "rasdial /disconnect"'

以上代码只是一次性的 我要的是多次性的 谢谢~

还有就是以上代码在xp中运行正常 为什么在win7中运行错误 运行不了呢 求解决~

Answer 1

断开连接
--------
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from MSNdis_StatusMediaDisconnect")

Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo "A network connection has been lost:"
WScript.Echo strLatestEvent.InstanceName, Now
Wscript.Echo
Loop
如果要让他自动删除加
--------
createobject("scripting.filesystemobject").deletefile wscript.scriptfullname

追问

请写明下注释

Answer 2

do
set ws=createobject("wscript.shell")
wscript.sleep 5000
ws.run "rasdial /disconnect"'
loop
这样就可以重复运行了

Answer 3

WIN7中没有rasdial
从XP下拷贝一个rasman.dll，到WIN7下就可以正常执行。rasman.dll在 system32中

Answer 4

do
set ws=createobject("wscript.shell")
wscript.sleep 5000
ws.run "rasdial /disconnect"
loop

追问

你回答的是对的 但是只限xp
而且回答的永远不是很完美 之回答了我的部分问题
其实我要的是这种效果 比如说 我在开机（联网）后10分钟断网 当再次有人（手动）联网时 20分钟后断网

追答

这条命令是5分钟循环一次断网。