一个例子:  
< %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 >