WScript.CreateObject(WScript.Shell)

为什么 WScript.CreateObject(WScript.Shell) 无法执行
━━━━━━━━━━━━━━━━━━━━━━━━━━
源 VBS 程序∶
Dim t
Set t=WScript.CreateObject("WScript.Shell")
Set t=Nothing
WScript.Quit(0)

运行后出现错误：
行：2
错误：无法找到名为"WScript.Shell"的 automation 类
代码：80020009
源：WScript.CreateObject

请问给位高手如何解决？
━━━━━━━━━━━━━━━━━━━━━━━━━━
解决办法：
1 新建文本文档.txt (填写以下内容)
Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\WScript.Shell] @="Windows Script Host Shell Object"[HKEY_CLASSES_ROOT\WScript.Shell\CLSID] @="{72C24DD5-D70A-438B-8A42-98424B88AFB8}"[HKEY_CLASSES_ROOT\WScript.Shell\CurVer] @="WScript.Shell.1"
2 保存并重命名为 WScript.reg
3 把 WScript.reg 导入注册表
4 在“开始→ 运行”里输入“regsvr32 WSHom.Ocx”（不包括双引号），确定。
就可以回复正常了。