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

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

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 = new Date();
WScript.Echo("电脑迷为您报时:"+today.toLocaleString());
除了这样的方法之外,还有一种比较复杂一点的方法,可以显示上、下午时间
function getTime() {
today = new Date();
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=new ActiveXObject("InetCtls.Inet");
// 下载的网址
inet.Url="http://www.pcfans.net/index.htm";
// 设置超时
inet.RequestTimeOut=20;
// 下载文件
WScript.Echo("Downloading ""+inet.Url+""...");
content = inet.OpenURL();

// 写入文件
fso = new ActiveXObject("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. 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中自动读取信件的脚本
var profile = "Microsoft Outlook Internet Settings";