問：
您好，腳本專家！有時，我在運行對話框中鍵入了多個命令，隨后想要對其進行檢索。我知道我最近使用過的命令緩存在某個地方，因為當(dāng)我開始在運行對話框中鍵入時，它們便會顯示出來。如何使用腳本檢索這些命令？
-- KJ
答：
您好，KJ。您知道，一看到您的問題，我們首先想到的是：為什么我們沒有想過這個問題？不用說，腳本專家使用運行對話框已經(jīng)有好多年了，并且我們也非常清楚地知道，最近使用的命令（如果您統(tǒng)計過的話，是最近使用過的 26 個）緩存在計算機上的某個地方。然而，我們從未編寫過可檢索此列表的腳本。我們怎么能忽略如此明顯的事情呢？
注意：事實上，令人吃驚的絕不僅限于我們已忽略了如此明顯的事情。例如，到目前為止，腳本專家已在其當(dāng)前所在的大廈中呆了大約一年的時間了，然而就在幾個星期前，編寫本專欄的腳本專家才發(fā)現(xiàn)有從其辦公室通往樓下大廳的樓梯。
稍加摸索后，我們發(fā)現(xiàn)該信息存儲在注冊表中；更確切地說，它作為單個注冊表值存儲在注冊表項 HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU 中。這樣不是很好嗎？當(dāng)然很好；畢竟，這使得我們能夠編寫以下腳本：
復(fù)制代碼 代碼如下:
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
該腳本連接到 RunMRU 項，然后枚舉在此處找到的所有值的值。（是的，我們知道：值的值？這便是注冊表術(shù)語的有趣之處。）要實現(xiàn)該功能，該腳本首先定義一個名為 HKEY_CURRENT_USER 的常量，并將該值設(shè)置為 H80000001；稍后將使用該常量來告知腳本要處理的注冊表配置單元。然后，我們連接到本地計算機上的 WMI 服務(wù)，務(wù)必綁定到 root\default 命名空間，即 WMI 注冊表提供程序的主目錄。
注意：我們可使用此相同的腳本來檢索遠程計算機中最近使用過的命令嗎？當(dāng)然可以；只需將遠程計算機的名稱分配給變量 strComputer 即可。
連接到 WMI 服務(wù)后，將值 Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU 分配給名為 strKeyPath 的變量。然后使用 EnumValues 方法來獲取 RunMRU 項中所有注冊表值的集合：
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes
正如您所看到的那樣，我們將四個參數(shù)傳遞給 EnumValues：
參數(shù)
說明
HKEY_CURRENT_USER
可在其中找到信息的注冊表配置單元。
strKeyPath
HKCU 配置單元中 RunMRU 項的路徑。
arrValueNames
這是一個“輸出”參數(shù)，用作存儲所有注冊表值名稱的位置。我們所要做的就是為 EnumValues 提供一個變量名；然后，EnumValues 將使用 RunMRU 中的所有值名稱來填充此變量。
arrValueTypes
另一輸出參數(shù)，此參數(shù)含有與 RunMRU 中找到的每個值相對應(yīng)的數(shù)據(jù)類型。這個參數(shù)是必需的，但是由于在 RunMRU 中找到的值的數(shù)據(jù)類型均為 REG_SZ，因此，我們實際上在腳本中并不使用它。
事實證明，在“運行”對話框中鍵入的每個命令在注冊表中都有其對應(yīng)值；通過使用字母 A 到 Z 為這些值分配了名稱（這也就解釋了為何在注冊表中只有 26 個最近使用的命令被跟蹤的原因）。在注冊表中，RunMRU 如下圖所示：
執(zhí)行 EnumValues 方法后，我們將返回所有這些值名稱的集合；換言之，我們的集合將由字母 A 到 Z 組成。非常不錯，只是該集合中不包含任何實際命令。要獲得這些命令（這是我們的最終目的），我們需要連接到并讀取注冊表中 26 個值中的每個值。
我們能這樣做嗎，我們能很容易地連接到注冊表中 26 個值并讀取每一個值嗎？當(dāng)然可以；事實上，這就是以下這段代碼所執(zhí)行的操作：
復(fù)制代碼 代碼如下:
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
您說對了：乍一看，它是有點可怕，不是嗎？告訴您原因吧，讓我們向您介紹一個該 For Each 循環(huán)的簡化版本，然后我再解釋為何將一些附加代碼添加到此循環(huán)中。該簡化循環(huán)如下：
For Each strValue in arrValueNames
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand
Wscript.Echo strRunCommand
Next
在此我們所要做的就是建立一個循環(huán)，該循環(huán)將遍歷所有注冊表值。要讀取其中的每個值，我們只需調(diào)用 GetStringValue 方法：
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand
GetStringValue 所傳遞的四個參數(shù)：常量 HKEY_CURRENT_USER；變量 strKeyPath；變量 strValue（代表各個值的名稱，例如 A、B 或 C）；名為 strRunCommand 的輸出參數(shù)。通過使用此輸出參數(shù)，我們只需指定一個變量名稱，GetStringValue 方法會將注冊表值的值（即，相應(yīng)的“運行”命令）分配給它。調(diào)用 GetStringValue 后，我們將回顯 strRunCommand，繼續(xù)循環(huán)，并處理集合中的下一個值。
對于該簡化的 For Each 循環(huán)已講了不少了；而真正的 For Each 循環(huán)中的所有額外代碼又怎樣呢？之所以使用額外代碼主要是為了可為我們提供稍好些的輸出。例如，在 RunMRU 項中，有一個名為 MRUList 的注冊表值。這并不代表一個實際的命令；而是代表最近使用的命令的先后出現(xiàn)順序。這對我們而言并不重要（至少今天不重要），因此我們寧愿跳過該 MRUList 值。這就是下面的代碼所要執(zhí)行的操作：
If Len(strValue) = 1 Then
在此行代碼中，我們使用 Len 函數(shù)來檢查值名稱中的字符數(shù)。如果字符數(shù)（長度）等于 1，我們將繼續(xù)進行并讀取該值。如果長度不等于 1（顯而易見，當(dāng) MRUList 具有 7 個字符時，就屬于這種情況），則我們只需跳過該值并移至集合中的下一項即可。
我們添加的另一小段代碼是：
intLength = Len(strRunCommand)
strRunCommand = Left(strRunCommand, intLength - 2)
如果您查看注冊表，您會發(fā)現(xiàn)所有命令的末尾都添加了一個 \1。如果需要的話，可將其保留下來，不過很容易將其去掉。我們所要做的是確定命令的長度，然后使用 Left 函數(shù)返回字符串中的第一個 x 字符。x 等于什么？它等于字符總數(shù)減 2。這就意味著，我們要獲取除最后 2 個字符（即 \1）以外的所有字符，并將它們回顯到屏幕上。
至此您已實現(xiàn)了您的目的：一個可返回在運行對話框所鍵入的最近使用的命令的腳本。我們?nèi)圆恢郎衩氐臉翘莸降淄ㄏ蚰睦铮覀冃枰茸鲋匾氖虑椤?
