vbs实用软件自造——Windows脚本应用实例
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| epad"+WScript.ScriptFullName,1,true); shell.Popup("记事本已经被关闭！"); 3.列出一个特定目录下的所有文件 //创建文件系统对象 fso=newActiveXObject("Scripting.FileSystemObject"); //指向指定的文件夹 dir="c:\\Windows\\temp"; fsofolder=fso.GetFolder(dir); //搜集文件夹中包含的文件 colFiles=fsofolder.Files; fc=newEnumerator(colFiles); //显示并继续读取其它文件的文件名直到完成 WScript.Echo("Filesunder\""+dir+"\":"); for(;!fc.atEnd();fc.moveNext()){ WScript.Echo(fc.item()); } 脚本执行后会将指定目录中（C:\windows\temp）的所有文件一一列出来。 4.显示本机IP地址 ws=newActiveXObject("MSWinsock.Winsock"); WScript.Echo("本机IP地址是："+ws.LocalIP); 通过MSWinsock.Winsock这个函数将IP地址收集起来并进行显示。 5.列出磁盘驱动器及其相关性质 fso=newActiveXObject("Scripting.FileSystemObject"); driveTypeNames=["未知类型","可移动磁盘","硬盘","网络磁盘驱动器","光盘","虚拟磁盘"]; e=newEnumerator(fso.Drives); s=""; for(;!e.atEnd();e.moveNext()){ x=e.item(); WScript.Echo(x.DriveLetter+":") WScript.Echo("磁盘类型："+x.DriveType+"("+driveTypeNames[x.DriveType]+")"); WScript.Echo("共享名称："+x.ShareName); WScript.Echo("磁盘是否就绪："+x.IsReady); if(x.IsReady){ WScript.Echo("卷标："+x.VolumeName); WScript.Echo("空间大小："+x.AvailableSpace+"字节"); } } 执行了这个脚本以后会显示出该磁盘驱动器的类型、卷标、空间大小、共享名称等相关信息。 6.显示当前时间 today=newDate(); WScript.Echo("电脑迷为您报时："+today.toLocaleString()); 除了这样的方法之外，还有一种比较复杂一点的方法，可以显示上、下午时间 functiongetTime(){ today=newDate(); hour=today.getHours(); minute=today.getMinutes(); second=today.getSeconds(); prepand=(hour>=12)?"下午":"上午"; hour=(hour>=12)?hour-12:hour; str="现在时间是"+prepand+hour+"点"+minute+"分"+second+"秒"; return(str); } WScript.Echo(getTime()); 7.保存当前的网页 //抓取一个网页，并将其内容存入一个文件 inet=newActiveXObject("InetCtls.Inet"); //下载的网址 inet.Url="http://www.pcfans.net/index.htm"; //设置超时 inet.RequestTimeOut=20; //下载文件 WScript.Echo("Downloading\""+inet.Url+"\"..."); content=inet.OpenURL(); //写入文件 fso=newActiveXObject("Scripting.FileSystemObject"); forReading=1,forWriting=2; fileName="test.htm"; fid=fso.OpenTextFile(fileName,forWriting,true); fid.Write(content); fid.Close(); WScript.Echo("从「"+inet.Url+"」抓到的內容已被存入「"+fileName+"」！"); 8.列出与SYSTEM相关的重要环境变量 shell=WScript.CreateObject("WScript.Shell"); envObj=shell.Environment("SYSTEM"); WScript.Echo("======所有的SYSTEM环境变量列表："); WScript.Echo("No.ofenv.variables="+envObj.length); varEnum=newEnumerator(envObj) for(Enum.moveFirst();!Enum.atEnd();Enum.moveNext()) //WScript.Echo(Enum.item()+"===>"+envObj(Enum.item())); WScript.Echo(Enum.item()); 有没有看过“系统”属性？对于属性中的系统环境的相关配置还需要用手动来查看吗？这个脚本就可以解决掉这一系列的问题。 9.从OutlookExpress中自动读取信件的脚本 varprofile="MicrosoftOutlookInternetSettings"; omapi=newActiveXObject("MAPI.Session"); omapi.Logon(profile); objFolder=omapi.Inbox; objMsg=objFolder.Messages; myMsg=objMs |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs实用软件自造——Windows脚本应用实例的所有评论
