显示运行对话框内保存的命令历史的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