[贴士] VBS注册表操作

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

;Shutdown 的值0为注销 1为关机 2为重启 4为强行关闭程序
If MsgBox(4, "信息", "请点击＇是(Y)＇强行重启计算机") = 6 Then Shutdown(6)
补充下,Shutdown(6)里的6为2+4,强行结束所有程序进程后重新启动计算机,如果你把值改为5就是1+4,就是强行结束所有程序进程后进行关机操作


bf04b4309e3cb4c4e67ec456b16e834e

//声明
VBS const HKLM = &H80000002
VBS strComputer = "."
//VBS Set StdOut = WScript.StdOut
VBS Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
//新建注册表项
VBS strKeyPath = "SYSTEM\System Admin Scripting Guide"
VBS oReg.CreateKey HKLM,strKeyPath
//新建注册表“字符串”值
VBS strValueName = "String Value Name"
VBS strValue = "string value"
VBS oReg.SetStringValue HKLM,strKeyPath,strValueName,strValue
//新建注册表“双字节”值
VBS strValueName = "DWORD Value Name"
VBS dwValue = 82
VBS oReg.SetDWORDValue HKLM,strKeyPath,strValueName,dwValue
//新建注册表“多字符串”值
VBS strValueName = "Multi String Value Name"
VBS arrStringValues = Array("first string", "second string","third string", "fourth string")
VBS oReg.SetMultiStringValue HKLM,strKeyPath,strValueName,arrStringValues
//写入二进制数据
VBS strValueName = "BinaryTest"
VBS arrValues = Array(1,2,3,4,5,6,7,8,9,10)
VBS oReg.SetBinaryValue HKLM, strKeyPath, strValueName, arrValues
//读取注册表“二进制”值
VBS strValueName = "BinaryTest"
VBS oReg.GetBinaryValue HKLM,strKeyPath,strValueName,strValue
VBS i=0
While i<=9
    SayExpression strValue(i)&","
    VBS i=i+1
EndWhile
//读取注册表“字符串”值
VBS strValueName = "String Value Name"
VBS oReg.GetStringValue HKLM, strKeyPath, strValueName, strValue
VBSCall Call MessageBox(strValue)
//删除注册表值
VBS strDWORDValueName = "DWORD Value Name"
VBS oReg.DeleteValue HKLM,strKeyPath,strDWORDValueName
//删除注册表项
//VBS oReg.DeleteKey HKLM, strKeyPath

strKeyPath – 表示注册表中的路径