求助：想从注册表中读取数据库服务器名称来设置web所要连接的数据库，可是总是出错怎么回事？

[eaglev2]

我的系统是2K,安装了scripchs，看了其帮助并且搜了前面的贴子照葫芦画瓢
这样写的代码，把代码直接放在ASP的标记间
<%dim RegObj,bServer
Set RegObj =CreateObject("WScript.Shell")
bServer = RegObj.RegRead ("HKEY_CURRENT_USER\\Software\AIMS\DBConnection")
msgbox(bServer)%>
报错如下:
错误类型：
WshShell.RegRead (0x800700A1)
**************************
照帮助这样写,把代码写再VBscript标记间也报错
<script language="VBscript">
dim RegObj,bServer
Set RegObj =WScript.CreateObject("WScript.Shell")
bServer = RegObj.RegRead ("HKEY_CURRENT_USER\\Software\AIMS\DBConnection")
msgbox(bServer)
</script>
报错如下：
缺少“WScript”对象
**********************************************
帮帮忙，请问这个东西究竟该怎么用？还需要安装别的东西吗？谢谢谢谢！

[纪俊]

我认为你的第二中写法肯定错了，而第一种写法要确定你的注册表有相应的键值才行，你用注册表编辑器打开注册表看看是否存在HKEY_CURRENT_USER\\Software\AIMS\DBConnection

[纪俊]

第一行改为<%@ Language=VBScript %>对不对？试验一下

[希偌]

msgbox(bServer)
这是客户端函数，不能在服务器端使用！
Set RegObj =WScript.CreateObject("WScript.Shell")
-->
Set RegObj =CreateObject("WScript.Shell")
下面是一个例子！
< %
Dim strPath
strPath = "HKLMSOFTWAREMICROSOFTWINDOWSCURRENTVERSIONCOMMONFILESDIR"
Set objShell = CreateObject("WScript.Shell")
Response.Write "< b> Registry Value(Common files dir):< /b> " & objShell.RegRead(strPath)
%>

[eaglev2]

键值路径写错了“HKEY_CURRENT_USER\\Software\AIMS\DBConnection”
改成“HKEY_CURRENT_USER\Software\AIMS\DBConnection”还是一样的错误，
注册表中肯定有这个值。

[eaglev2]

beyond_xiruo(希偌) ：
服务器端我的确写的CreateObject("WScript.Shell")
客户端写的Set RegObj=WScript.CreateObject("WScript.Shell")
照你的源代码试了还是不行

[eaglev2]

有人说IIS是以匿名访问 Internet 信息服务的内置帐号访问服务器，
可能是权限不够，我将其设为隶属于administrators组也出同样的错误，
哎，什么招都试过了，有碰到类似问题的朋友帮帮忙吧。

[julyclyde]

首先，第一个问题是：匿名帐户无法访问注册表
第2个：IE的模型中，不存在WScript对象，所以WScript.CreateObject错误。应该用VBS本身的CreateObject

[希偌]

为什么我测试能成功呢？