回复：'Run历史记录清理工具

方法有点猥琐了。。。

用WMI枚举注册表会比较好。。

还不错~

高人啊，最近我才耳闻wmi~ 还不甚了解~

(*^__^*) 嘻嘻……

哈哈，不错哦，很基础。
cmd:reg delete KEY /va /f

回复：8楼
/va         删除该项下的所有值。
删掉后连常用的也没了,就没那种输入框自动补全的功能了

代码没什么难度，就是利用WMI读取和删除注册表值。我加了许多与本专题无关的东西，因为我觉得有些初学者（包括我）可能用得到。
'Code By Coo_boi
'WMI on Registry
'...
On Error Resume Next
Dim oReg
Dim RootKey,strKeyPath
Const HKEY_LOCAL_MACHINE = &H80000002
'Const HKEY_CLASSES_ROOT = &H80000000
'Const HKEY_CURRENT_USER = &H80000001
'Const HKEY_Users = &H80000003
'Const HKEY_Current_Config = &H80000005
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
RootKey=HKEY_LOCAL_MACHINE
strKeyPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
oReg.EnumValues HKEY_LOCAL_MACHINE,strKeyPath,arrValueNames,arrValueTypes
If Not IsNull(arrValueNames) Then
i=0
For Each ValueName In arrValueNames
strValue=GetValue(RootKey,strKeyPath,ValueName,arrValueTypes(i))
strTemp=strTemp & ValueName &":"& vbCrLf &"   "& strValue & vbcrlf
i=i+1
Next
WScript.Echo strTemp
'delName=InputBox(strTemp,"Delete The Value","a")
'If Not IsNull(delName) Then
'DeleteValue RootKey,strKeyPath,delName
'End If
Else
WScript.Echo "Value Not Exist or Read Failed"
End If
Function GetValue(RootKey,strKeyPath,strValueName,ValueType)
Select Case ValueType
Case REG_SZ
      oReg.GetStringValue RootKey,strKeyPath,strValueName,RetValue
Case REG_EXPAND_SZ
      oReg.GetExpandedStringValue RootKey,strKeyPath,strValueName,RetValue
Case REG_BINARY
      oReg.GetBinaryValue RootKey,strKeyPath,strValueName,RetValue
Case REG_DWORD
      oReg.GetDWORDValue RootKey,strKeyPath,strValueName,RetValue
Case REG_MULTI_SZ
      oReg.GetMultiStringValue RootKey,strKeyPath,strValueName,RetValue
End Select
GetValue=RetValue
End Function
Sub DeleteValue(RootKey,strKeyPath,strValueName)
oReg.DeleteValue RootKey,strKeyPath,strValueName
End Sub

上面的代码还是不严谨的，但是个人比较懒所以也没修改。大体上是可以正常使用的。
RootKey,strKeyPath是可以改变的，然后可以访问其他键。
其中oReg还有一个EnumKey方法是用来枚举Key的，怎么样是不是很强大。
oReg.EnumKey RootKey,strKeyPath,arrKeyNames
arrKeyNames为返回值（一个数组吧或者**）
更多细节请访问 微软帮助与支持！

回复：11楼
传说中的wmi?我一直不敢学这个,传说太强大,怕学的上瘾...
- -!!

注册表的根本不知道是哪个对那个。另外，若不用到参数，Function完全可改为Sub，节省字节