用vbscript得到注冊表中是否存在某個值

2020-07-26 12:01:08

字體：大中小

來源：轉載

供稿：網友

問：
嗨，Scripting Guy！如何知道遠程計算機上的注冊表中是否存在某個值？
-- AL
答：
嗨，AL。完全披露時間：盡管我們叫做 Scripting Guy，但這并不表示我們了解有關腳本編寫的一切事情。這個問題就是一個很好的例證。第一次看到這個問題時，我們認為：“好吧，WMI 中顯然有某種 If Exists 方法可以實現這個目的。”但當我們發現其中并沒有這樣的方法時，知道我們有多吃驚么？事實上，我們找不到任何可以檢查注冊表中是否存在某個值的方法。我們甚至――慚愧!――去查閱文檔，以為我們可能遺漏了什么。運氣當然不會那么好。
在我們找不到 If Exists 方法后，我們想：“好吧，那我們就試著讀取這個值。當然了，嘗試讀取一個不存在的值會觸發一個錯誤。然后我們就可以捕獲這個錯誤，并確定這個值是否存在。”
大家知道，如果您使用 WSH 的 RegRead 方法來讀取一個不存在的值，那么就會觸發一個錯誤。但 RegRead 方法只對本地計算機有效，您不能對遠程計算機使用這個方法。因此您需要使用 WMI。然后，猜一猜會出現什么情況呢：如果您使用 WMI 嘗試讀取一個不存在的值，根本不會產生任何錯誤。相反，WMI 會繼續運行，就好像沒有錯誤發生一樣。真是不可救藥。
但后來我們發現了一些事情。當您使用 WMI 來讀取注冊表時，這個值會作為“輸出參數”返回。當我們檢查這個輸出參數的實際值時，我們發現如果您嘗試讀取的值不存在，那么您就會得到 Null。這就是說，我們所要做的就是檢查 Null 值，這樣我們就可以知道這個注冊表值存不存在。
明白了嗎？以下示例腳本查找注冊表值 HKLM/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Test Value：

復制代碼代碼如下:

Const HKEY_LOCAL_MACHINE = &H80000002  
strComputer = "."  
Set objRegistry = GetObject("winmgmts://" & _   
    strComputer & "/root/default:StdRegProv")  
strKeyPath = "SOFTWARE/Microsoft/Windows NT/CurrentVersion"  
strValueName = "Test Value"  
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue  
If IsNull(strValue) Then  
    Wscript.Echo "The registry key does not exist."  
Else  
    Wscript.Echo "The registry key exists."  
End If 

如您所見，我們首先將常量 HKEY_LOCAL_MACHINE 設置為 &H80000002；等一會我們將使用這個值來連接注冊表的 HKEY_LOCAL_MACHINE 部分。然后，我們連接 WMI 服務，并連接 StdRegProv 類（位于 root/default namespace 中）。
我們先將注冊表路徑和注冊表值隱藏在一對變量中，然后調用 GetStringValue 方法。注意這個方法的以下四個參數：我們的常量 HKEY_LOCAL_MACHINE；變量 strPath（表示注冊表路徑）；變量 strValueName（表示我們要讀取的注冊表值）；以及 strValue。strValue 即我們的輸出參數：注冊表中記錄的實際字符串值將會存儲在 strValue 中，并返回給我們。
根據以下情況，我們就可以知道注冊表值是否存在：如果 strValue 為 Null，則這個值不存在。我們對很多注冊表值都使用了這個方法，看來每次都有效。它對 REG_DWORD 值也有效，當然，您必須使用 GetDWORDValue 方法才能讀取這種值。有關如何使用 WMI 處理注冊表的詳細信息，請參閱“Microsoft Windows 2000 腳本編寫”中的 “注冊表”一章。
現在，我們知道您在想什么：您在想，“好吧，那如果我創建了一個空白的注冊表值又會怎樣？是否輸出參數仍會作為 Null 返回，即使注冊表值存在？”信不信由你，情況是不同的。相反，空白的注冊表值會作為“empty”返回，也就是說這個值等于空字符串 ("")。我們認識到這個問題可能會帶來困擾，在這種情況下，無（空字符串）并不等于無（Null 值）。空白意味著注冊表值存在，但是這個值為空白；而 Null 則意味著這個值不存在。
上面已經說過，我們隨意嘗試對各種類型的注冊表值使用過這個方法，看來好像每次都有效。如果您遇到這個方法無效的情況，請讓我們知道。

上一篇：用vbscript實現修改屏幕保護的等待時間長度

下一篇：注冊表的禁用與解鎖方法集合