求段往注册表写值的代码

Question

因需要，需要往客户端注册表写值，请问如何写？如何改？写在什么位置上好？请直接放测试过的代码，且位置不会影响系统运行。

Answer 1

首先权限的问题要解决
否则的话一切都是空谈
即设置"运行未签名的ActiveX脚本"
如果你觉得你的客户都愿意的话那么可以接着看了//产生一个WScript.Shell对象，它具有操作注册表、执行命令行等能力var obj = new ActiveXObject("WScript.Shell");//从Explorer表项中读出TestValue的值var testValue = obj.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\TestValue");//向Explorer表项写入新键：名为TestValue，值为1，类型为REG_SZobj.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\TestValue","1","REG_SZ");//向Explorer表项写入新表项：名为TestValue，默认值为空，类型为REG_SZobj.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\TestValue\\","","REG_SZ");//删除Explorer表项中名为TestValue的键obj.RegDelete("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\TestValue");//删除Explorer表项中名为TestValue的表项及其子键obj.RegDelete("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\TestValue\\");可以看到，用WScript.Shell操作注册表时，就是用"\\"来区分操作对象是表项还是键的。