Original ASP can read and write registry

one example:

<% Dim Readcomputername

Set readcomputername = creteObject ("wscript.shell")

DIM Computername, RegPath

RegPath = "HKLM / System / CurrentControlSet / Control / Computername / Computername / Computername"

Computername = readcomputername.regread (RegPath)

Response.write "Computer Name" & ComputerName%>

Second read code

<%

DIM ZCBPATH

ZCBPATH = Request.form ("ZCBPATH")

IF ZCBPATH <> "" "" "

'zcbpath = "HKLM / Software / Microsoft / Windows / CurrentVersion / CommonFilesDir"

Set objshell = creteObject ("wscript.shell")

Response.write objshell.regread (ZCBPATH)

END IF

%>