-
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
-
-
'读取 MultiString 值
-
const HKEY_LOCAL_MACHINE = &H80000002
-
strComputer = "."
-
Set StdOut = WScript.StdOut
-
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
-
strComputer & "\root\default:StdRegProv")
-
strKeyPath = "SYSTEM\CurrentControlSet\Services\Eventlog\System"
-
strValueName = "Sources"
-
oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_
-
strValueName,arrValues
-
For Each strValue In arrValues
-
StdOut.WriteLine strValue
-
Next
-
-
-
-
'读取扩展的字符串值
-
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\WinLogon"
-
strValueName = "UIHost"
-
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,_
-
strValueName,strValue
-
StdOut.WriteLine "The Windows logon UI host is: " & strValue
-
-
-
-
'读取字符串和 DWORD 值
-
-
const HKEY_CURRENT_USER = &H80000001
-
const HKEY_LOCAL_MACHINE = &H80000002
-
strComputer = "."
-
Set StdOut = WScript.StdOut
-
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
-
strComputer & "\root\default:StdRegProv")
-
strKeyPath = "Console"
-
strValueName = "HistoryBufferSize"
-
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
-
StdOut.WriteLine "Current History Buffer Size: " & dwValue
-
strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"
-
strValueName = "TrustPolicy"
-
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
-
StdOut.WriteLine "Current WSH Trust Policy Value: " & strValue
-
-
'-------------------------------------------------------------------------------------------
-
-
Const HKEY_CLASSES_ROOT = &H80000000
-
Const HKEY_CURRENT_USER = &H80000001
-
Const HKEY_LOCAL_MACHINE = &H80000002
-
Const HKEY_USERS = &H80000003
-
Const HKEY_CURRENT_CONFIG = &H80000005
-
-
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
-
-
'创建多字符串值
-
-
strValueName = "Multi String Value Name"
-
arrStringValues = Array("first string", "second string", "third string", "fourth string")
-
oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues
-
-
'创建扩展的字符串值
-
strValueName = "Expanded String Value Name"
-
strValue = "%PATHEXT%"
-
oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
-
-
'创建字符串
-
strValueName = "String Value Name"
-
strValue = "string value"
-
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
-
-
'创建DWORD 值
-
strValueName = "DWORD Value Name"
-
dwValue = 82
-
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
-
-
'创建二进制值
-
strValueName = "Binary Value Name"
-
uBinary = Array(1,0,0,0)
-
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strPath,strValueName,uBinary
-
-
-
'删除注册表项
-
strKeyPath = "SOFTWARE\System Admin Scripting Guide"
-
oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
-
-
-
'删除注册表值
-
-
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
-
-
-
'''''''''''''''''''''''''''''''''''''''''''''''''枚举注册表值和类型
-
'''''''''''''''''''''''''''''''''''''''''''''''''枚举子项
-
'''''''''''''''''''''''''''''''''''''''''''''''''列出注册表文件
-
'''''''''''''''''''''''''''''''''''''''''''''''''监视注册表子项事件
-
'''''''''''''''''''''''''''''''''''''''''''''''''监视注册表子树事件
-
-
'读取 MultiString 值
-
strKeyPath = "SYSTEM\CurrentControlSet\Services\Eventlog\System"
-
strValueName = "Sources"
-
oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrValues
-
For Each strValue In arrValues
-
StdOut.WriteLine strValue
-
Next
-
-
'读取扩展的字符串值
-
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinLogon"
-
strValueName = "UIHost"
-
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
-
StdOut.WriteLine "The Windows logon UI host is: " & strValue
-
-
'读取字符串值
-
strKeyPath = "Console"
-
strValueName = "HistoryBufferSize"
-
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
-
StdOut.WriteLine "Current History Buffer Size: " & dwValue
-
-
'读取 DWORD 值
-
strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"
-
strValueName = "TrustPolicy"
-
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
-
StdOut.WriteLine "Current WSH Trust Policy Value: " & strValue
-
-
'读取二进制注册表值
-
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