在记事本里粘贴以下文本，保存为“程序锁定.vbs",运行它输入要禁用的软件文件名就可以锁定或解锁输入的程序，可以很容易的限制你家小孩玩游戏，当然用它来禁止一些已知文件名的病毒运行也是可以的，可以用来辅助杀毒。

粘贴内容如下（蓝色部分）：

dim WshShell,fso,file,filename,PROGNAME
PROGNAME=TRIM(INPUTBOX("请输入要加锁EXE程序的主名,无需输入扩展名,如：" & chr(13)  & chr(13) & "QQ输入 QQ" & chr(13) & "IE浏览器输入 IEXPLORE" & chr(13) & "扫雷输入WINMINE","欢迎使用EXE程序加锁器 cnypzhw.ys168.com"))
if PROGNAME<>"" then
 filename="C:\proglock.reg"
 Set fso=CreateObject("Scripting.FileSystemObject")
 If fso.FileExists(filename)=0 then
  Set file=fso.CreateTextFile(filename,Ture)
 else
  Set file=fso.OpenTextFile(filename,2,Ture)
 End If
 file.WriteLine("Windows Registry Editor Version 5.00")
 IF MSGBOX("选 ""是"" 加锁,选 ""否"" 解锁",VBYESNO,"是否加锁 " & PROGNAME & ".EXE ?") =VBYES THEN
  file.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\" & TRIM(PROGNAME) & ".exe]")
  file.WriteLine("""Debugger""=""" & TRIM(PROGNAME) & ".exe""")
  file.Close
 ELSE
  file.WriteLine("[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\" & TRIM(PROGNAME) & ".exe]")
  file.Close
 END IF
 Set WshShell=WScript.CreateObject("WScript.Shell")
 WshShell.Run "regedit /s " & filename
 WScript.Sleep 2000
 Set Dl=Fso.getfile(filename)
 DL.DELETE
END IF