打开APP
userphoto
未登录

开通VIP，畅享免费电子书等14项超值服

开通VIP

首页

好书

留言交流

下载APP

联系客服
VBS脚本使用WMI操作注册表
userphoto 关注
  1. 'VBS脚本使用WMI操作注册表,从微软弄下来的，整理了一下，弄成最简版，简版，常用版，以便与快速查找。   
  2. oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath   
  3.   
  4. oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  5. oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  6. oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue   
  7. oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strPath,strValueName,uBinary   
  8. oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues   
  9.   
  10. oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath   
  11. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName   
  12.   
  13. oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  14. oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  15. oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  16. oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,uBinary   
  17. oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues   
  18.   
  19. '-------------------------------------------------------------------------------------------   
  20.   
  21. Const HKEY_CLASSES_ROOT = &H80000000   
  22. Const HKEY_CURRENT_USER = &H80000001   
  23. Const HKEY_LOCAL_MACHINE = &H80000002   
  24. Const HKEY_USERS = &H80000003   
  25. Const HKEY_CURRENT_CONFIG = &H80000005   
  26.   
  27. ' 创建注册表项   
  28. const HKEY_LOCAL_MACHINE = &H80000002   
  29. strComputer = "."  
  30. Set StdOut = WScript.StdOut   
  31. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  32. strComputer & "\root\default:StdRegProv")   
  33. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  34. oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath   
  35.   
  36. '创建多字符串值   
  37. const HKEY_LOCAL_MACHINE = &H80000002   
  38. strComputer = "."  
  39. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  40. strComputer & "\root\default:StdRegProv")   
  41. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  42. strValueName = "Multi String Value Name"  
  43. arrStringValues = Array("first string", "second string",_   
  44.  "third string", "fourth string")   
  45. oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_   
  46. strValueName,arrStringValues   
  47.   
  48.   
  49. '创建扩展的字符串值   
  50. const HKEY_LOCAL_MACHINE = &H80000002   
  51. strComputer = "."  
  52. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  53. strComputer & "\root\default:StdRegProv")   
  54. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  55. strValueName = "Expanded String Value Name"  
  56. strValue = "%PATHEXT%"  
  57. oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  58.   
  59. '创建字符串和 DWORD 值   
  60. const HKEY_LOCAL_MACHINE = &H80000002   
  61. strComputer = "."  
  62. Set StdOut = WScript.StdOut   
  63. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  64. strComputer & "\root\default:StdRegProv")   
  65. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  66. strValueName = "String Value Name"  
  67. strValue = "string value"  
  68. oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  69. strValueName = "DWORD Value Name"  
  70. dwValue = 82   
  71. oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue   
  72.   
  73.   
  74.   
  75. '删除注册表项   
  76.   
  77. const HKEY_LOCAL_MACHINE = &H80000002   
  78. strComputer = "."  
  79. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  80. strComputer & "\root\default:StdRegProv")   
  81. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  82. oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath   
  83.   
  84.   
  85. '删除注册表值   
  86.   
  87. const HKEY_LOCAL_MACHINE = &H80000002   
  88. strComputer = "."  
  89. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  90. strComputer & "\root\default:StdRegProv")   
  91. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  92. strDWORDValueName = "DWORD Value Name"  
  93. strExpandedStringValueName = "Expanded String Value Name"  
  94. strMultiStringValueName = "Multi String Value Name"  
  95. strStringValueName = "String Value Name"  
  96. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName   
  97. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName   
  98. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName   
  99. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName   
  100.   
  101.   
  102. '枚举注册表值和类型   
  103. '枚举子项   
  104. '列出注册表文件   
  105. '监视注册表子项事件   
  106. '监视注册表子树事件   
  107. '读取二进制注册表值   
  108.   
  109. const HKEY_LOCAL_MACHINE = &H80000002   
  110. strComputer = "."  
  111. Set StdOut = WScript.StdOut   
  112. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  113. strComputer & "\root\default:StdRegProv")   
  114. strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"  
  115. strValueName = "LicenseInfo"  
  116. oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_   
  117. strValueName,strValue   
  118. For i = lBound(strValue) to uBound(strValue)   
  119.     StdOut.WriteLine  strValue(i)   
  120. Next  
  121.   
  122. '读取 MultiString 值   
  123. const HKEY_LOCAL_MACHINE = &H80000002   
  124. strComputer = "."  
  125. Set StdOut = WScript.StdOut   
  126. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  127. strComputer & "\root\default:StdRegProv")   
  128. strKeyPath = "SYSTEM\CurrentControlSet\Services\Eventlog\System"  
  129. strValueName = "Sources"  
  130. oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_   
  131. strValueName,arrValues   
  132. For Each strValue In arrValues   
  133.     StdOut.WriteLine  strValue   
  134. Next  
  135.   
  136.   
  137.   
  138. '读取扩展的字符串值   
  139. const HKEY_LOCAL_MACHINE = &H80000002   
  140. strComputer = "."  
  141. Set StdOut = WScript.StdOut   
  142. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
  143. strComputer & "\root\default:StdRegProv")   
  144. strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinLogon"  
  145. strValueName = "UIHost"  
  146. oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,_   
  147. strValueName,strValue   
  148. StdOut.WriteLine  "The Windows logon UI host is: " & strValue   
  149.   
  150.   
  151.   
  152. '读取字符串和 DWORD 值   
  153.   
  154. const HKEY_CURRENT_USER = &H80000001   
  155. const HKEY_LOCAL_MACHINE = &H80000002   
  156. strComputer = "."  
  157. Set StdOut = WScript.StdOut   
  158. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_   
  159.  strComputer & "\root\default:StdRegProv")   
  160. strKeyPath = "Console"  
  161. strValueName = "HistoryBufferSize"  
  162. oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  163. StdOut.WriteLine "Current History Buffer Size: " & dwValue    
  164. strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"  
  165. strValueName = "TrustPolicy"  
  166. oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  167. StdOut.WriteLine "Current WSH Trust Policy Value: " & strValue   
  168.   
  169. '-------------------------------------------------------------------------------------------   
  170.   
  171. Const HKEY_CLASSES_ROOT = &H80000000   
  172. Const HKEY_CURRENT_USER = &H80000001   
  173. Const HKEY_LOCAL_MACHINE = &H80000002   
  174. Const HKEY_USERS = &H80000003   
  175. Const HKEY_CURRENT_CONFIG = &H80000005   
  176.   
  177. strComputer = "."  
  178. Set StdOut = WScript.StdOut   
  179. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")   
  180.   
  181.   
  182.   
  183. '创建注册表项   
  184. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  185. oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath   
  186.   
  187. '创建多字符串值   
  188.   
  189. strValueName = "Multi String Value Name"  
  190. arrStringValues = Array("first string", "second string", "third string", "fourth string")   
  191. oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues   
  192.   
  193. '创建扩展的字符串值   
  194. strValueName = "Expanded String Value Name"  
  195. strValue = "%PATHEXT%"  
  196. oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  197.   
  198. '创建字符串   
  199. strValueName = "String Value Name"  
  200. strValue = "string value"  
  201. oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  202.   
  203. '创建DWORD 值   
  204. strValueName = "DWORD Value Name"  
  205. dwValue = 82   
  206. oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue   
  207.   
  208. '创建二进制值   
  209. strValueName = "Binary Value Name"  
  210. uBinary = Array(1,0,0,0)   
  211. oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strPath,strValueName,uBinary   
  212.   
  213.   
  214. '删除注册表项   
  215. strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
  216. oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath   
  217.   
  218.   
  219. '删除注册表值   
  220.   
  221. strDWORDValueName = "DWORD Value Name"  
  222. strExpandedStringValueName = "Expanded String Value Name"  
  223. strMultiStringValueName = "Multi String Value Name"  
  224. strStringValueName = "String Value Name"  
  225. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName   
  226. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName   
  227. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName   
  228. oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName   
  229.   
  230.   
  231. '''''''''''''''''''''''''''''''''''''''''''''''''枚举注册表值和类型   
  232. '''''''''''''''''''''''''''''''''''''''''''''''''枚举子项   
  233. '''''''''''''''''''''''''''''''''''''''''''''''''列出注册表文件   
  234. '''''''''''''''''''''''''''''''''''''''''''''''''监视注册表子项事件   
  235. '''''''''''''''''''''''''''''''''''''''''''''''''监视注册表子树事件   
  236.   
  237. '读取 MultiString 值   
  238. strKeyPath = "SYSTEM\CurrentControlSet\Services\Eventlog\System"  
  239. strValueName = "Sources"  
  240. oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrValues   
  241. For Each strValue In arrValues   
  242.     StdOut.WriteLine  strValue   
  243. Next  
  244.   
  245. '读取扩展的字符串值   
  246. strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinLogon"  
  247. strValueName = "UIHost"  
  248. oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  249. StdOut.WriteLine  "The Windows logon UI host is: " & strValue   
  250.   
  251. '读取字符串值   
  252. strKeyPath = "Console"  
  253. strValueName = "HistoryBufferSize"  
  254. oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
  255. StdOut.WriteLine "Current History Buffer Size: " & dwValue    
  256.   
  257. '读取 DWORD 值   
  258. strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"  
  259. strValueName = "TrustPolicy"  
  260. oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  261. StdOut.WriteLine "Current WSH Trust Policy Value: " & strValue   
  262.   
  263. '读取二进制注册表值   
  264. strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"  
  265. strValueName = "LicenseInfo"  
  266. oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
  267. For i = lBound(strValue) to uBound(strValue)   
  268.     StdOut.WriteLine  strValue(i)   
  269. Next  
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。
打开APP，阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序，算一算2024你的财运
偷梁换柱：用脚本实现共享文件夹路径的转换
使用vbs添加windows网络代理
在域环境下禁用USB存储设备的方法
完整的注册表操作实例 VBS脚本
如何修改 Internet Explorer 的主页设置？
如何使用脚本锁定任务栏？
更多类似文章 >>
生活服务
热点新闻
留言交流
回顶部
联系我们
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权！
如果VIP功能使用有故障，
可点击这里联系客服！

联系客服