软件开发培训班 >> 编程开发 >> VbScript


vbs 璇诲啓娉ㄥ唽琛ㄤ箣绯荤粺鍚姩椤规坊鍔犱笌鍒犻櫎

鏍稿績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

//閰嶇疆鏂囦欢

FullScan.txt

[HKEY_LOCAL_MACHINE]
1=SoftwareMicrosoftWindowsCurrentVersionRun
2=SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun
3=SoftwareMicrosoftWindowsCurrentVersionRunOnce
4=SoftwareMicrosoftWindowsCurrentVersionRunServicesOnce
5=SoftwareMicrosoftWindowsCurrentVersionRunOnceEx
6=SoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShell
7=SoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoad
8=SoftwarePoliciesMicrosoftWindowsSystemScripts
[HKEY_CURRENT_USER]
1=SoftwareMicrosoftWindowsCurrentVersionRun
2=SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun
3=SoftwareMicrosoftWindowsCurrentVersionRunOnce
4=SoftwareMicrosoftWindowsCurrentVersionRunServicesOnce
5=SoftwareMicrosoftWindowsCurrentVersionRunOnceEx
6=SoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShell
7=SoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoad
8=SoftwarePoliciesMicrosoftWindowsSystemScripts

杩愯鍚庡緱鍒皉esult.txt

HKLMSoftwareMicrosoftWindowsCurrentVersionRunxiaoqiang? test
HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun\xiaoqiang? test
HKLMSoftwareMicrosoftWindowsCurrentVersionRunOnce\xiaoqiang? test
HKLMSoftwareMicrosoftWindowsCurrentVersionRunServicesOnce\xiaoqiang? test
HKLMSoftwareMicrosoftWindowsCurrentVersionRunOnceExxiaoqiang? test
HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShell\xiaoqiang? test
HKLMSoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoad\xiaoqiang? test
HKLMSoftwarePoliciesMicrosoftWindowsSystemScripts\xiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionRunxiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun\xiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionRunOnce\xiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionRunServicesOnce\xiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionRunOnceExxiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemShell\xiaoqiang? test
HKCUSoftwareMicrosoftWindowsCurrentVersionShellServiceObjectDelayLoad\xiaoqiang? test
HKCUSoftwarePoliciesMicrosoftWindowsSystemScripts\xiaoqiang? test

娉ㄥ唽琛ㄤ腑鐨勫�?/p>

浠ヤ笅鏄剼鏈箣瀹跺皬缂栬ˉ鍏?/strong>

杩愯鍚庡氨浼氬彂鐜板湪绯荤粺寮�濮嬭嚜鍔ㄨ繍琛岀殑涓�浜涘惎鍔ㄩ」鍔犲叆浜嗗涓婂�硷紝鎵�浠ヤ笉寤鸿鏅�氱敤鎴疯繍琛屻�?/p>

鏃㈢劧鎵归噺娣诲姞閭ｄ箞涔熷彲浠ユ壒閲忓垹闄?/p>

灏嗕笂闈㈢殑vbs浠ｇ爜涓殑

regApp.RegWrite regLoaction(i)&""&writeName,writeValue

鏇挎崲涓?/p>

regApp.RegDelete regLoaction(i)&""&writeName

鍙戠幇鐩存帴杩愯涓嶈锛屽叾瀹炴敞鍐岃〃鐨勫垹闄ら渶瑕佺敤绠＄悊鍛樻潈闄愭墠鍙互銆?/p>

鎬曟湁浜涙柊鎵嬩笉鐭ラ亾濡備綍绠＄悊鍛樻潈闄愯繍琛寁bs

鍏跺疄鍙抽敭cmd涓湅鍒?浠ョ鐞嗗憳鏉冮檺杩愯 鎵撳紑 dos绐楀彛锛岀劧鍚庡皢vbs鏂囦欢鎷栧埌杩欎釜dos绐楀彛閲岄潰锛屽洖杞﹁繍琛屽嵆鍙?/p>

鐒跺悗鎷栨媺

鍥炶溅鍚庡彂鐜帮紝骞舵病鏈夋彁绀轰换浣曢敊璇俊鎭紝浠庢敞鍐岃〃涓湅鍒帮紝纭畾杩欎釜瀛楁宸茬粡娌′簡銆傚畬鍏ㄨВ鍐炽�?/p>