会议注册表代码html,HTML_VBS脚本使用WMI操作注册表的代码，oReg.CreateKey HKEY_LOCAL_MACHINE,strKey - phpStudy...

VBS脚本使用WMI操作注册表的代码

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strPath,strValueName,uBinary

oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues

oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,uBinary

oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues

'-------------------------------------------------------------------------------------------

Const HKEY_CLASSES_ROOT = &H80000000

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

Const HKEY_USERS = &H80000003

Const HKEY_CURRENT_CONFIG = &H80000005

' 创建注册表项

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

'创建多字符串值

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"

strValueName = "Multi String Value Name"

arrStringValues = Array("first string", "second string",_

"third string", "fourth string")

oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_

strValueName,arrStringValues

'创建扩展的字符串值

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"

strValueName = "Expanded String Value Name"

strValue = "%PATHEXT%"

oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'创建字符串和 DWORD 值

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"

strValueName = "String Value Name"

strValue = "string value"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "DWORD Value Name"

dwValue = 82

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

'删除注册表项

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"

oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath

'删除注册表值

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\System Admin Scripting Guide"

strDWORDValueName = "DWORD Value Name"

strExpandedStringValueName = "Expanded String Value Name"

strMultiStringValueName = "Multi String Value Name"

strStringValueName = "String Value Name"

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName

'枚举注册表值和类型

'枚举子项

'列出注册表文件

'监视注册表子项事件

'监视注册表子树事件

'读取二进制注册表值

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

strValueName = "LicenseInfo"

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_

strValueName,strValue

For i = lBound(strValue) to uBound(strValue)

StdOut.WriteLine strValue(i)

Next相关阅读:

ASP.NET使用log4Net日志组件教程(日志按大小切割)

PHP生成静态页面的两种实现方法

YUI 中的 Grids CSS值得关注和学习的

一个用于MySQL的PHP XML类

走出JavaScript初学困境—js初学

JAVA/JSP学习系列之四

用SQL语句实现随机查询数据并不显示错误数据的方法

PHP教程:GD库的imagecolorset函数简单修改图片颜色

asp.net程序编译调试时偶尔出现访问被拒绝的错误的解决方法

Debian Linux系统编译内核标准方式介绍

DEDECMS自定义联动类别调用及修改方法

用js实现手把手教你月入万刀(转贴)

jquery团队发布jquery 1.4

使用bcompiler对PHP文件进行加密的代码