UC知道开机不插网线锁定电脑 vbs
来源：百度知道 编辑：UC知道 时间：2024/06/06 00:39:13
请教各位VBS编程高手，如何编制用VBS脚本当开机不插网线就重启电脑。
这个不行。这个只能只用中断开网络起作用！
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop
就是插了网线可以正常到桌面。不插网线就重启。。
我是要他不插网线就会重启。不是我现在不插网线会重启。
这个不行。这个只能只用中断开网络起作用！
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34)
Loop
就是插了网线可以正常到桌面。不插网线就重启。。
我是要他不插网线就会重启。不是我现在不插网线会重启。
一般总掉还会上的去的.好像不是线路的问题 .我觉的你先咨询咨询网通.或者电信要是他们检查没有问题的话你就看看网卡驱动有没有问题.要是重新装了网卡驱动还是掉的话.那你应该试试重装系统 各位小菜 祝大家新年快乐