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