用vbs實(shí)現(xiàn)更改計(jì)算機(jī)的說明的代碼
問:
您好,腳本專家!在使用 Windows 資源管理器連接到遠(yuǎn)程計(jì)算機(jī)時(shí),可以在“詳細(xì)信息”窗格中看見該計(jì)算機(jī)的說明。如何更改計(jì)算機(jī)的說明?
-- GF
答:
您好,GF。只是為了確保每個(gè)人都清楚我們談?wù)摰膬?nèi)容,我們不會(huì)談?wù)?nbsp;Active Directory 中的“說明”屬性,而是談?wù)撛谡麄€(gè)網(wǎng)絡(luò)范圍內(nèi)廣播的計(jì)算機(jī)說明。(如果您真正想知道的是如何更改 Active Directory 中的“說明”屬性,請(qǐng)參閱此“您好,腳本專家!”專欄。)
例如,在 Windows XP 中,您可通過執(zhí)行以下操作來查看計(jì)算機(jī)說明:右鍵單擊“我的電腦”,單擊“屬性”,然后查看“系統(tǒng)屬性”對(duì)話框的“計(jì)算機(jī)名稱”選項(xiàng)卡中的內(nèi)容:
如您所述,如果使用 Windows 資源管理器連接到該計(jì)算機(jī),則該說明還會(huì)出現(xiàn)在“詳細(xì)信息”窗格中:
我們也認(rèn)為這很令人興奮。
那么如何更改計(jì)算機(jī)說明呢?是這樣,您可以啟動(dòng) Regedit.exe,然后手動(dòng)更改注冊(cè)表值 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 表示注冊(cè)表 HKEY_LOCAL_MACHINE 部分內(nèi)的路徑;strValueName 表示要更改的注冊(cè)表值 (srvcomment);還有 strDescription,沒錯(cuò):strDescription 表示新的計(jì)算機(jī)說明。您的觀察力很敏銳。
注意:我們想要說的是,你們?cè)谶@方面要比我們強(qiáng)得多,但我們不想讓經(jīng)理對(duì)此有任何了解。的確如此:對(duì)于一位 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í)會(huì)使生活變得有意義,不是嗎?
注意:請(qǐng)注意,即使是在注冊(cè)表中進(jìn)行此更改,新說明可能仍要在計(jì)算機(jī)重新啟動(dòng)后才會(huì)生效。這只不過是一個(gè)需要注意的地方。
上一篇:用vbs實(shí)現(xiàn)重新啟動(dòng) Internet Explorer
欄 目:vb
下一篇:用vbs記錄屏幕保護(hù)程序的開始時(shí)間和結(jié)束時(shí)間
本文標(biāo)題:用vbs實(shí)現(xiàn)更改計(jì)算機(jī)的說明的代碼
本文地址:http://mengdiqiu.com.cn/a1/vb/7894.html
您可能感興趣的文章
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實(shí)例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
- 1C語言 while語句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹的示例代碼(圣誕
- 3利用C語言實(shí)現(xiàn)“百馬百擔(dān)”問題方法
- 4C語言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實(shí)例說明
隨機(jī)閱讀
- 01-10delphi制作wav文件的方法
- 01-10C#中split用法實(shí)例總結(jié)
- 01-10使用C語言求解撲克牌的順子及n個(gè)骰子
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 01-11ajax實(shí)現(xiàn)頁面的局部加載
- 04-02jquery與jsp,用jquery
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什