读写注册表

可用WScript对象来对注册表进行操作,如
function readcomputer()
Dim ReadComputername
Set ReadComputername=CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\CouputerName\ComputerName"
ComputerName=ReadComputername.RegRead(RegPath)
response.write "计算机的名称为:"+ComputerName
end function
Call readcomputer

写注册表可用WScript.shell的RegWrite进行操作,如WriteReg.RegWrite "HRCR\.xxf\",Default,即在HKEY_CLASSES\Root下新建主键.xxf,并设其初值为空