显示运行对话框内保存的命令历史的vbs

363 阅读 0 评论 240 点赞

我是靠谱客的博主背后哈密瓜，这篇文章主要介绍显示运行对话框内保存的命令历史的vbs，现在分享给大家，希望可以做个参考。

复制代码代码如下:

Const HKEY_CURRENT_USER = &H80000001 

strComputer = "." 

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" 
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes 

For Each strValue in arrValueNames 
If Len(strValue) = 1 Then 
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand 
intLength = Len(strRunCommand) 
strRunCommand = Left(strRunCommand, intLength - 2) 
Wscript.Echo strRunCommand 
End If 
Next 