请教如何自动搜索并删除注册表含某关键词的项或键？

suchost

请高手指教，比如我要搜索MSOUC.EXE，并删除与之关联的所有项

yu2n

参考：

[原创] 读取、新建、修改、删除注册表键值专题帖
http://www.bathome.net/thread-21223-1-1.html

1. 
   
2. '枚举注册表项及值
   
3. Const HKEY_LOCAL_MACHINE = &H80000002
   
4. Dim regWMI, FSO, Text
   
5. Set FSO = CreateObject("Scripting.FileSystemObject")
   
6. Set regWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   
7. Dim regRoot, regPath, regStr
   
8. regRoot = HKEY_LOCAL_MACHINE
   
9. regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
   
10. FSO.OpenTextFile("RegList.txt", 2, True).Write "HomePath:HKEY_LOCAL_MACHINE" & regPath & vbCrLf & vbcrlf & "RegList:" & vbCrLf
    
11. Set Text = FSO.OpenTextFile("RegList.txt", 8, True)
    
12. GetValues regPath
    
13. GetKeys regPath
    
14. Set FSO = Nothing
    
15. Set regWMI = Nothing
    
16. CreateObject("Wscript.Shell").run "cmd /cRegList.txt", True, False
    
17. 
    
18. Function GetKeys(Path)
    
19.   'Text.WriteLine path & vbCrLf
    
20.   Dim arrRegKeys, regKey
    
21.   regWMI.Enumkey regRoot, path, arrRegKeys
    
22.   For Each regKey In arrRegKeys
    
23.     On Error Resume Next
    
24.     newpath = path & "" & regKey
    
25.     GetValues newpath
    
26.     GetKeys newpath
    
27.   Next
    
28. End Function
    
29. 
    
30. Function GetValues(path)
    
31.   Dim regValue, arrRegNames, arrValueTypes, arrRegValues, Multi, regValueType
    
32.   regWMI.EnumValues regRoot, path, arrRegNames, arrValueTypes
    
33.   For i = 0 To UBound(arrRegNames)
    
34.     If Len(arrRegNames(i)) > 0 Then
    
35.       Multi = vbNullString
    
36.       Select Case arrValueTypes(i)
    
37.         Case 1
    
38.           regWMI.GetStringValue regRoot, path, arrRegNames(i), regValue
    
39.           regValueType = "REG_SZ"
    
40.         Case 2
    
41.           regWMI.GetExpandedStringValue regRoot, path, arrRegNames(i), regValue
    
42.           regValueType = "REG_EXPAND_SZ"
    
43.         Case 3
    
44.           regWMI.GetBinaryValue regRoot, path, arrRegNames(i), regValue
    
45.           regValueType = "REG_BINARY"
    
46.         Case 4
    
47.           regWMI.GetDwordValue regRoot, path, arrRegNames(i), regValue
    
48.           regValueType = "REG_DWORD"
    
49.         Case 7
    
50.           regWMI.GetMultiValue regRoot, path, arrRegNames(i), arrRegValues
    
51.           regValueType = "REG_MULTI_SZ"
    
52.           Multi = "yes"
    
53.       End Select
    
54.       If Multi = "yes" Then
    
55.         For Each str In arrRegValues
    
56.           regValue = regValue & str & vbTab
    
57.         Next
    
58.       End If
    
59.       newpath = Replace(path, regPath, "")
    
60.       If Left(newpath, 1) = "" Then newpath = Mid(newpath,2,Len(newpath))
    
61.       Text.WriteLine newpath & arrRegNames(i) & vbTab & regValueType & vbTab & regValue
    
62.     End If
    
63.   Next
    
64. End Function

复制代码