vbs實(shí)用軟件自造——Windows腳本應(yīng)用實(shí)例

2020-03-24 17:50:17

字體：大中小

供稿：網(wǎng)友

從Windows 98時(shí)代起，各種腳本文件不斷出現(xiàn)，腳本文件的作用是為了實(shí)現(xiàn)各種腳本文件在 Windows 界面或 Dos html' target='_blank'>命令提示符下的直接運(yùn)行，微軟就在系統(tǒng)內(nèi)植入了一個(gè)基于 32 位 Windows 平臺(tái)、獨(dú)立的腳本運(yùn)行環(huán)境，并將其命名為“Windows Scripting Host（Windows 腳本宿主以下簡(jiǎn)稱WSH）”。
WSH 誕生后，在 Windows 系列產(chǎn)品中很快得到了推廣。除 Windows 98 外，微軟在 Internet Information Server、Windows ME、Windows 2000系列產(chǎn)品以及 Windows XP Professional等產(chǎn)品中都嵌入了 WSH。一般來(lái)說(shuō)，各種軟件總要考慮多數(shù)人的習(xí)慣和需求，而對(duì)于一些個(gè)性化很強(qiáng)的需求，通用軟件則很難滿足。現(xiàn)在利用WSH，我們可以完成很多有趣又實(shí)用的功能，而且實(shí)現(xiàn)代碼非常簡(jiǎn)單，而且完全是為自己量身定做，100%滿足自己的需求。這么簡(jiǎn)單、實(shí)用有有趣的東西，怎么可以放過(guò)呢？
一、WSH是怎么樣工作的
WSH正常工作的前提條件是系統(tǒng)中必須有IE3.0以上的版本，因?yàn)?WSH 在工作時(shí)需要使用IE 中的 VBScript 和 JScript 解釋引擎。
首先，我們來(lái)看一個(gè)最簡(jiǎn)單的例子，打開(kāi)記事本，在其中寫(xiě)下：
WScript.Echo("你好！電腦")
然后將它為以 .vbs 或 .js 為后綴名（千萬(wàn)不能保存為T(mén)XT文件，保存的時(shí)候在“文件類型”中選擇“所有文件”）的文件進(jìn)行保存，然后關(guān)掉這個(gè)記事本。從文件的圖標(biāo)來(lái)看已經(jīng)變成一個(gè)腳本文件，雙擊執(zhí)行這個(gè)文件，看看結(jié)果吧（如圖1），我們編輯的第一個(gè)腳本已經(jīng)成功運(yùn)行啦！
圖1
現(xiàn)在，就讓我們來(lái)看看腳本文件經(jīng)由WSH執(zhí)行的過(guò)程。首先WSH根據(jù)腳本文件后綴名，在系統(tǒng)注冊(cè)表中查詢所需的腳本引擎時(shí)，如VBScript或者JScript。然后使用相應(yīng)的腳本引擎執(zhí)行腳本命令，其中，一些腳本指令會(huì)使用到WSH的內(nèi)置對(duì)象（如處理注冊(cè)表項(xiàng)），這時(shí)，腳本指令就會(huì)向WSH提出請(qǐng)求，并由WSH完成這些指令。
那么，如何去編寫(xiě)并運(yùn)行WSH腳本呢？WSH腳本文件的編寫(xiě)十分方便，你可以選用任意一個(gè)文字編輯器進(jìn)行編寫(xiě)，寫(xiě)完后，你只需將它保存為 WSH 所支持的文件名就行了（如 .js 文件、.vbs 文件）。最常用的編輯器就是我們編寫(xiě)第一個(gè)腳本文件用到的記事本（Notepad）了。

一、WSH初步
下面，我們來(lái)看看一些WSH的初步實(shí)例，其中每個(gè)實(shí)例可以實(shí)現(xiàn)一個(gè)簡(jiǎn)單的功能，在我們了解每個(gè)實(shí)例的功能后，我們會(huì)把這些例子綜合成一個(gè)非常實(shí)用的腳本，幫助你實(shí)現(xiàn)實(shí)用、個(gè)性化的強(qiáng)大功能。
1.在桌面創(chuàng)建快捷方式
WSHShell = WScript.CreateObject("WScript.Shell");
DesktopPath = WSHShell.SpecialFolders("Desktop");
Shortcut1 = WSHShell.CreateShortcut(DesktopPath + "http://記事本快捷方式.lnk");
Shortcut1.TargetPath = "c://Windows//notepad.exe";
Shortcut1.Save();
其中SpecialFolders這個(gè)函數(shù)是用來(lái)讀取桌面路徑的，取得桌面路徑后，在桌面上創(chuàng)建一個(gè)“/記事本快捷方式.lnk”的文件，并將這個(gè)快捷方式文件的目標(biāo)指向Notepad.exe，最后將這些信息保存，這個(gè)腳本的工作就完成了。

