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

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

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

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

VBScript code

<SCRIPT language=VBScript>Dim OperationRegistrySet OperationRegistry=CreateObject("WScript.Shell")Dim Read_Data1,Read_Data2Read_Data1=OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Classes\\Test")MsgBox("Default="&Read_Data1)</SCRIPT>
------解决方案--------------------------------------------------------
WShell只能运行在windows脚本宿主中.
ie中无法使用wshell对象.