用vbs實(shí)現(xiàn)配置無(wú)人登錄計(jì)算機(jī)時(shí)使用的屏幕保護(hù)程序
問:
您好,腳本專家!我最近下載了你們的“腳本中心”屏幕保護(hù)程序,當(dāng)有人登錄計(jì)算機(jī)時(shí),它運(yùn)行起來(lái)棒極了。但是無(wú)人登錄時(shí),計(jì)算機(jī)卻使用其它屏幕保護(hù)程序。如何讓計(jì)算機(jī)在無(wú)人登錄時(shí)也使用“腳本中心”屏幕保護(hù)程序?
-- RF
答:
您好,RF。您知道,我們遇到過(guò)這種情況,您可能在設(shè)法欺騙這些老腳本專家們。舉個(gè)例子來(lái)說(shuō),我們?cè)趺粗滥M麩o(wú)人登錄計(jì)算機(jī)時(shí)運(yùn)行的屏幕保護(hù)程序就是我們的屏幕保護(hù)程序?也許您只是奉承腳本專家,好讓腳本專家回答您的問題?;卮鹜陠栴}后,您就會(huì)把我們甩掉,安裝其它一些與腳本編寫有關(guān)的屏幕保護(hù)程序作為默認(rèn)屏幕保護(hù)程序。RF 啊 RF:您真的認(rèn)為腳本專家頭腦如此簡(jiǎn)單愿意受用這樣的假意恭維嗎?
嗯,您是該這樣認(rèn)為,因?yàn)槲覀兇_實(shí)如此:
Const HKEY_USERS = &H80000003
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = ".Default\Control Panel\Desktop"
ValueName = "SCRNSAVE.EXE"
strValue = "C:\WINDOWS\System32\Script Center.scr"
objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue
正如您所看到的,這是一個(gè)用于更改注冊(cè)表的 WMI 腳本。它與我們過(guò)去為您展示的許多其它注冊(cè)表修改腳本非常相似,但有一處特殊更改。在以前的腳本中,我們總是先定義一個(gè)常量,告訴腳本我們要處理 HKEY_CURRENT_USER 或 HKEY_LOCAL_MACHINE 注冊(cè)表配置單元。這樣做有充分的理由:我們希望將所做的一切更改都應(yīng)用于當(dāng)前用戶或計(jì)算機(jī)本身。不過(guò),請(qǐng)注意此腳本的第一行:
Const HKEY_USERS = &H80000003
秘密就在這里:這一次我們要處理 HKEY_USERS 注冊(cè)表配置單元。除了其它用途外,HKEY_USERS 配置單元為您提供了這樣一個(gè)場(chǎng)所:在其中配置的設(shè)置可應(yīng)用于登錄到計(jì)算機(jī)的任何用戶,而不僅僅是某一特定的用戶。換言之,如果您使用 HKEY_USERS 配置屏幕保護(hù)程序,該屏幕保護(hù)程序便是默認(rèn)屏幕保護(hù)程序,會(huì)應(yīng)用于登錄到計(jì)算機(jī)的任何新用戶。(除非用戶明確配置其它屏幕保護(hù)程序,否則會(huì)繼續(xù)應(yīng)用默認(rèn)屏幕保護(hù)程序。)同樣,無(wú)人登錄計(jì)算機(jī)時(shí),也會(huì)使用此默認(rèn)屏幕保護(hù)程序。
酷吧?順便提一下,您還可以使用該注冊(cè)表配置單元配置顯示在登錄屏幕上的墻紙;只需將注冊(cè)表值 HKEY_USERS\.Default\Control Panel\Desktop\Wallpaper 設(shè)置為相應(yīng)的文件路徑即可。類似下面的代碼:
Const HKEY_USERS = &H80000003
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = ".Default\Control Panel\Desktop"
ValueName = "Wallpaper"
strValue = "C:\WINDOWS\System32\Script Center.bmp"
objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue
定義常量后,接下來(lái)要連接本地計(jì)算機(jī)上的 WMI 服務(wù)(雖然此腳本在遠(yuǎn)程計(jì)算機(jī)上的運(yùn)行效果同樣不錯(cuò))。然后,為下面三個(gè)不同的變量賦值:
• strKeyPath - HKEY_USERS 內(nèi)注冊(cè)表項(xiàng)的路徑。在本例中,路徑為 .Default\Control Panel\Desktop。
• ValueName - 要更改的注冊(cè)表值的名稱 (SCRNSAVE.EXE)。
• strValue - 要賦給 SCRNSAVE.EXE 的新值。在此腳本中,該值是此屏幕保護(hù)程序的完整路徑。
最后,我們要調(diào)用 SetStringValue 方法(將常量 HKEY_USERS 和這三個(gè)變量一起作為參數(shù)傳遞),這樣就大功告成了:
objReg.SetStringValue HKEY_USERS, strKeyPath, ValueName, strValue
現(xiàn)在,如果您注銷后再等幾分鐘,就會(huì)運(yùn)行“腳本中心”屏幕保護(hù)程序。(假設(shè)注冊(cè)表值 ScreenSaveActive 設(shè)置為 1;如果設(shè)置為 0,則表示禁用該屏幕保護(hù)程序。)
知道這有多簡(jiǎn)單了吧?噢,不,我們不是說(shuō)腳本(雖然腳本也非常簡(jiǎn)單);我們是說(shuō)要獲得問題的答案有多簡(jiǎn)單,當(dāng)然,您提問題的措辭很對(duì)路。就象常說(shuō)的那句話,誰(shuí)都愛聽恭維話。
上一篇:用vbs確定可移動(dòng)驅(qū)動(dòng)器的連接時(shí)間
欄 目:vb
下一篇:用vbs計(jì)算某個(gè)詞在日志文件中的出現(xiàn)次數(shù)
本文標(biāo)題:用vbs實(shí)現(xiàn)配置無(wú)人登錄計(jì)算機(jī)時(shí)使用的屏幕保護(hù)程序
本文地址:http://mengdiqiu.com.cn/a1/vb/7905.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語(yǔ)法速查及實(shí)例說(shuō)明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語(yǔ)句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼


閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(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語(yǔ)法速查及實(shí)例說(shuō)明
隨機(jī)閱讀
- 04-02jquery與jsp,用jquery
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子
- 01-10C#中split用法實(shí)例總結(jié)
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10delphi制作wav文件的方法
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什