如何使用ASP来读写注册表

本文实例介绍了如何使用ASP代码来读写注册表，呵呵厉害吧！

 一个例子:

<％Dim ReadComputerName 
Set ReadComputerName=CreateObject("WScript.Shell") 
Dim ComputerName,RegPath 
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" 
ComputerName=ReadComputerName.RegRead(RegPath) 
response.write "计算机名为"&ComputerName ％> 

第二个读的代码

<％ 
Dim zcbpath 
zcbpath=request.form("zcbpath") 
if zcbpath<> "" then 
’zcbpath = "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\COMMONFILESDIR" 
Set objShell = CreateObject("WScript.Shell") 
Response.Write objShell.RegRead(zcbpath) 
end if 
％> 
<form action="zcb.asp" method=post> 
注册表键值<input type=text name=zcbpath id=zcbpath> 
<input type=submit> 
</form>