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