vbscript 注册表脚本书写 |
|
本文标签：vbscript,注册表 WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" =============================================================================== 创建项的位置 oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath 启动创建项目的类型 =====================================1REG_SZ 字符串值========================================== strValueName = "SysExplr" 创建字符串的名称 strValue = "d:\\Herosoft\\HeroV8\\SYSEXPLR.EXE" 创建字符串的数据 oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue 所创建的类型字符串 =====================================2.REG_DWORD DWORD值=========================================== strValueName = "DWORD Value Name" 创建DWORD名称 dwValue = 82 创建DWORD数据 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue 所创建类型DWORD =======================================3.REG_EXPAND_SZ 可扩充字符串值========================================= strValueName = "Expanded String Value Name" 创建扩充字符串名称 strValue = "%PATHEXT%" 字符串数据 oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue 所创建类型为扩充字符串 ========================================4.REG_MULTI_SZ 多字符串值========================================= strValueName = "Multi String Value Name" 创建多字符串名称 arrStringValues = Array("first string", "second string","third string", "fourth string") 创建多字符串值 oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues 所创建类型为多字符串值 ====================================================================================== oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath WScript.Echo "-=[Complete!]=-" |
