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