您现在的位置是：网站首页> 编程资料编程资料
VBS 断网后自动关机30秒后_vbs_
2023-05-25
264人已围观
简介 VBS 断网后自动关机30秒后_vbs_
核心代码
Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") 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只要运行它后，一旦网线被拔掉的话，马上就进入自动关机倒计时，“-t 30”是倒计时的时间，你可以自己调整。
下面是其他的补充
受一个朋友委托，编写一段vbs代码实现断网就强行关闭计算机的功能，他说为学生机房上课时使用，上课时总有学生想脱离老师的监视，为此，会拔掉网线或者禁用网卡，所以，弄个vbs脚本检测网卡状态，如果断网马上强行关机。
代码一
Dim objWMIService,objShell Set objWMIService = Getobject("winmgmts:\\.\root\cimv2") Set objShell = CreateObject("WScript.Shell") '实现实时监测 do while true Dim objNetworks,objNetwork Set objNetworks = objWMIService.execQuery("Select * From Win32_NetworkAdapter where NetConnectionID='本地连接'") For Each objNetwork In objNetworks if objNetwork.NetConnectionStatus<>2 then 'objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "由于计算机网络断开，机器即将关闭" & chr(34) msgbox "网络已断开" exit for end if Next set objNetworks=nothing '延时10秒 WScript.sleep 1000*10 Loop注：方法一是通过检测网卡的状态来进行相应的操作。
方法二
strIP="192.168.1.1" '实时监测 do while true Set objShell = CreateObject("WScript.Shell") If Not IsOnline_1(strIP) Then objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "机器即将关闭" & chr(34) wscript.quit End If wscript.sleep 1000*10 loop=========此段函数仅供参考，不会在主程序中调用===========
通过dos窗口的方式ping，但是，屏幕上会出现黑色dos窗口,每运行一次下面的函数都会弹出一次dos和色窗口，很快就会被人发现。
Function IsOnline(strComputer) IsOnline = false strCommand = "%comspec% /c ping -n 2 -w 500 " & strComputer & "" Set objExecObject = objShell.Exec(strCommand) Do While Not objExecObject.StdOut.AtEndOfStream strText = objExecObject.StdOut.ReadAll() If Instr(strText, "Reply") > 0 Then IsOnline = true End If Loop End Function
纯vbs进行ping操作，这样不会弹出dos窗口，不会被发现。
Function IsOnline_1(URLstr) IsOnline_1 = false strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & URLstr & "'") For Each objPing in colPings if instr(objPing.ProtocolAddress,URLstr)>0 then IsOnline_1=true exit for end if Next End Function注：方法二是通过ping一个指定的IP地址，用于检测网卡的运行状态，如果网卡无法通讯或者通讯失败这样就无法返回Ping的结果，根据这个结果判断是否进行强制关机操作。由此，还有个“意外收获”那就是，当断掉指定的IP地址连接后，所有机器会自动关闭计算机，因此，此段程序还可以有别的用途，自己想吧！！！
总结：以上两种方法都是为了检测网卡的运行状态才进行相应的操作的，只是实现方法完全不同，这你就要根据情况自行选择了！！！
您可能感兴趣的文章:
