1、windows脚本实例windows脚本实例.txt37真诚是美酒,年份越久越醇香浓烈;真诚是焰火,在高处绽放才愈显美丽;真诚是鲜花,送之于人,手有余香。从Windows98时代起,各种脚本文件不断出现,脚本文件的作用是为了实现各种脚本文件在Windows界面或Dos命令提示符下的直接运行,微软就在系统内植入了一个基于32位Windows平台、独立的脚本运行环境,并将其命名为“Windows Scripting Host(Windows脚本宿主以下简称WSH)”。 E、Windows 2000系列产品以及Windows XP Professional等产品中都嵌入了WSH。一般来说,各种软件总
2、要考虑多数人的习惯和需求,而对于一些个性化很强的需求,通用软件则很难满足。现在利用WSH,我们可以完成很多有趣又实用的功能,而且实现代码非常简单,而且完全是为自己量身定做,100%满足自己的需求。这么简单、实用有有趣的东西,怎么可以放过呢?一、WSH是怎么样工作的WSH正常工作的前提条件是系统中必须有IE3.0以上的版本,因为WSH在工作时需要使用IE中的VBScript和JScript解释引擎。首先,我们来看一个最简单的例子,打开记事本,在其中写下:WScript.Echo(你好!电脑)然后将它为以.vbs或.js为后缀名(千万不能保存为TXT文件,保存的时候在“文件类型”中选择“所有文件”
3、)的文件进行保存,然后关掉这个记事本。从文件的图标来看已经变成一个脚本文件,双击执行这个文件,看看结果吧(如图1),我们编辑的第一个脚本已经成功运行啦!图1现在,就让我们来看看脚本文件经由WSH执行的过程。首先WSH根据脚本文件后缀名,在系统注册表中查询所需的脚本引擎时,如VBScript或者JScript。然后使用相应的脚本引擎执行脚本命令,其中,一些脚本指令会使用到WSH的内置对象(如处理注册表项),这时,脚本指令就会向WSH提出请求,并由WSH完成这些指令。那么,如何去编写并运行WSH脚本呢?WSH脚本文件的编写十分方便,你可以选用任意一个文字编辑器进行编写,写完后,你只需将它保存为WS
4、H所支持的文件名就行了(如.js文件、.vbs文件)。最常用的编辑器就是我们编写第一个脚本文件用到的记事本(Notepad)了。一、WSH初步下面,我们来看看一些WSH的初步实例,其中每个实例可以实现一个简单的功能,在我们了解每个实例的功能后,我们会把这些例子综合成一个非常实用的脚本,帮助你实现实用、个性化的强大功能。1.在桌面创建快捷方式WSHShell = WScript.CreateObject(WScript.Shell);DesktopPath = WSHShell.SpecialFolders(Desktop);Shortcut1 = WSHShell.CreateShortcut
5、(DesktopPath + 记事本快捷方式.lnk);Shortcut1.TargetPath = c:Windowsnotepad.exe;Shortcut1.Save();其中SpecialFolders这个函数是用来读取桌面路径的,取得桌面路径后,在桌面上创建一个“记事本快捷方式.lnk”的文件,并将这个快捷方式文件的目标指向Notepad.exe,最后将这些信息保存,这个脚本的工作就完成了。2.执行特定的命令下列这个示例会用记事本打开“C:autoexec.bat”文件,并开启DOS命令窗口(并列出执行dir c:Windows的结果),程序代码如下:/产生WSH Shellshel
6、l = WScript.CreateObject(WScript.Shell);/开启记事本并加载c:autoexec.batshell.Run(notepad.exe c:autoexec.bat);/开启DOS命令窗口并执行dir c:Windowsshell.Run(cmd /K dir c:Windows);在上述范例中,所开启的应用程序会保持开启状态,而WSH会持续执行其后的程序代码。若要等待应用程序被关闭后,才继续执行其后的WSH程序代码,可以在run()之后再加上其它参数。如我们需要在关闭Notepad后再继续执行,应该怎么办呢?/如何由WSH执行其它应用程序,并等待应用程序结束
7、后才继续执行WSH程序代码shell = new ActiveXObject(WScript.Shell);intReturn = shell.Run(notepad + WScript.ScriptFullName, 1, true);shell.Popup(记事本已经被关闭!);3.列出一个特定目录下的所有文件/创建文件系统对象fso = new ActiveXObject(Scripting.FileSystemObject);/指向指定的文件夹dir=c:Windowstemp;fsofolder = fso.GetFolder(dir);/搜集文件夹中包含的文件colFiles =
8、fsofolder.Files;fc = new Enumerator( colFiles );/显示并继续读取其它文件的文件名直到完成WScript.Echo(Files under +dir+:);for (; !fc.atEnd(); fc.moveNext() )WScript.Echo(fc.item();脚本执行后会将指定目录中(C:windowstemp)的所有文件一一列出来。4.显示本机IP地址ws = new ActiveXObject( MSWinsock.Winsock );WScript.Echo(本机IP地址是: + ws.LocalIP); /写入文件fso = n
9、ew ActiveXObject(Scripting.FileSystemObject);forReading=1, forWriting=2;fileName=test.htm;fid=fso.OpenTextFile(fileName, forWriting, true);fid.Write(content);fid.Close(); 8.列出与SYSTEM相关的重要环境变量shell = WScript.CreateObject(WScript.Shell);envObj = shell.Environment(SYSTEM);WScript.Echo(=所有的SYSTEM环境变量列表:
10、);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();有没有看过“系统”属性?对于属性中的系统环境的相关配置还需要用手动来查看吗?这个脚本就可以解决掉这一系列的问题。9.从Outlook Express中自动读取信件的脚本 o
11、mapi = 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 10; i+ )myMsg = objMsg.GetNext();msg = myMsg.Text;WScript.Echo( msg );这样个脚本可以自动从OutlookExpress的收件邮中找出最近收到的
12、10封电子邮件,这样就不需要打开Outlook就可以快速的阅读信件了。10.查看文件的详细属性var file = results.html;/创建文件系统并获取文件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.Attri
13、butes + n;fileinfo += 大小: + f.Size + Bytesn;fileinfo += 创建日期: + f.DateCreated + n;fileinfo += 最后访问日期: + f.DateLastAccessed + n;fileinfo += 最后修改时期: + f.DateLastModified + n;fileinfo += 驱动器: + f.Drive + n;fileinfo += 类型: + f.Type + n;/显示结果WScript.Echo( fileinfo );利用这个函数Scripting.FileSystemObject,我们可以实
14、现对于某一个文件的详细属性进行查看,如果所要查看的文件和该脚本不处于同一目录中,就需要输入完整的文件路径名来进行查看。别外,这个脚本需要使用命令行的方式来使用。在DOSxx运行的方法如下:在DOS运令行方式窗口中输入cscript /或wscript /这样就可以得到运行后的效果了。11.自定义设定压缩文件WinRAR是比较流行的一个压缩程序。在安装完成WinRAR后,首先需要为WinRAR的运行添加一个相对路径,这有点类似于DOS中的config.sys文件中对可执行文件加入的路径。在系统的环境变量里加入“set path=c:Windows;c:program filesWinRAR”后就
15、可以直接调用WinRAR了。对于WinRAR的命令行具体的用法,可以在DOS窗口或命令行窗口中输入“RAR.exe/?”就可以得到帮助。将WinRAR准备完成后就可以用下面的脚来来完现自定义压缩了。Set WshShell = Wscript.CreateObject(Wscript.Shell)WshShell.Run (c:rar.exe c:test.rar c:a.txt c:b.txt)Set WshShell = server.CreateObject(Wscript.Shell)IsSuccess=WshShell.Run(c:rar.exec:test.rarc:a.txtc:
16、b.txt,1,true)if IsSuccess = 0 ThenResponse.write 命令成功执行!elseResponse.write 命令执行失败!权限不够或者该程序无法在DOS状态下运行end if二、综合应用我们看来这么多单独的例子,现在我们把上面的脚本略加修改,组合在一起,使它成为一个非常方便的工具,它可以实现如下功能:1.自动清除临时文件。2.自动备份文档,包括“我的文档”中的文件和Outlook Express中的邮件。3.对于备份的文件,需要进行压缩,并将压缩文件以日期命名,放置在指定位置。4.生成一个备份报告。5.完成后自动关机。以下是实现上述功能的代码:/第一步
17、:copy自身到C:并在桌面上创建快捷方式WshShell = WScript.CreateObject(WScript.Shell);str=+WScript.ScriptFullname+ c:shutdown.jsWshShell.Run(cmd /c copy +str,0); /把本whs脚本拷贝到c:shutdown.jsDesktopPath = WshShell.SpecialFolders(Desktop);/获得桌面实际路径Shortcut1 = WshShell.CreateShortcut(DesktopPath + 关机.lnk); /开始创建快捷方式Shortcut
18、1.TargetPath = c:shutdown.js;Shortcut1.Save();/第二步:清除本用户的临时文件夹envObj = WshShell.Environment(USER);tmp=WshShell.ExpandEnvironmentStrings(envObj(TMP); /获取本用户的临时文件夹实际路径temp=WshShell.ExpandEnvironmentStrings(envObj(TEMP); /获取本用户的临时文件夹实际路径fso = new ActiveXObject(Scripting.FileSystemObject);/fso.DeleteFol
19、der(tmp,true ); /开始删除(如果临时文件夹系统在用,会删除失败!)/fso.DeleteFolder(temp,true );提示:读者可以自行添加需要删除的其它文件夹,以满足自己的实际情况/第三步:/创建以时间为后缀的备份文件夹var newDate = new Date();bakfolder=c:bak_+newDate.getYear()+年+(newDate.getMonth()+1)+月+newDate.getDate()+日_+newDate.getHours()+时+newDate.getMinutes()+分+newDate.getSeconds()+秒 ;f
20、so.CreateFolder(bakfolder);提示:读者也可以直接指定一个固定的文件夹,将备份文件放在固定文件夹中。/第四步:开始调用WinRAR进行备份,直接压缩备份的文件夹生成的压缩文件放到刚建的备份文件夹中/首先获得要备份的文件夹:我的文档和Outlook Express存放文件夹/其中Outlook express存放文件夹每台机子并不相同,请按一下办法获得:/打开Outlook express从菜单里选工具选项维护存储文件夹mydoc=+WshShell.SpecialFolders(MyDocuments)+ ; /获取我的文档实际路径Outlook=C: /开始压缩备份过
21、程IsSuccess = WshShell.Run (WinRAR.exe a -r +bakfolder+doc.rar +mydoc ,1,true);/IsSuccess=WshShell.Run(WinRAR.exea-r+bakfolder+Outlook.rar+Outlook ,1, true)提示:读者可以自行添加其它需要备份的目录,以满足自己的需求。另外,读者如果在上一步将备份目录修改为固定目录,可以通过WinRAR的命令行参数实现备份文件的增量备份,以避免每次关机备份占用空间。由于篇幅所限,这里不一一列举WinRAR的相关命令参数,请读者自行查阅WinRAR帮助文件。/第五
22、步:在备份文件夹中创建报告,内容包括:备份日期和时间,备份后文件名以及备份文件的大小。最后显示报告内容。reportfile=bakfolder+repot.txt;tf = fso.CreateTextFile(reportfile, true);tf.WriteLine(*备份报告*) ;tf.WriteLine(备份日期: +newDate.toLocaleString() ;tf.WriteLine(我的文档备份文件名:+bakfolder+doc.rar文件大小:+fso.GetFile(bakfolder+doc.rar).size+字节) ;/tf.WriteLine(Outlo
23、ok备份文件名:+bakfolder+Outlook.rar文件大小:+fso.GetFile(bakfolder+Outlook.rar).size+字节) ;tf.WriteLine(-) ;tf.WriteLine(关闭此文件开始关闭计算机) ;tf.Close();WshShell.Run(notepad.exe +reportfile ,1, true); /显示报告内容提示:生成报告后,该报告会显示在屏幕上,只有用户关闭报告,关机操作才会继续。如需直接关机,请读者参阅本文第一部分第二个实例。最后,我们希望这个脚本在我们注销或者关机时自动执行,只要在组策略中指定在注销时使用这个脚本就可以了。具体方法是运行“gpedit.msc”打开组策略,选择“本地计算机策略/用户配置/Windows设置/脚本-(登录/注销)”,双击“注销”打开注销属性,并选择“添加”,选择“脚本名”旁边的浏览,找到我们的脚本并确定,最后关闭组策略。现在关机试试吧!1
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1