2.執(zhí)行特定的命令
下列這個(gè)示例會(huì)用記事本打開(kāi)“ C:/autoexec.bat”文件，并開(kāi)啟 DOS 命令窗口（并列出執(zhí)行 dir c:/Windows 的結(jié)果），程序代碼如下：

// 產(chǎn)生 WSH Shell
shell = WScript.CreateObject("WScript.Shell");

// 開(kāi)啟記事本并加載 c:/autoexec.bat
shell.Run("notepad.exe c://autoexec.bat");

// 開(kāi)啟 DOS 命令窗口并執(zhí)行 dir c:/Windows
shell.Run("cmd /K dir c://Windows");

在上述范例中，所開(kāi)啟的應(yīng)用程序會(huì)保持開(kāi)啟狀態(tài)，而 WSH 會(huì)持續(xù)執(zhí)行其后的程序代碼。若要等待應(yīng)用程序被關(guān)閉后，才繼續(xù)執(zhí)行其后的 WSH 程序代碼，可以在 run() 之后再加上其它參數(shù)。如我們需要在關(guān)閉Notepad后再繼續(xù)執(zhí)行，應(yīng)該怎么辦呢？

// 如何由 WSH 執(zhí)行其它應(yīng)用程序，并等待應(yīng)用程序結(jié)束后才繼續(xù)執(zhí)行 WSH 程序代碼
shell = new ActiveXObject("WScript.Shell");
intReturn = shell.Run("notepad " + WScript.ScriptFullName, 1, true);
shell.Popup("記事本已經(jīng)被關(guān)閉！");

3.列出一個(gè)特定目錄下的所有文件
//創(chuàng)建文件系統(tǒng)對(duì)象
fso = new ActiveXObject("Scripting.FileSystemObject");
//指向指定的文件夾
dir="c://Windows//temp";
fsofolder = fso.GetFolder(dir);
//搜集文件夾中包含的文件
colFiles = fsofolder.Files;
fc = new Enumerator( colFiles );
//顯示并繼續(xù)讀取其它文件的文件名直到完成
WScript.Echo("Files under /""+dir+"/":");
for (; !fc.atEnd(); fc.moveNext() ){
WScript.Echo(fc.item());
}
腳本執(zhí)行后會(huì)將指定目錄中（C:/windows/temp）的所有文件一一列出來(lái)。

4.顯示本機(jī)IP地址
ws = new ActiveXObject( "MSWinsock.Winsock" );
WScript.Echo("本機(jī)IP地址是：" + ws.LocalIP);
通過(guò)MSWinsock.Winsock這個(gè)函數(shù)將IP地址收集起來(lái)并進(jìn)行顯示。

5.列出磁盤(pán)驅(qū)動(dòng)器及其相關(guān)性質(zhì)

fso = new ActiveXObject("Scripting.FileSystemObject");
driveTypeNames=["未知類型", "可移動(dòng)磁盤(pán)", "硬盤(pán)", "網(wǎng)絡(luò)磁盤(pán)驅(qū)動(dòng)器", "光盤(pán)", "虛擬磁盤(pán)"];
e = new Enumerator(fso.Drives);
s = "";
for (; !e.atEnd(); e.moveNext()) {
x = e.item();
WScript.Echo(x.DriveLetter+":")
WScript.Echo(" 磁盤(pán)類型：" + x.DriveType + " (" + driveTypeNames[x.DriveType] + ")");
WScript.Echo(" 共享名稱：" + x.ShareName);
WScript.Echo(" 磁盤(pán)是否就緒：" + x.IsReady);
if (x.IsReady){
WScript.Echo(" 卷標(biāo)：" + x.VolumeName);
WScript.Echo(" 空間大小：" + x.AvailableSpace + "字節(jié)");
}
}
執(zhí)行了這個(gè)腳本以后會(huì)顯示出該磁盤(pán)驅(qū)動(dòng)器的類型、卷標(biāo)、空間大小、共享名稱等相關(guān)信息。

