读写注册表

可用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,并设其初值为空