• 售前

  • 售后

热门帖子
入门百科

vbs 读写注册表之体系启动项添加与删除

[复制链接]
123456881 显示全部楼层 发表于 2021-8-19 19:15:56 |阅读模式 打印 上一主题 下一主题
核心vbs代码
  1. '变量定义
  2. Dim writeName,writeValue,fileName,regLoaction,regApp
  3. '创建注册表编辑器对象
  4. Set regApp=WScript.CreateObject("WScript.Shell")
  5. '配置文件名
  6. fileName="FullScan.txt"
  7. '输入键名
  8. writeName="xiaoqiang"
  9. '输入键值
  10. writeValue="test"
  11. '************************脚本运行区间********************************
  12. '根据配置文件获取注册表路径数组
  13. regLoaction=getRegPathArray(getFileText(fileName))
  14. '写入注册表
  15. write regLoaction,writeName,writeValue
  16. '读取写入的键值 生成并生成结果文件
  17. read regLoaction,writeName
  18. '************************函数定义********************************
  19. '读注册表
  20. Function read(regLoaction,writeName)
  21. Dim returnStrArray(),j
  22. j=0
  23. If writeName="" or writeValue="" then
  24.   msgbox "错误!!请输入键名和键值"
  25. else
  26.   for i=0 to ubound(regLoaction)
  27. ReDim Preserve returnStrArray(j)
  28.    regPath=regLoaction(i)&""&writeName
  29.    returnStrArray(j)=regPath&"? "&regApp.RegRead(regPath)
  30.    j=j+1
  31.   Next
  32. End if
  33. writeResult returnStrArray
  34. End Function
  35. '写入注册表
  36. Function write(regLoaction,writeName,writeValue)
  37. If writeName="" or writeValue="" then
  38.   msgbox "错误!!请输入键名和键值"
  39. else
  40.   for i=0 to ubound(regLoaction)
  41. regApp.RegWrite regLoaction(i)&""&writeName,writeValue
  42.   Next
  43. End if
  44. End Function
  45. '输出结果文件
  46. sub writeResult(contentArray)
  47. Const ForReading = 1, ForWriting = 2
  48. Dim fso,f,returnStrArray(),i
  49. Set fso = CreateObject("Scripting.FileSystemObject")
  50. Set f = fso.OpenTextFile("result.txt", 2,true)
  51. for i=0 to ubound(contentArray)
  52. f.writeline(contentArray(i))
  53. Next
  54. f.close()
  55. End Sub
  56. '得到注册表路径数组
  57. Function getRegPathArray(sourceArray)
  58. Dim head,returnStrArray(),j
  59. j=0
  60. for i=0 to ubound(sourceArray)
  61.   If sourceArray(i)="[HKEY_LOCAL_MACHINE]" then
  62. head="HKLM"
  63.   elseif sourceArray(i)="[HKEY_USERS]" then
  64.    head="HKEY_USERS\.DEFAULT"
  65.   elseif sourceArray(i)="[HKEY_CURRENT_USER]" then
  66.    head="HKCU"
  67.   elseif sourceArray(i)="[HKEY_CLASSES_ROOT]" then
  68.    head="HKCR"
  69.   elseif sourceArray(i)="[HKEY_CURRENT_CONFIG]" then
  70.    head="HKEY_CURRENT_CONFIG"
  71.   else
  72.    ReDim Preserve returnStrArray(j)
  73.    str=head&split(sourceArray(i),"=")(1)
  74.    returnStrArray(j)=str
  75.    j=j+1
  76.   End If
  77. Next
  78. getRegPathArray=returnStrArray
  79. End Function
  80. '得到文件内容存入数组
  81. Function getFileText(fileName)
  82. Const ForReading = 1, ForWriting = 2
  83. Dim fso,f,returnStrArray(),i
  84. Set fso = CreateObject("Scripting.FileSystemObject")
  85. Set f = fso.OpenTextFile(fileName, 1)
  86. i=0
  87. do while f.atendofstream<>true
  88.   ReDim Preserve returnStrArray(i)
  89.   returnStrArray(i)=f.readline()
  90.   i=i+1
  91. loop
  92. f.close()
  93. getFileText=returnStrArray
  94. End Function
复制代码
//配置文件
FullScan.txt
  1. [HKEY_LOCAL_MACHINE]
  2. 1=\Software\Microsoft\Windows\CurrentVersion\Run
  3. 2=\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\
  4. 3=\Software\Microsoft\Windows\CurrentVersion\RunOnce\
  5. 4=\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
  6. 5=\Software\Microsoft\Windows\CurrentVersion\RunOnceEx
  7. 6=\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\
  8. 7=\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\
  9. 8=\Software\Policies\Microsoft\Windows\System\Scripts\
  10. [HKEY_CURRENT_USER]
  11. 1=\Software\Microsoft\Windows\CurrentVersion\Run
  12. 2=\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\
  13. 3=\Software\Microsoft\Windows\CurrentVersion\RunOnce\
  14. 4=\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
  15. 5=\Software\Microsoft\Windows\CurrentVersion\RunOnceEx
  16. 6=\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\
  17. 7=\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\
  18. 8=\Software\Policies\Microsoft\Windows\System\Scripts\
复制代码
运行后得到result.txt
  1. HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaoqiang? test
  2. HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\\xiaoqiang? test
  3. HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce\\xiaoqiang? test
  4. HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\\xiaoqiang? test
  5. HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\xiaoqiang? test
  6. HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\\xiaoqiang? test
  7. HKLM\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\\xiaoqiang? test
  8. HKLM\Software\Policies\Microsoft\Windows\System\Scripts\\xiaoqiang? test
  9. HKCU\Software\Microsoft\Windows\CurrentVersion\Run\xiaoqiang? test
  10. HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\\xiaoqiang? test
  11. HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce\\xiaoqiang? test
  12. HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\\xiaoqiang? test
  13. HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\xiaoqiang? test
  14. HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell\\xiaoqiang? test
  15. HKCU\Software\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\\xiaoqiang? test
  16. HKCU\Software\Policies\Microsoft\Windows\System\Scripts\\xiaoqiang? test
复制代码
注册表中的值

以下是草根技术分享小编补充
运行后就会发如今体系开始自动运行的一些启动项加入了如上值,以是不发起普通用户运行。
既然批量添加那么也可以批量删除
将上面的vbs代码中的
  1. regApp.RegWrite regLoaction(i)&""&writeName,writeValue
复制代码
更换为
  1. regApp.RegDelete regLoaction(i)&""&writeName
复制代码
发现直接运行不可,着实注册表的删除需要用管理员权限才可以。
怕有些新手不知道如何管理员权限运行vbs
着实右键cmd中看到 以管理员权限运行 打开 dos窗口,然后将vbs文件拖到这个dos窗口内里,回车运行即可

然后拖沓

回车后发现,并没有提示任何错误信息,从注册表中看到,确定这个字段已经没了。完全办理。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作