vbs

关注公众号 jb51net

关闭
首页 > 脚本专栏 > vbs > VBS 断网 自动关机

VBS 断网后自动关机30秒后

投稿:mdxy-dxy

只要运行它后,一旦网线被拔掉的话,马上就进入自动关机倒计时,“-t 30”是倒计时的时间,你可以自己调整。

核心代码

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地址连接后,所有机器会自动关闭计算机,因此,此段程序还可以有别的用途,自己想吧!!!

总结:以上两种方法都是为了检测网卡的运行状态才进行相应的操作的,只是实现方法完全不同,这你就要根据情况自行选择了!!!

您可能感兴趣的文章:
阅读全文