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


閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機(jī)閱讀
- 04-02jquery與jsp,用jquery
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 01-10C#中split用法實例總結(jié)
- 01-11ajax實現(xiàn)頁面的局部加載
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10delphi制作wav文件的方法
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 08-05DEDE織夢data目錄下的sessions文件夾有什