◎阻止客人运行你不想运行的程序

很多人都有这样的经验，刚刚装好的系统，让人运行了一些你不想他运行的程序，比如说QQ，又是聊天，又是下载表情，不过一会，流氓插件、病毒、木马已经盘踞了你的计算机，常常是忍痛将这个程序卸载，可是不知情的人很自觉的下载安装，使整个系统无法正常运行。

其实用vbs和wmi结合起来，使你的计算机上有相应的程序安装，别人又无法运行起来太容易了，现在给出代码：

On Error Resume Next      '忽略所有的错误

Dim bag,pipe,honker,good

Do

good="."       '定义为本地计算机

set bag=getobject("winmgmts://"& good &"/root/cimv2")       'l连接到cimv2命名空间

set pipe=bag.execquery("select * from win32_process where name='qq.exe' or

name='qqgame.exe' or name='winmine.exe'")     

'看，这是我的计算机上不允许运行的程序，qq、qqgame、winmine（扫雷）如果你还有其他的程序不允许运行，很简单，在其中添加 or

name='你不允许运行的程序名'

for each i in pipe

i.terminate()

msgbox "发现盗版系统，现已进行功能限制" & vbcrlf & "请使用正版软件！",,"微软提示"     

'此行其实可有可无，有这行只是为了免去怀疑

next

wscript.sleep 60000      '每1分钟检测一次

loop

那么如果我自己想运行这些程序该怎么办呢？

很简单，Ctrl+Alt+Del三个键齐按，打开windows任务管理器，在进程中结束Wscript.exe和wmiprvse.exe进程的运行就可以了。