'變量定義Dim writeName,writeValue,fileName,regLoaction,regApp'創(chuàng)建注冊表編輯器對象Set regApp=WScript.CreateObject("WScript.Shell")'配置文件名fileName="FullScan.txt"'輸入鍵名writeName="xiaoqiang"'輸入鍵值writeValue="test"'************************腳本運行區(qū)間********************************'根據(jù)配置文件獲取注冊表路徑數(shù)組regLoaction=getRegPathArray(getFileText(fileName))'寫入注冊表write regLoaction,writeName,writeValue'讀取寫入的鍵值 生成并生成結(jié)果文件read regLoaction,writeName'************************函數(shù)定義********************************'讀注冊表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 returnStrArrayEnd 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 ifEnd Function'輸出結(jié)果文件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'得到注冊表路徑數(shù)組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=returnStrArrayEnd Function'得到文件內(nèi)容存入數(shù)組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=returnStrArrayEnd Function

[HKEY_LOCAL_MACHINE]1=/Software/Microsoft/Windows/CurrentVersion/Run2=/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/Run/3=/Software/Microsoft/Windows/CurrentVersion/RunOnce/4=/Software/Microsoft/Windows/CurrentVersion/RunServicesOnce/5=/Software/Microsoft/Windows/CurrentVersion/RunOnceEx6=/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/Run2=/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/Run/3=/Software/Microsoft/Windows/CurrentVersion/RunOnce/4=/Software/Microsoft/Windows/CurrentVersion/RunServicesOnce/5=/Software/Microsoft/Windows/CurrentVersion/RunOnceEx6=/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? testHKLM/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/Run//xiaoqiang? testHKLM/Software/Microsoft/Windows/CurrentVersion/RunOnce//xiaoqiang? testHKLM/Software/Microsoft/Windows/CurrentVersion/RunServicesOnce//xiaoqiang? testHKLM/Software/Microsoft/Windows/CurrentVersion/RunOnceEx/xiaoqiang? testHKLM/Software/Microsoft/Windows/CurrentVersion/Policies/System/Shell//xiaoqiang? testHKLM/Software/Microsoft/Windows/CurrentVersion/ShellServiceObjectDelayLoad//xiaoqiang? testHKLM/Software/Policies/Microsoft/Windows/System/Scripts//xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/Run/xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/Run//xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/RunOnce//xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/RunServicesOnce//xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/RunOnceEx/xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/Shell//xiaoqiang? testHKCU/Software/Microsoft/Windows/CurrentVersion/ShellServiceObjectDelayLoad//xiaoqiang? testHKCU/Software/Policies/Microsoft/Windows/System/Scripts//xiaoqiang? test