6.顯示當(dāng)前時(shí)間
today = new Date();
WScript.Echo("電腦迷為您報(bào)時(shí)："+today.toLocaleString());
除了這樣的方法之外，還有一種比較復(fù)雜一點(diǎn)的方法，可以顯示上、下午時(shí)間
function getTime() {
today = new Date();
hour = today.getHours();
minute = today.getMinutes();
second = today.getSeconds();
prepand = (hour =12)? "下午":"上午";
hour = (hour =12)? hour-12:hour;
str = "現(xiàn)在時(shí)間是"+prepand+hour+"點(diǎn)"+minute+"分"+second+"秒";
return(str);
}
WScript.Echo(getTime());

7.保存當(dāng)前的網(wǎng)頁(yè)
// 抓取一個(gè)網(wǎng)頁(yè)，并將其內(nèi)容存入一個(gè)文件
inet=new ActiveXObject("InetCtls.Inet");
// 下載的網(wǎng)址
inet.Url="http://www.pcfans.net/index.htm";
// 設(shè)置超時(shí)
inet.RequestTimeOut=20;
// 下載文件
WScript.Echo("Downloading /""+inet.Url+"/"...");
content = inet.OpenURL();

// 寫(xiě)入文件
fso = new ActiveXObject("Scripting.FileSystemObject");
forReading=1, forWriting=2;
fileName="test.htm";
fid=fso.OpenTextFile(fileName, forWriting, true);
fid.Write(content);
fid.Close();
WScript.Echo("從「"+inet.Url+"」抓到的內(nèi)容已被存入「"+fileName+"」！");

8.列出與 SYSTEM 相關(guān)的重要環(huán)境變量
shell = WScript.CreateObject("WScript.Shell");
envObj = shell.Environment("SYSTEM");

WScript.Echo("====== 所有的 SYSTEM 環(huán)境變量列表：");
WScript.Echo("No. of env. variables = "+envObj.length);
var Enum=new Enumerator(envObj)
for (Enum.moveFirst(); !Enum.atEnd(); Enum.moveNext())
// WScript.Echo(Enum.item()+" === "+envObj(Enum.item()));
WScript.Echo(Enum.item());
有沒(méi)有看過(guò)“系統(tǒng)” 屬性？對(duì)于屬性中的系統(tǒng)環(huán)境的相關(guān)配置還需要用手動(dòng)來(lái)查看嗎？這個(gè)腳本就可以解決掉這一系列的問(wèn)題。

9.從Outlook Express中自動(dòng)讀取信件的腳本
var profile = "Microsoft Outlook Internet Settings";
omapi = new ActiveXObject( "MAPI.Session" );
omapi.Logon( profile );
objFolder = omapi.Inbox;
objMsg = objFolder.Messages;
myMsg = objMsg.GetFirst();
msg = myMsg.Text;
WScript.Echo( msg );
for ( i = 0; i i++ )
{
myMsg = objMsg.GetNext();
msg = myMsg.Text;
WScript.Echo( msg );
}
這樣個(gè)腳本可以自動(dòng)從Outlook Express的收件郵中找出最近收到的10封電子郵件，這樣就不需要打開(kāi)Outlook就可以快速的閱讀信件了。

10.查看文件的詳細(xì)屬性
var file = "results.html";
// 創(chuàng)建文件系統(tǒng)并獲取文件
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var f = fso.GetFile( file );
// Access properties and format results.
var fileinfo = "Results for " + file + "/n";
fileinfo += "名稱：" + f.Name + "/n";
fileinfo += "屬性：" + f.Attributes + "/n";
fileinfo += "大小：" + f.Size + " Bytes/n";
fileinfo += "創(chuàng)建日期：" + f.DateCreated + "/n";
fileinfo += "最后訪問(wèn)日期：" + f.DateLastAccessed + "/n";
fileinfo += "最后修改時(shí)期：" + f.DateLastModified + "/n";
fileinfo += "驅(qū)動(dòng)器：" + f.Drive + "/n";
fileinfo += "類型：" + f.Type + "/n";
// 顯示結(jié)果
WScript.Echo( fileinfo );

