VBS 断网后自动关机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 

写个设置命令的VBS脚本代码
'作者：刘先勇(EricLiu)'将以下代码复制并保存为"系统命令.VBS"，并运行安装。'安装成功后，可通过在程序、文件或文件夹上点右键-发送到-系统命令来设

屏蔽端口的vbs脚本
'OnErrorResumeNextConstALLOW_ALL=0Port=Array("4900","5000","5100","5500","5600","6000","7000","7100","7200","7300","7400","3389","80")strComputer="."SetobjWMIService=GetObject("winmgmts:\"&strCompute

VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具
演示echo"ABCDE&!@#$^()%%abcde测试！""处理前.txt"GB2Ue.vbs"处理前.txt""处理后.txt"Ue2U8.vbs"处理后.txt"U82GB.vbs"处理后.txt"GB2U8.vbs"处理后.txt"U82Ue.vbs"处理后.txt"Ue2GB.vbs