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>