利用這個(gè)函數(shù)Scripting.FileSystemObject，我們可以實(shí)現(xiàn)對(duì)于某一個(gè)文件的詳細(xì)屬性進(jìn)行查看，如果所要查看的文件和該腳本不處于同一目錄中，就需要輸入完整的文件路徑名來(lái)進(jìn)行查看。別外，這個(gè)腳本需要使用命令行的方式來(lái)使用。
在DOS中運(yùn)行的方法如下：在 DOS 運(yùn)令行方式窗口中輸入「cscript // 腳本文件名」或「wscript // 腳本文件名」這樣就可以得到運(yùn)行后的效果了。

11.自定義設(shè)定壓縮文件
WinRAR是比較流行的一個(gè)壓縮程序。在安裝完成WinRAR后，首先需要為WinRAR的運(yùn)行添加一個(gè)相對(duì)路徑，這有點(diǎn)類似于DOS中的config.sys文件中對(duì)可執(zhí)行文件加入的路徑。在系統(tǒng)的環(huán)境變量里加入“set path=c:/Windows;c:/program files/WinRAR”后就可以直接調(diào)用WinRAR了。對(duì)于WinRAR的命令行具體的用法，可以在DOS窗口或命令行窗口中輸入“RAR.exe /？”就可以得到幫助。
將WinRAR準(zhǔn)備完成后就可以用下面的腳來(lái)來(lái)完現(xiàn)自定義壓縮了。

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run ("c://rar.exe c://test.rar c://a.txt c://b.txt")
script language="VBScript.Encode" runat=server
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run (" c://rar.exe c://test.rar c://a.txt c://b.txt" ,1, true)
if IsSuccess = 0 Then
Response.write " 命令成功執(zhí)行！"
else
Response.write " 命令執(zhí)行失敗！權(quán)限不夠或者該程序無(wú)法在DOS狀態(tài)下運(yùn)行"
end if
/script
二、綜合應(yīng)用
我們看來(lái)這么多單獨(dú)的例子，現(xiàn)在我們把上面的腳本略加修改，組合在一起，使它成為一個(gè)非常方便的工具，它可以實(shí)現(xiàn)如下功能：
1.自動(dòng)清除臨時(shí)文件。
2.自動(dòng)備份文檔，包括“我的文檔”中的文件和Outlook Express中的郵件。
3.對(duì)于備份的文件，需要進(jìn)行壓縮，并將壓縮文件以日期命名，放置在指定位置。
4.生成一個(gè)備份報(bào)告。
5.完成后自動(dòng)關(guān)機(jī)。
以下是實(shí)現(xiàn)上述功能的代碼：
//第一步:copy自身到C: 并在桌面上創(chuàng)建快捷方式
WshShell = WScript.CreateObject("WScript.Shell");
str="/""+WScript.ScriptFullname+"/" c://shutdown.js"
WshShell.Run("cmd /c copy "+str,0); //把本whs腳本拷貝到c:/shutdown.js
DesktopPath = WshShell.SpecialFolders("Desktop");//獲得桌面實(shí)際路徑
Shortcut1 = WshShell.CreateShortcut(DesktopPath + "http://關(guān)機(jī).lnk"); //開(kāi)始創(chuàng)建快捷方式
Shortcut1.TargetPath = "c://shutdown.js";
Shortcut1.Save();

//第二步:清除本用戶的臨時(shí)文件夾
envObj = WshShell.Environment("USER");
tmp=WshShell.ExpandEnvironmentStrings(envObj("TMP")); //獲取本用戶的臨時(shí)文件夾實(shí)際路徑
temp=WshShell.ExpandEnvironmentStrings(envObj("TEMP"));//獲取本用戶的臨時(shí)文件夾實(shí)際路徑

fso = new ActiveXObject("Scripting.FileSystemObject");
//fso.DeleteFolder(tmp,true ); //開(kāi)始刪除（如果臨時(shí)文件夾系統(tǒng)在用，會(huì)刪除失敗！）
//fso.DeleteFolder(temp,true );

提示：讀者可以自行添加需要?jiǎng)h除的其它文件夾，以滿足自己的實(shí)際情況

//第三步://創(chuàng)建以時(shí)間為后綴的備份文件夾
var newDate = new Date();
bakfolder="c://bak_"+newDate.getYear()+"年"+(newDate.getMonth()+1)+"月"+newDate.getDate()+"日_"+newDate.getHours()+"時(shí)"+newDate.getMinutes()+"分"+newDate.getSeconds()+"秒" ;
fso.CreateFolder(bakfolder);

