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

蓝色幻想2002 2004-08-03 02:27:26
我用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
...全文
201 点赞 收藏 13
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
蓝色幻想2002 2004-08-03
请问 ycted(长城万里今犹在,不见当年秦始皇!) 你和我刚开始写的有不同吗???
我第一段写的是对的 没有问题 但是要提取客户端的东西 明白???呵呵
谢谢你的支持 虽然你把我自己写的东西 又抄了一遍然后给我 还是谢谢你
回复
ycted 2004-08-03
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 2004-08-03
能告诉我怎么结贴吗????????我搞了半个小时还是没办法 搞定啊
回复
inanition 2004-08-03
1、用客户端脚本读取客户机注册表信息,并赋值到表单项目。
2、表单自动提交。
回复
蓝色幻想2002 2004-08-03
谢谢你们的帮助 我会给你们分的
回复
蓝色幻想2002 2004-08-03
sheng9hhd(无形) ( ) 我调试了你的程序
他提示automation无法创建对象 不知道什么问题!!!

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

请教!请教!1
回复
sheng9hhd 2004-08-03
<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 2004-08-03
好象都不行 呵呵不知道什么原因 开始我拿到这个要求的时候,,说了句简单啊 结果搞了好久
回复
aspczlover 2004-08-03
读写注册表

<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>
回复
青团子 2004-08-03
你要确保客户端注册表存在该路径
PS:
Response.Write改成document.write
回复
aspczlover 2004-08-03
参照这个
<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>
回复
青团子 2004-08-03
<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>

试试看
回复
wsdzmhongm 2004-08-03
http://community.rising.com.cn/Forum/msg_read.asp?FmID=55&SubjectID=3081534&page=1
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-03 02:27
社区公告
暂无公告