vbs实用软件自造——Windows脚本应用实例

2019-01-16 11:49:42于海丽

//其中Outlook express存放文件夹每台机子并不相同,请按一下办法获得:
//打开Outlook express从菜单里选 工具选项维护存储文件夹
mydoc="""+WshShell.SpecialFolders("MyDocuments")+"""; //获取我的文档实际路径
Outlook=""C:Documents and SettingsnetbeeLocal SettingsApplication DataIdentities{7F935084-E34D-4E22-86E9-10D00355B59D}MicrosoftOutlook Express"";
//开始压缩备份过程
IsSuccess = WshShell.Run ("WinRAR.exe a -r ""+bakfolder+"doc.rar" "+mydoc ,1, true);
//IsSuccess = WshShell.Run ("WinRAR.exe a -r ""+bakfolder+"Outlook.rar" "+Outlook ,1, true)

提示:读者可以自行添加其它需要备份的目录,以满足自己的需求。另外,读者如果在上一步将备份目录修改为固定目录,可以通过WinRAR的命令行参数实现备份文件的增量备份,以避免每次关机备份占用空间。由于篇幅所限,这里不一一列举WinRAR的相关命令参数,请读者自行查阅WinRAR帮助文件。
//第五步:在备份文件夹中创建报告,内容包括:备份日期和时间,备份后文件名以及备份文件的大小。最后显示报告内容。
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("Outlook备份文件名:"+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设置/脚本-(登录/注销)”,双击“注销”打开注销属性,并选择“添加”,选择“脚本名”旁边的浏览,找到我们的脚本并确定,最后关闭组策略。现在关机试试吧!