为什么现在网上搜索的VBS读注册表的代码都不能运行？该如何处理

为什么现在网上搜索的VBS读注册表的代码都不能运行？
<SCRIPT language=VBScript>
Dim OperationRegistry 
Set OperationRegistry=WScript.CreateObject("WScript.Shell") 
Dim Read_Data1,Read_Data2 
Read_Data1=OperationRegistry.RegRead("HKEY_LOCAL_MACHINESOFTWAREClassesTest") 
MsgBox("Default="&Read_Data1) 
</SCRIPT>

总是提示没有WScript对象，请问是什么原因？
或者有别的能读取注册表键值的好办法吗？

------解决方案--------------------
WScript.CreateObject 是在直接运行的VBS文件里面使用的，网页里面不需要加WScript

VBScript code

<SCRIPT language=VBScript>
Dim OperationRegistry
Set OperationRegistry=CreateObject("WScript.Shell")
Dim Read_Data1,Read_Data2
Read_Data1=OperationRegistry.RegRead("HKEY_LOCAL_MACHINESOFTWAREClassesTest")
MsgBox("Default="&Read_Data1)
</SCRIPT>

------解决方案--------------------

WShell只能运行在windows脚本宿主中.
ie中无法使用wshell对象.