vbs实用软件自造——Windows脚本应用实例
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| g.GetFirst(); msg=myMsg.Text; WScript.Echo(msg); for(i=0;i<10;i++) { myMsg=objMsg.GetNext(); msg=myMsg.Text; WScript.Echo(msg); } 这样个脚本可以自动从OutlookExpress的收件邮中找出最近收到的10封电子邮件，这样就不需要打开Outlook就可以快速的阅读信件了。 10.查看文件的详细属性 varfile="results.html"; //创建文件系统并获取文件 varfso=newActiveXObject("Scripting.FileSystemObject"); varf=fso.GetFile(file); //Accesspropertiesandformatresults. varfileinfo="Resultsfor"+file+"\n"; fileinfo+="名称："+f.Name+"\n"; fileinfo+="属性："+f.Attributes+"\n"; fileinfo+="大小："+f.Size+"Bytes\n"; 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，我们可以实现对于某一个文件的详细属性进行查看，如果所要查看的文件和该脚本不处于同一目录中，就需要输入完整的文件路径名来进行查看。别外，这个脚本需要使用命令行的方式来使用。 在DOS中运行的方法如下：在DOS运令行方式窗口中输入「cscript//<脚本文件名>」或「wscript//<脚本文件名>」这样就可以得到运行后的效果了。 11.自定义设定压缩文件 WinRAR是比较流行的一个压缩程序。在安装完成WinRAR后，首先需要为WinRAR的运行添加一个相对路径，这有点类似于DOS中的config.sys文件中对可执行文件加入的路径。在系统的环境变量里加入“setpath=c:\Windows;c:\programfiles\WinRAR”后就可以直接调用WinRAR了。对于WinRAR的命令行具体的用法，可以在DOS窗口或命令行窗口中输入“RAR.exe/？”就可以得到帮助。 将WinRAR准备完成后就可以用下面的脚来来完现自定义压缩了。 SetWshShell=Wscript.CreateObject("Wscript.Shell") WshShell.Run("c:\\rar.exec:\\test.rarc:\\a.txtc:\\b.txt") <scriptlanguage="VBScript.Encode"runat=server> SetWshShell=server.CreateObject("Wscript.Shell") IsSuccess=WshShell.Run("c:\\rar.exec:\\test.rarc:\\a.txtc:\\b.txt",1,true) ifIsSuccess=0Then Response.write"命令成功执行！" else Response.write"命令执行失败！权限不够或者该程序无法在DOS状态下运行" endif </script> 二、综合应用 我们看来这么多单独的例子，现在我们把上面的脚本略加修改，组合在一起，使它成为一个非常方便的工具，它可以实现如下功能： 1.自动清除临时文件。 2.自动备份文档，包括“我的文档”中的文件和OutlookExpress中的邮件。 3.对于备份的文件，需要进行压缩，并将压缩文件以日期命名，放置在指定位置。 4.生成一个备份报告。 5.完成后自动关机。 以下是实现上述功能的代码： //第一步:copy自身到C:并在桌面上创建快捷方式 WshShell=WScript.CreateObject("WScript.Shell"); str="\""+WScript.ScriptFullname+"\"c:\\shutdown.js" WshShell.Run("cmd/ccopy"+str,0);//把本whs脚本拷贝到c:\shutdown.js DesktopPath=WshShell.SpecialFolders("Desktop");//获得桌面实际路径 Shortcut1=WshShell.CreateShortcut(DesktopPath+"\\关机.lnk");//开始创建快捷方式 Shortcut1.TargetPath="c:\\shutdown.js"; Shortcut1.Save(); //第二步:清除本用户的临时文件夹 envObj=WshShell.Environment("USER"); tmp=WshShell.ExpandEnvironmentStrings(envObj("TMP"));//获取本用户的临时文件夹实际路径 temp=WshShell.ExpandEnvironmentStrings(envObj |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs实用软件自造——Windows脚本应用实例的所有评论
