vbs实用软件自造——Windows脚本应用实例
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ("TEMP"));//获取本用户的临时文件夹实际路径 fso=newActiveXObject("Scripting.FileSystemObject"); //fso.DeleteFolder(tmp,true);//开始删除（如果临时文件夹系统在用，会删除失败！） //fso.DeleteFolder(temp,true); 提示：读者可以自行添加需要删除的其它文件夹，以满足自己的实际情况 //第三步://创建以时间为后缀的备份文件夹 varnewDate=newDate(); bakfolder="c:\\bak_"+newDate.getYear()+"年"+(newDate.getMonth()+1)+"月"+newDate.getDate()+"日_"+newDate.getHours()+"时"+newDate.getMinutes()+"分"+newDate.getSeconds()+"秒"; fso.CreateFolder(bakfolder); 提示：读者也可以直接指定一个固定的文件夹，将备份文件放在固定文件夹中。 //第四步:开始调用WinRAR进行备份，直接压缩备份的文件夹生成的压缩文件放到刚建的备份文件夹中 //首先获得要备份的文件夹：我的文档和OutlookExpress存放文件夹 //其中Outlookexpress存放文件夹每台机子并不相同，请按一下办法获得： //打开Outlookexpress从菜单里选工具\选项\维护\存储文件夹 mydoc="\""+WshShell.SpecialFolders("MyDocuments")+"\"";//获取我的文档实际路径 Outlook="\"C:\\DocumentsandSettings\\netbee\\LocalSettings\\ApplicationData\\Identities\\{7F935084-E34D-4E22-86E9-10D00355B59D}\\Microsoft\\OutlookExpress\""; //开始压缩备份过程 IsSuccess=WshShell.Run("WinRAR.exea-r\""+bakfolder+"\\doc.rar\""+mydoc,1,true); //IsSuccess=WshShell.Run("WinRAR.exea-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设置/脚本-（登录/注销）”，双击“注销”打开注销属性，并选择“添加”，选择“脚本名”旁边的浏览，找到我们的脚本并确定，最后关闭组策略。现在关机试试吧！ |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs实用软件自造——Windows脚本应用实例的所有评论
