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