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