用vbscript得到注冊(cè)表中是否存在某個(gè)值
更新時(shí)間:2007年04月06日 00:00:00 作者:
問:
嗨,Scripting Guy!如何知道遠(yuǎn)程計(jì)算機(jī)上的注冊(cè)表中是否存在某個(gè)值?
-- AL
答:
嗨,AL。完全披露時(shí)間:盡管我們叫做 Scripting Guy,但這并不表示我們了解有關(guān)腳本編寫的一切事情。這個(gè)問題就是一個(gè)很好的例證。第一次看到這個(gè)問題時(shí),我們認(rèn)為:“好吧,WMI 中顯然有某種 If Exists 方法可以實(shí)現(xiàn)這個(gè)目的。”但當(dāng)我們發(fā)現(xiàn)其中并沒有這樣的方法時(shí),知道我們有多吃驚么?事實(shí)上,我們找不到任何可以檢查注冊(cè)表中是否存在某個(gè)值的方法。我們甚至——慚愧!——去查閱文檔,以為我們可能遺漏了什么。運(yùn)氣當(dāng)然不會(huì)那么好。
在我們找不到 If Exists 方法后,我們想:“好吧,那我們就試著讀取這個(gè)值。當(dāng)然了,嘗試讀取一個(gè)不存在的值會(huì)觸發(fā)一個(gè)錯(cuò)誤。然后我們就可以捕獲這個(gè)錯(cuò)誤,并確定這個(gè)值是否存在?!?
大家知道,如果您使用 WSH 的 RegRead 方法來讀取一個(gè)不存在的值,那么就會(huì)觸發(fā)一個(gè)錯(cuò)誤。但 RegRead 方法只對(duì)本地計(jì)算機(jī)有效,您不能對(duì)遠(yuǎn)程計(jì)算機(jī)使用這個(gè)方法。因此您需要使用 WMI。然后,猜一猜會(huì)出現(xiàn)什么情況呢:如果您使用 WMI 嘗試讀取一個(gè)不存在的值,根本不會(huì)產(chǎn)生任何錯(cuò)誤。相反,WMI 會(huì)繼續(xù)運(yùn)行,就好像沒有錯(cuò)誤發(fā)生一樣。真是不可救藥。
但后來我們發(fā)現(xiàn)了一些事情。當(dāng)您使用 WMI 來讀取注冊(cè)表時(shí),這個(gè)值會(huì)作為“輸出參數(shù)”返回。當(dāng)我們檢查這個(gè)輸出參數(shù)的實(shí)際值時(shí),我們發(fā)現(xiàn)如果您嘗試讀取的值不存在,那么您就會(huì)得到 Null。這就是說,我們所要做的就是檢查 Null 值,這樣我們就可以知道這個(gè)注冊(cè)表值存不存在。
明白了嗎?以下示例腳本查找注冊(cè)表值 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 設(shè)置為 &H80000002;等一會(huì)我們將使用這個(gè)值來連接注冊(cè)表的 HKEY_LOCAL_MACHINE 部分。然后,我們連接 WMI 服務(wù),并連接 StdRegProv 類(位于 root\default namespace 中)。
我們先將注冊(cè)表路徑和注冊(cè)表值隱藏在一對(duì)變量中,然后調(diào)用 GetStringValue 方法。注意這個(gè)方法的以下四個(gè)參數(shù):我們的常量 HKEY_LOCAL_MACHINE;變量 strPath(表示注冊(cè)表路徑);變量 strValueName(表示我們要讀取的注冊(cè)表值);以及 strValue。strValue 即我們的輸出參數(shù):注冊(cè)表中記錄的實(shí)際字符串值將會(huì)存儲(chǔ)在 strValue 中,并返回給我們。
根據(jù)以下情況,我們就可以知道注冊(cè)表值是否存在:如果 strValue 為 Null,則這個(gè)值不存在。我們對(duì)很多注冊(cè)表值都使用了這個(gè)方法,看來每次都有效。它對(duì) REG_DWORD 值也有效,當(dāng)然,您必須使用 GetDWORDValue 方法才能讀取這種值。有關(guān)如何使用 WMI 處理注冊(cè)表的詳細(xì)信息,請(qǐng)參閱“Microsoft Windows 2000 腳本編寫”中的 “注冊(cè)表”一章。
現(xiàn)在,我們知道您在想什么:您在想,“好吧,那如果我創(chuàng)建了一個(gè)空白的注冊(cè)表值又會(huì)怎樣?是否輸出參數(shù)仍會(huì)作為 Null 返回,即使注冊(cè)表值存在?”信不信由你,情況是不同的。相反,空白的注冊(cè)表值會(huì)作為“empty”返回,也就是說這個(gè)值等于空字符串 ("")。我們認(rèn)識(shí)到這個(gè)問題可能會(huì)帶來困擾,在這種情況下,無(空字符串)并不等于無(Null 值)??瞻滓馕吨?cè)表值存在,但是這個(gè)值為空白;而 Null 則意味著這個(gè)值不存在。
上面已經(jīng)說過,我們隨意嘗試對(duì)各種類型的注冊(cè)表值使用過這個(gè)方法,看來好像每次都有效。如果您遇到這個(gè)方法無效的情況,請(qǐng)讓我們知道。
嗨,Scripting Guy!如何知道遠(yuǎn)程計(jì)算機(jī)上的注冊(cè)表中是否存在某個(gè)值?
-- AL
答:
嗨,AL。完全披露時(shí)間:盡管我們叫做 Scripting Guy,但這并不表示我們了解有關(guān)腳本編寫的一切事情。這個(gè)問題就是一個(gè)很好的例證。第一次看到這個(gè)問題時(shí),我們認(rèn)為:“好吧,WMI 中顯然有某種 If Exists 方法可以實(shí)現(xiàn)這個(gè)目的。”但當(dāng)我們發(fā)現(xiàn)其中并沒有這樣的方法時(shí),知道我們有多吃驚么?事實(shí)上,我們找不到任何可以檢查注冊(cè)表中是否存在某個(gè)值的方法。我們甚至——慚愧!——去查閱文檔,以為我們可能遺漏了什么。運(yùn)氣當(dāng)然不會(huì)那么好。
在我們找不到 If Exists 方法后,我們想:“好吧,那我們就試著讀取這個(gè)值。當(dāng)然了,嘗試讀取一個(gè)不存在的值會(huì)觸發(fā)一個(gè)錯(cuò)誤。然后我們就可以捕獲這個(gè)錯(cuò)誤,并確定這個(gè)值是否存在?!?
大家知道,如果您使用 WSH 的 RegRead 方法來讀取一個(gè)不存在的值,那么就會(huì)觸發(fā)一個(gè)錯(cuò)誤。但 RegRead 方法只對(duì)本地計(jì)算機(jī)有效,您不能對(duì)遠(yuǎn)程計(jì)算機(jī)使用這個(gè)方法。因此您需要使用 WMI。然后,猜一猜會(huì)出現(xiàn)什么情況呢:如果您使用 WMI 嘗試讀取一個(gè)不存在的值,根本不會(huì)產(chǎn)生任何錯(cuò)誤。相反,WMI 會(huì)繼續(xù)運(yùn)行,就好像沒有錯(cuò)誤發(fā)生一樣。真是不可救藥。
但后來我們發(fā)現(xiàn)了一些事情。當(dāng)您使用 WMI 來讀取注冊(cè)表時(shí),這個(gè)值會(huì)作為“輸出參數(shù)”返回。當(dāng)我們檢查這個(gè)輸出參數(shù)的實(shí)際值時(shí),我們發(fā)現(xiàn)如果您嘗試讀取的值不存在,那么您就會(huì)得到 Null。這就是說,我們所要做的就是檢查 Null 值,這樣我們就可以知道這個(gè)注冊(cè)表值存不存在。
明白了嗎?以下示例腳本查找注冊(cè)表值 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Test Value:
復(fù)制代碼 代碼如下:
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
我們先將注冊(cè)表路徑和注冊(cè)表值隱藏在一對(duì)變量中,然后調(diào)用 GetStringValue 方法。注意這個(gè)方法的以下四個(gè)參數(shù):我們的常量 HKEY_LOCAL_MACHINE;變量 strPath(表示注冊(cè)表路徑);變量 strValueName(表示我們要讀取的注冊(cè)表值);以及 strValue。strValue 即我們的輸出參數(shù):注冊(cè)表中記錄的實(shí)際字符串值將會(huì)存儲(chǔ)在 strValue 中,并返回給我們。
根據(jù)以下情況,我們就可以知道注冊(cè)表值是否存在:如果 strValue 為 Null,則這個(gè)值不存在。我們對(duì)很多注冊(cè)表值都使用了這個(gè)方法,看來每次都有效。它對(duì) REG_DWORD 值也有效,當(dāng)然,您必須使用 GetDWORDValue 方法才能讀取這種值。有關(guān)如何使用 WMI 處理注冊(cè)表的詳細(xì)信息,請(qǐng)參閱“Microsoft Windows 2000 腳本編寫”中的 “注冊(cè)表”一章。
現(xiàn)在,我們知道您在想什么:您在想,“好吧,那如果我創(chuàng)建了一個(gè)空白的注冊(cè)表值又會(huì)怎樣?是否輸出參數(shù)仍會(huì)作為 Null 返回,即使注冊(cè)表值存在?”信不信由你,情況是不同的。相反,空白的注冊(cè)表值會(huì)作為“empty”返回,也就是說這個(gè)值等于空字符串 ("")。我們認(rèn)識(shí)到這個(gè)問題可能會(huì)帶來困擾,在這種情況下,無(空字符串)并不等于無(Null 值)??瞻滓馕吨?cè)表值存在,但是這個(gè)值為空白;而 Null 則意味著這個(gè)值不存在。
上面已經(jīng)說過,我們隨意嘗試對(duì)各種類型的注冊(cè)表值使用過這個(gè)方法,看來好像每次都有效。如果您遇到這個(gè)方法無效的情況,請(qǐng)讓我們知道。
相關(guān)文章
vbs 獲取當(dāng)前目錄文件數(shù)量的代碼(不包括子文件夾中的)
有時(shí)候我們需要獲取當(dāng)前目錄下有多少個(gè)文件,那么就可以參考下面的代碼2013-09-09VBS教程:VBscript語(yǔ)句-Call 語(yǔ)句
VBS教程:VBscript語(yǔ)句-Call 語(yǔ)句...2006-11-11關(guān)于vbs WebBrowser導(dǎo)航問題
1、如何確定打開的新窗口的URL 2、如何使新窗口不彈出而是在原來頁(yè)面中顯示2008-05-05VBS教程:函數(shù)-CreateObject 函數(shù)
CreateObject 函數(shù)創(chuàng)建并返回對(duì) Automation 對(duì)象的引用,在vbscirpt經(jīng)常用到,這里就為大家簡(jiǎn)單介紹一下需要的朋友可以參考一下啊2006-11-11VBS 正則判別素?cái)?shù)(質(zhì)數(shù))
利用正則判別素?cái)?shù),來源于網(wǎng)絡(luò),神人,喜歡vbs的朋友可以參考下2013-07-07用vbs實(shí)現(xiàn)隨機(jī)讀取文件的一行內(nèi)容的腳本
用vbs實(shí)現(xiàn)隨機(jī)讀取文件的一行內(nèi)容的腳本...2007-10-10