可用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,并设其初值为空
本文介绍了如何利用WScript对象对Windows注册表进行读写操作。通过具体的VBScript示例代码,展示了如何读取计算机名称及如何创建新的注册表项。
895

被折叠的 条评论
为什么被折叠?



