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

'变量定义
dim writename,writevalue,filename,regloaction,regapp

'创建注册表编辑器对象
set regapp=wscript.createobject("wscript.shell")

'配置文件名
filename="fullscan.txt"
'输入键名
writename="xiaoqiang"
'输入键值
writevalue="test"

'************************脚本运行区间********************************

'根据配置文件获取注册表路径数组
regloaction=getregpatharray(getfiletext(filename))

'写入注册表
write regloaction,writename,writevalue

'读取写入的键值 生成并生成结果文件
read regloaction,writename

'************************函数定义********************************
'读注册表
function read(regloaction,writename)
 dim returnstrarray(),j
 j=0
 if writename="" or writevalue="" then
  msgbox "错误！！请输入键名和键值"
 else
  for i=0 to ubound(regloaction)
 redim preserve returnstrarray(j) 
   regpath=regloaction(i)&""&writename
   returnstrarray(j)=regpath&"? "&regapp.regread(regpath)
   j=j+1
  next
 end if
 writeresult returnstrarray
end function

'写入注册表
function write(regloaction,writename,writevalue)
 if writename="" or writevalue="" then
  msgbox "错误！！请输入键名和键值"
 else
  for i=0 to ubound(regloaction)
 regapp.regwrite regloaction(i)&""&writename,writevalue
  next
 end if
end function

'输出结果文件
sub writeresult(contentarray)
 const forreading = 1, forwriting = 2
 dim fso,f,returnstrarray(),i
 set fso = createobject("scripting.filesystemobject")
 set f = fso.opentextfile("result.txt", 2,true)
 for i=0 to ubound(contentarray)
 f.writeline(contentarray(i))
 next
 f.close()
end sub

'得到注册表路径数组
function getregpatharray(sourcearray)
 dim head,returnstrarray(),j
 j=0
 for i=0 to ubound(sourcearray)
  if sourcearray(i)="[hkey_local_machine]" then
 head="hklm"
  elseif sourcearray(i)="[hkey_users]" then
   head="hkey_users\.default"
  elseif sourcearray(i)="[hkey_current_user]" then
   head="hkcu"
  elseif sourcearray(i)="[hkey_classes_root]" then
   head="hkcr"
  elseif sourcearray(i)="[hkey_current_config]" then
   head="hkey_current_config"
  else
   redim preserve returnstrarray(j)
   str=head&split(sourcearray(i),"=")(1)
   returnstrarray(j)=str
   j=j+1
  end if
 next
 getregpatharray=returnstrarray
end function

'得到文件内容存入数组
function getfiletext(filename)
 const forreading = 1, forwriting = 2
 dim fso,f,returnstrarray(),i
 set fso = createobject("scripting.filesystemobject")
 set f = fso.opentextfile(filename, 1)
 i=0
 do while f.atendofstream<>true
  redim preserve returnstrarray(i)
  returnstrarray(i)=f.readline()
  i=i+1
 loop
 f.close()
 getfiletext=returnstrarray
end function

[hkey_local_machine]
1=\software\microsoft\windows\currentversion\run
2=\software\microsoft\windows\currentversion\policies\explorer\run\
3=\software\microsoft\windows\currentversion\runonce\
4=\software\microsoft\windows\currentversion\runservicesonce\
5=\software\microsoft\windows\currentversion\runonceex
6=\software\microsoft\windows\currentversion\policies\system\shell\
7=\software\microsoft\windows\currentversion\shellserviceobjectdelayload\
8=\software\policies\microsoft\windows\system\scripts\
[hkey_current_user]
1=\software\microsoft\windows\currentversion\run
2=\software\microsoft\windows\currentversion\policies\explorer\run\
3=\software\microsoft\windows\currentversion\runonce\
4=\software\microsoft\windows\currentversion\runservicesonce\
5=\software\microsoft\windows\currentversion\runonceex
6=\software\microsoft\windows\currentversion\policies\system\shell\
7=\software\microsoft\windows\currentversion\shellserviceobjectdelayload\
8=\software\policies\microsoft\windows\system\scripts\

hklm\software\microsoft\windows\currentversion\run\xiaoqiang? test
hklm\software\microsoft\windows\currentversion\policies\explorer\run\\xiaoqiang? test
hklm\software\microsoft\windows\currentversion\runonce\\xiaoqiang? test
hklm\software\microsoft\windows\currentversion\runservicesonce\\xiaoqiang? test
hklm\software\microsoft\windows\currentversion\runonceex\xiaoqiang? test
hklm\software\microsoft\windows\currentversion\policies\system\shell\\xiaoqiang? test
hklm\software\microsoft\windows\currentversion\shellserviceobjectdelayload\\xiaoqiang? test
hklm\software\policies\microsoft\windows\system\scripts\\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\run\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\policies\explorer\run\\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\runonce\\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\runservicesonce\\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\runonceex\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\policies\system\shell\\xiaoqiang? test
hkcu\software\microsoft\windows\currentversion\shellserviceobjectdelayload\\xiaoqiang? test
hkcu\software\policies\microsoft\windows\system\scripts\\xiaoqiang? test