用vbs檢索在運行對話框中鍵入的一系列命令的代碼

2019-10-26 17:58:59

字體：大中小

來源：轉載

供稿：網友

問：
您好，腳本專家！有時，我在運行對話框中鍵入了多個命令，隨后想要對其進行檢索。我知道我最近使用過的命令緩存在某個地方，因為當我開始在運行對話框中鍵入時，它們便會顯示出來。如何使用腳本檢索這些命令？
-- KJ
答：
您好，KJ。您知道，一看到您的問題，我們首先想到的是：為什么我們沒有想過這個問題？不用說，腳本專家使用運行對話框已經有好多年了，并且我們也非常清楚地知道，最近使用的命令（如果您統計過的話，是最近使用過的 26 個）緩存在計算機上的某個地方。然而，我們從未編寫過可檢索此列表的腳本。我們怎么能忽略如此明顯的事情呢？
注意：事實上，令人吃驚的絕不僅限于我們已忽略了如此明顯的事情。例如，到目前為止，腳本專家已在其當前所在的大廈中呆了大約一年的時間了，然而就在幾個星期前，編寫本專欄的腳本專家才發現有從其辦公室通往樓下大廳的樓梯。
稍加摸索后，我們發現該信息存儲在注冊表中；更確切地說，它作為單個注冊表值存儲在注冊表項 HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/RunMRU 中。這樣不是很好嗎？當然很好；畢竟，這使得我們能夠編寫以下腳本：
復制代碼代碼如下:

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 項，然后枚舉在此處找到的所有值的值。（是的，我們知道：值的值？這便是注冊表術語的有趣之處。）要實現該功能，該腳本首先定義一個名為 HKEY_CURRENT_USER 的常量，并將該值設置為 &H80000001；稍后將使用該常量來告知腳本要處理的注冊表配置單元。然后，我們連接到本地計算機上的 WMI 服務，務必綁定到 root/default 命名空間，即 WMI 注冊表提供程序的主目錄。

上一篇：用vbs讀取遠程計算機上的文本文件的代碼

下一篇：用vbs實現重新啟動 Internet Explorer