关于用脚本语言读取客户端注册表的问题 ！！！！！！！！！！！！！

[蓝色幻想2002]

我用asp读取注册表 因为asp是在服务器端运行的 结果读出来的是服务器端的注册表


郁闷了 谁能帮个忙 用 脚本语言怎么写这个代码
<%
Dim strPath
strPath = "HKLM\SOFTWARE\toptrend\system\userid"
Set objShell = CreateObject("WScript.Shell")
tes=objShell.RegRead(strPath)
Response.Write "<b>您的用户ip是:</b>　" & tes
%>
我是这样写的
用脚本是怎么写的 javascript或者vbscript

[wsdzmhongm]

http://community.rising.com.cn/Forum/msg_read.asp?FmID=55&SubjectID=3081534&page=1

[青团子]

<script language=vbs>
<!--
Dim strPath
strPath = "HKLM\SOFTWARE\toptrend\system\userid"
Set objShell = CreateObject("WScript.Shell")
tes=objShell.RegRead(strPath)
Response.Write "<b>您的用户ip是:</b>　" & tes
//-->
</script>

试试看

[aspczlover]

参照这个
<script language="javascript">
var WshShell,bKey="";
var WshShell = new ActiveXObject("WScript.Shell");
try{
bKey = WshShell.RegRead ("HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\中国游戏中心大厅\\");
}catch(e){}
alert(bKey);
if(bKey!="")
document.write("你已安装了中国游戏中心在线游戏")
else
document.write("你需要安装了中国游戏中心在线游戏")
</script>

[青团子]

你要确保客户端注册表存在该路径
PS:
Response.Write改成document.write

[aspczlover]

读写注册表

<script language=vbscript>


Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\"
Sh.RegWrite key & "WSHTest\","testkeydefault"
Sh.RegWrite key & "WSHTest\string1","testkeystring1"

WScript.Echo Sh.RegRead(key & "WSHTest\")
WScript.Echo Sh.RegRead(key & "WSHTest\string1")

Sh.RegDelete key & "WSHTest\"

</script>

[蓝色幻想2002]

好象都不行 呵呵不知道什么原因 开始我拿到这个要求的时候，，说了句简单啊 结果搞了好久

[dotnet东哥]

<script language="JavaScript">
<!--
var WScript = new ActiveXObject("WScript.Shell");
var key = "HKLM\\SOFTWARE\\toptrend\\system\\userid";
try{
var Result = WScript.RegRead(key);
}catch(e){alert("有问题！");}
if(Result != "")
alert("您的用户ip是:"+Result.toString())
else
alert("你没有安装该插件！")
//-->
</script>

[蓝色幻想2002]

sheng9hhd(无形) ( ) 我调试了你的程序
他提示automation无法创建对象 不知道什么问题！！！

这个错误是浏览器边上一个黄色的三角形 我点击了 他才出来的 报这个错误 不知道怎么搞

请教！请教！1

[蓝色幻想2002]

谢谢你们的帮助 我会给你们分的

[inanition]

1、用客户端脚本读取客户机注册表信息，并赋值到表单项目。
2、表单自动提交。

[蓝色幻想2002]

能告诉我怎么结贴吗？？？？？？？？我搞了半个小时还是没办法 搞定啊

[ycted]

set WshShell=Server.CreateObject("WScript.Shell")
tes=WshShell.RegRead("HKLM\SOFTWARE\toptrend\system\userid")
Response.Write "<b>您的用户ip是:</b>　" & tes
在就是看看你的客户端的注册表HKLM\SOFTWARE\toptrend\system\userid有值吗?

[蓝色幻想2002]

请问 ycted(长城万里今犹在，不见当年秦始皇！) 你和我刚开始写的有不同吗？？？
我第一段写的是对的 没有问题 但是要提取客户端的东西 明白？？？呵呵
谢谢你的支持 虽然你把我自己写的东西 又抄了一遍然后给我 还是谢谢你