提示：讀者也可以直接指定一個(gè)固定的文件夾，將備份文件放在固定文件夾中。

//第四步:開(kāi)始調(diào)用WinRAR進(jìn)行備份，直接壓縮備份的文件夾生成的壓縮文件放到剛建的備份文件夾中
//首先獲得要備份的文件夾：我的文檔和Outlook Express存放文件夾
//其中Outlook express存放文件夾每臺(tái)機(jī)子并不相同，請(qǐng)按一下辦法獲得：
//打開(kāi)Outlook express從菜單里選工具/選項(xiàng)/維護(hù)/存儲(chǔ)文件夾
mydoc="/""+WshShell.SpecialFolders("MyDocuments")+"/""; //獲取我的文檔實(shí)際路徑
Outlook="/"C://Documents and Settings//netbee//Local Settings//Application Data//Identities//{7F935084-E34D-4E22-86E9-10D00355B59D}//Microsoft//Outlook Express/"";
//開(kāi)始?jí)嚎s備份過(guò)程
IsSuccess = WshShell.Run ("WinRAR.exe a -r /""+bakfolder+"http://doc.rar/" "+mydoc ,1, true);
//IsSuccess = WshShell.Run ("WinRAR.exe a -r /""+bakfolder+"http://Outlook.rar/" "+Outlook ,1, true)

提示：讀者可以自行添加其它需要備份的目錄，以滿足自己的需求。另外，讀者如果在上一步將備份目錄修改為固定目錄，可以通過(guò)WinRAR的命令行參數(shù)實(shí)現(xiàn)備份文件的增量備份，以避免每次關(guān)機(jī)備份占用空間。由于篇幅所限，這里不一一列舉WinRAR的相關(guān)命令參數(shù)，請(qǐng)讀者自行查閱WinRAR幫助文件。
//第五步:在備份文件夾中創(chuàng)建報(bào)告，內(nèi)容包括：備份日期和時(shí)間，備份后文件名以及備份文件的大小。最后顯示報(bào)告內(nèi)容。
reportfile=bakfolder+"http://repot.txt";
tf = fso.CreateTextFile(reportfile, true);
tf.WriteLine("************備份報(bào)告**************") ;
tf.WriteLine("備份日期: "+newDate.toLocaleString()) ;
tf.WriteLine("我的文檔備份文件名："+bakfolder+"http://doc.rar 文件大小："+fso.GetFile(bakfolder+"http://doc.rar").size+"字節(jié)") ;
//tf.WriteLine("Outlook備份文件名："+bakfolder+"http://Outlook.rar 文件大小："+fso.GetFile(bakfolder+"http://Outlook.rar").size+"字節(jié)") ;
tf.WriteLine("---------------------------------") ;
tf.WriteLine("關(guān)閉此文件開(kāi)始關(guān)閉計(jì)算機(jī)") ;
tf.Close();
WshShell.Run("notepad.exe "+reportfile ,1, true); //顯示報(bào)告內(nèi)容
提示：生成報(bào)告后，該報(bào)告會(huì)顯示在屏幕上，只有用戶關(guān)閉報(bào)告，關(guān)機(jī)操作才會(huì)繼續(xù)。如需直接關(guān)機(jī)，請(qǐng)讀者參閱本文第一部分第二個(gè)實(shí)例。

最后，我們希望這個(gè)腳本在我們注銷或者關(guān)機(jī)時(shí)自動(dòng)執(zhí)行，只要在組策略中指定在注銷時(shí)使用這個(gè)腳本就可以了。具體方法是運(yùn)行“gpedit.msc”打開(kāi)組策略，選擇“本地計(jì)算機(jī)策略/用戶配置/Windows設(shè)置/腳本-（登錄/注銷）”，雙擊“注銷”打開(kāi)注銷屬性，并選擇“添加”，選擇“腳本名”旁邊的瀏覽，找到我們的腳本并確定，最后關(guān)閉組策略。現(xiàn)在關(guān)機(jī)試試吧！
html教程

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。

上一篇：用vbs判斷一個(gè)日期是否在指定的時(shí)段內(nèi)

下一篇：VBS教程：VBScript 基礎(chǔ)-使用循環(huán)語(yǔ)句