小草博客

A-A+

Vbs实现断网就关机的代码（两种方法）

2016年01月04日 站长资讯 暂无评论

受一个朋友委托，编写一段vbs代码实现断网就强行关闭计算机的功能，他说为学生机房上课时使用，上课时总有学生想脱离老师的监视，为此，会拔掉网线或者禁用网卡，所以，弄个vbs脚本检测网卡状态，如果断网马上强行关机。

注:方法一是通过检测网卡的状态来进行相应的操作。

注:方法二是通过ping一个指定的IP地址，用于检测网卡的运行状态，如果网卡无法通讯或者通讯失败这样就无法返回Ping的结果，根据这个结果判断是否进行强制关机操作。由此，还有个“意外收获”那就是，当断掉指定的IP地址连接后，所有机器会自动关闭计算机，因此，此段程序还可以有别的用途，自己想吧！

=========方法一的代码=====

  1. Dim objWMIService,objShell  
  2. Set objWMIService = Getobject("winmgmts:\\.\root\cimv2")  
  3. Set objShell = CreateObject("WScript.Shell")  
  4.    
  5. ‘实现实时监测  
  6. do while true  
  7. Dim objNetworks,objNetwork  
  8. Set objNetworks = objWMIService.execQuery("Select * From Win32_NetworkAdapter where NetConnectionID='本地连接'")   
  9.    
  10. For Each objNetwork In objNetworks  
  11.          if objNetwork.NetConnectionStatus<>2 then  
  12.                   objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "由于计算机网络断开，机器即将关闭" & chr(34)  
  13.                    'msgbox "网络已断开"  
  14.                    exit for  
  15.          end if  
  16.    
  17. Next  
  18. set objNetworks=nothing  
  19. ‘延时10秒  
  20. WScript.sleep 1000*10  
  21. Loop  

=======方法二代码========

  1. strIP="192.168.1.1"  
  2. ‘实时监测  
  3. do while true  
  4. Set objShell = CreateObject("WScript.Shell")  
  5. If Not IsOnline_1(strIP) Then  
  6.   objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "机器即将关闭" & chr(34)   
  7. wscript.quit  
  8. End If  
  9. wscript.sleep 1000*10  
  10. loop  
  11.    
  12. ‘=========此段函数仅供参考，不会在主程序中调用===========  
  13. '通过dos窗口的方式ping，但是，屏幕上会出现黑色dos窗口,每运行一次下面的函数都会弹出一次dos和色窗口，很快就会被人发现。  
  14. Function IsOnline(strComputer)  
  15.     IsOnline = false  
  16.     strCommand = "%comspec% /c ping -n 2 -w 500 " & strComputer & ""  
  17.     Set objExecObject = objShell.Exec(strCommand)  
  18.     Do While Not objExecObject.StdOut.AtEndOfStream  
  19.          strText = objExecObject.StdOut.ReadAll()  
  20.          If Instr(strText, "Reply") > 0 Then  
  21.                    IsOnline = true  
  22.          End If  
  23.     Loop  
  24. End Function  
  25. ‘====================函数结束==========================  
  26.    
  27. '纯vbs进行ping操作，这样不会弹出dos窗口，不会被发现。  
  28. Function IsOnline_1(URLstr)  
  29.     IsOnline_1 = false  
  30. strComputer = "."  
  31. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
  32. Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & URLstr & "'")  
  33.     For Each objPing in colPings  
  34.           if instr(objPing.ProtocolAddress,URLstr)>0 then  
  35.                          IsOnline_1=true  
  36.                          exit for  
  37.                end if  
  38.     Next  
  39. End Function  

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

标签：

给我留言