一个例子: 
<%Dim readpcname 
Set readpcname=CreateObject("WScript.Shell") 
Dim ComputerName,pathreg 
pathreg="HKLMSystemCurrentControlSetControlComputerNameComputerNameComputerName" 
ComputerName=readpcname.RegRead(pathreg) 
response.write "计算机名为"&ComputerName %> 

第二个读的代码 

<% 
Dim pathreg 
pathreg=request.form("pathreg") 
if pathreg<> "" then 
pathreg = "HKLMSOFTWAREMICROSOFTWINDOWSCURRENTVERSIONCOMMONFILESDIR" 
Set objShell = CreateObject("WScript.Shell") 
Response.Write objShell.RegRead(pathreg) 
end if 
%> 
 
注册表键值