用vbs實(shí)現(xiàn)更改計(jì)算機(jī)的說明的代碼
問:
您好,腳本專家!在使用 Windows 資源管理器連接到遠(yuǎn)程計(jì)算機(jī)時(shí),可以在“詳細(xì)信息”窗格中看見該計(jì)算機(jī)的說明。如何更改計(jì)算機(jī)的說明?
-- GF
答:
您好,GF。只是為了確保每個(gè)人都清楚我們談?wù)摰膬?nèi)容,我們不會談?wù)?nbsp;Active Directory 中的“說明”屬性,而是談?wù)撛谡麄€(gè)網(wǎng)絡(luò)范圍內(nèi)廣播的計(jì)算機(jī)說明。(如果您真正想知道的是如何更改 Active Directory 中的“說明”屬性,請參閱此“您好,腳本專家!”專欄。)
例如,在 Windows XP 中,您可通過執(zhí)行以下操作來查看計(jì)算機(jī)說明:右鍵單擊“我的電腦”,單擊“屬性”,然后查看“系統(tǒng)屬性”對話框的“計(jì)算機(jī)名稱”選項(xiàng)卡中的內(nèi)容:
如您所述,如果使用 Windows 資源管理器連接到該計(jì)算機(jī),則該說明還會出現(xiàn)在“詳細(xì)信息”窗格中:
我們也認(rèn)為這很令人興奮。
那么如何更改計(jì)算機(jī)說明呢?是這樣,您可以啟動 Regedit.exe,然后手動更改注冊表值 HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\parameters\srvcomment?;蜻\(yùn)行與以下腳本類似的腳本即可:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry = GetObject _
("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = "Description changed programmatically"
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
接下來,我們?yōu)槿齻€(gè)變量賦值:
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = "Description changed programmtically"
變量 strKeyPath 表示注冊表 HKEY_LOCAL_MACHINE 部分內(nèi)的路徑;strValueName 表示要更改的注冊表值 (srvcomment);還有 strDescription,沒錯(cuò):strDescription 表示新的計(jì)算機(jī)說明。您的觀察力很敏銳。
注意:我們想要說的是,你們在這方面要比我們強(qiáng)得多,但我們不想讓經(jīng)理對此有任何了解。的確如此:對于一位 Microsoft 經(jīng)理來說,了解情況將是最為重要的!
現(xiàn)在我們所要做的就是調(diào)用 SetStringValue 方法,同時(shí)將 HKEY_LOCAL_MACHINE 和我們的三個(gè)變量作為方法參數(shù)進(jìn)行傳遞:
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
像這樣的腳本真的確實(shí)會使生活變得有意義,不是嗎?
注意:請注意,即使是在注冊表中進(jìn)行此更改,新說明可能仍要在計(jì)算機(jī)重新啟動后才會生效。這只不過是一個(gè)需要注意的地方。
相關(guān)文章
Wscript 和 Cscript 運(yùn)行腳本的區(qū)別詳解
WSCRIPT與CScript的主要區(qū)別在于WSCRIPT窗口中運(yùn)行返回對話框,而CScrip在命令行中運(yùn)行,一般不需要特別注明,程序會提示2014-06-06