運行腳本之前，如何確定計算機上的默認腳本宿主的代碼

2020-06-26 18:07:02

字體：大中小

來源：轉載

供稿：網友

問：
您好，腳本專家！我知道，在運行腳本時，可使用代碼確定腳本是否在 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：現在，在不運行腳本的情況下，您便可確定計算機上的默認腳本宿主。（是的，我們知道您不得不運行確定默認腳本宿主的腳本…不過您找到答案了。）我們希望您能發現此腳本的用處，并希望每個人在今天都學到了重要一課：盡你所能，也無法難倒腳本專家。
嗯，除非您問我們一個無法回答的問題。但是，只要問我們可以回答的問題就絕不會難倒我們。
是的：幾乎沒有可能。

上一篇：編寫可以打開文本文件并打亂在該文件中所找到的單詞順序的vbs腳本

下一篇：基于邏輯運算的簡單權限系統(原理,設計,實現) VBS 版