運行指令碼之前，如何確定電腦上的預設指令碼宿主的代碼

問：
您好，指令碼專家！我知道，在運行指令碼時，可使用代碼確定指令碼是否在 WScript 或 CScript 中運行。但我想不明白的是：運行指令碼之前，如何確定電腦上的預設指令碼宿主？
-- AT
答：
您好，AT。您知道，人們完全難倒指令碼專家並不是常事；不過我們不得不承認這個問題的確有點挑戰性。（嗯，嗯：那麼，或許它並不足以能夠難倒指令碼專家；老實說，事實上它相當簡單。不過你們無需知道這些。）我們還不知道如何回答這個問題，但我們知道，為了協助您解決這個問題，我們將會需要大量辛勤的工作和奉獻。
但是，在困難面前，指令碼專家放棄過嗎？嗯，事實上，我們放棄過。不過，在處理一些毫不相關的事情時，我們卻意外發現了答案。以下這個指令碼（使用有點迂迴的方法）將告訴您電腦上的預設指令碼宿主： 複製代碼 代碼如下:Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "VBSFile\Shell\Open\Command"
objRegistry.GetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,vbNullString,strValue
strValue = LCase(strValue)
If InStr(strValue, "wscript.exe") then
Wscript.Echo "WScript"
Else
Wscript.Echo "CScript"
End If

從中可以看出，有關預設指令碼宿主的資訊儲存在註冊表中，儘管不是處在特別明顯的位置。您所需要做的只是開啟 HKEY_CLASSES_ROOT，找到登錄機碼 VBSFile\Shell\Open\Command，然後查看預設值。（預設值是個例外的未命名的註冊表值，該註冊表值在 Regedit 中以“(預設)”的形式出現。）“(預設)”的值將是指令碼宿主可執行程式的路徑 （例如，%SystemRoot%\System32\WScript.exe）。換句話說，可執行程式檔案將告訴您預設指令碼宿主是 CScript 還是 WScript。
那麼，實際上我們如何獲得該值呢？嗯，我們首先定義一個名為 HKEY_CLASSES_ROOT 的常量，並將其值設定為 &H80000000；這會告訴指令碼我們要使用哪個註冊表登錄區。然後，串連到本機電腦上的 WMI 服務（儘管我們可輕而易舉地對遠端電腦運行該指令碼），務必綁定到 root\default 命名空間。（大多數 WMI 指令碼使用 root\cimv2 命名空間，但是出於某些原因，系統註冊表提供者還是位於 root\default 中。可能是房屋較便宜或是學校較好的原因吧。）
進行串連後，我們建立名為 strKeyPath 的變數，並為其分配值 VBSFile\Shell\Open\Command。此時，我們準備從註冊表中讀取該值。
什嗎？難道我們忘了什麼事情？不，我們未忘記任何事情。（儘管現在您提到它，但我們卻有點想知道在我們早上離開屋子的時候是否有人將爐子關閉。）您說對了，在大多數 WMI 註冊表指令碼中，我們需要將值分配給兩個變數，一個代表登錄機碼，另一個代表登錄機碼中所需的值。不過，在本例中，我們不需要建立在其中儲存註冊表值名稱的變數。為什麼不能呢？因為，從技術角度來說，“(預設)”值實際上並沒有名稱；它們只不過是預設值而已。我們最終所要做的是告訴該指令碼從此特殊的登錄機碼中讀取 Null 值。這聽起來似乎不是很好的計劃，不過幸運的是，“註冊表提供者”將知道這意味著讀取“(預設)”值。
事實上，當談到這個主題時，以下該行代碼便可為我們檢索值：
objRegistry.GetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,vbNullString,strValue
因為“(預設)”碰巧具有 REG_EXPAND_SZ 資料類型，所以我們調用 GetExpandedStringValue 方法，傳遞四個參數：
? HKEY_CLASSES_ROOT，告訴指令碼要使用哪個註冊表登錄區的常量。
? strKeyPath，告訴指令碼要使用哪個登錄機碼的變數。
? vbNullString，一個代表 Null 值的 VBScript 常量。這是我們通常插入代表值名稱變數之處，不過正如我們說過的，這次我們的值沒有名稱。
? strValue，一個“輸出”參數。GetExpandedStringValue 需要用一個地方來儲存其從註冊表中讀取的值；輸出參數只是一個預留位置變數，可在其中儲存值。
GetExpandedStringValue 可用後，我們便可使用該行代碼將 strValue 中的所有字元更改為小寫；這樣做是為了更容易確定該值是否含有特殊字元串。
strValue = LCase(strValue)
最後，我們調用 InStr 函數，看看是否可在 strValue 中任何地方找到該字串值 wscript.exe。如果可以找到，則我們將回顯預設指令碼宿主 WScript；如果沒有找到，則一定意味著預設指令碼宿主為 CScript： 複製代碼 代碼如下:If InStr(strValue, "wscript.exe") then
Wscript.Echo "WScript"
Else
Wscript.Echo "CScript"
End If

這樣就可以了，AT：現在，在不運行指令碼的情況下，您便可確定電腦上的預設指令碼宿主。（是的，我們知道您不得不運行確定預設指令碼宿主的指令碼…不過您找到答案了。）我們希望您能發現此指令碼的用處，並希望每個人在今天都學到了重要一課：盡你所能，也無法難倒指令碼專家。
嗯，除非您問我們一個無法回答的問題。但是，只要問我們可以回答的問題就絕不會難倒我們。
是的：幾乎沒有可能。