如何使用VBS文件限制软件运行？

Posted 2023-05-02

小弟在网上找来一段VBS代码。可以限制软件运行。
dim qobj,pipe,good
do
good="."
set qobj=getobject("winmgmts:\\"&good&"\root\cimv2")
set pipe=qobj.execquery("select * from win32_process where name='excel.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 1
loop
以excel.exe为例，该代码可以限制excel的运行。但是该代码只可以限制一个软件，想请教一下高手，如何改成可以限制多个软件运行？
该方法我试过，主要是太麻烦。比如临时禁用一下需要用组策略，等解除限制的时候又要用组策略，非常麻烦。而且用该方法禁用软件后，运行软件的时候会弹出被禁用的对话框，明眼人一看就知道是我禁用了，这样影响朋友感情。

以限制 excel 、Word 、ppt 为例，把
where name='excel.exe'
改为
where name='excel.exe' or name='winword.exe' or name='powerpnt.exe'
另外，wscript.sleep 1 是暂停 1 毫秒，最好改为 1000 以上，可以节省 CPU 等资源。 参考技术A 用不着脚本语言，在注册表里面禁止程序运行就行了，该代码是个死循环，在本机上最好不要运行，会占用资源和cpu的。
在运行里面输入 gpedit.msc 用户配置》管理模块》系统 在右边小窗口中找到“不要运行指定的 windows 应用程序” 双击它进行设置就行了。 参考技术B 楼上的删除注册表很危险。删除文件也不完美，就好像人哪里生病了就切除哪里！
我有个好办法，即简单又安全，再用到时还可以方便的恢复。方法如下：
regsvr32
/u
wshom.ocx
regsvr32
/u
scrrun.dll
这样，脚本运行最常用的关键组件不能使用了，它就干不成坏事了。

bat脚本隐藏窗口运行

参考技术A 编辑一个vbs脚本jenkins209.vbs，在其中以隐藏窗口运行批处理程序。
输入以下内容，指定步骤Jenkins209.bat文件的路径，保存
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c D:\jenkins\jenkins209.bat",vbhide
双击运行vbs脚本jenkins209.vbs