删除以下目录下的以.cll文件为扩展名的所有文件(可以修改扩展名,删除对应的文件)
C:/Documents and Settings/系统登陆名/Local Settings/Temp
下面是第一种方法,比较复杂:
function test(){
var WshShell =new ActiveXObject("WScript.Shell");
//fso为FileSystemObject;
//f为Folder对象;
//fc为要赋值为 Enumerator 对象的变量名
//f1为File对象
//s判断是否删除,s=1表示删除成功
var fso,f,fc,f1,s=0;
fso = new ActiveXObject("Scripting.FileSystemObject");
//根据指定路径中的文件夹返回相应的 Folder 对象
//WshShell.ExpandEnvironmentStrings("%USERNAME%")获取当前系统登陆用户名
f = fso.GetFolder("c://Documents and Settings//"+WshShell.ExpandEnvironmentStrings("%USERNAME%")+"//Local Settings//Temp");
//返回一个 Files 集合,由指定文件夹中包含的所有 File 对象组成,包括设置了隐藏和系统文件属性的文件。
fc = new Enumerator(f.files);
//循环判断
for (; !fc.atEnd(); fc.moveNext())
{
//如果为CLL 文件
if(fso.getFile(fc.item()).type=="CLL 文件")
{
//根据指定的路径(fc.item())中的文件返回相应的 File 对象。
f1 = fso.GetFile(fc.item());
//执行删除
f1.Delete();
//删除标记
s=1;
}
}
if(s==1){
alert("删除成功");
}else{
alert(".cll文件不存在");
}
}
// --></mce:script>
<body>
<input value="测试" type="button" onclick="test();">
</body>
</html>
下面是第二种方法:
function test(){
var wshShell =new ActiveXObject("WScript.Shell");
//username 存放登陆用户名
var username = wshShell.ExpandEnvironmentStrings("%USERNAME%");
//fso用来处理文件和文件夹
var fso = new ActiveXObject("Scripting.FileSystemObject");
//path删除文件的路径
var path = "c://Documents and Settings//"+username+"//Local Settings//Temp";
//如果指定的文件夹存在则返回 True ;否则返回 False
if(fso.FolderExists(path))
{
try{
fso.DeleteFile(path+"//*.cll");
alert("删除成功!");
}catch(e){
alert(".CLL" + e.message);
}
}else
{
alert("不存在这个目录:"+path);
}
}
// --></mce:script>
</html>
下边是用javascript中获取机器名和window登录名
var WshShell =new ActiveXObject("WScript.Shell");
alert("计算机名 = "+ WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%"));
alert("登录用户名 = "+ WshShell.ExpandEnvironmentStrings("%USERNAME%"));
// --></mce:script>
<mce:script language=javascript><!--
var wshNetwork = new ActiveXObject("WScript.Network");
alert("域名 = "+ wshNetwork.UserDomain);
alert("计算机名 = "+ wshNetwork.ComputerName);
alert("登录用户名 = "+ wshNetwork.UserName);
// --></mce:script>
要运行上述脚本,需要放宽IE的权限
需要下面选项内容
工具>Internet选项>安全>Internet>自定义级别>ActiveX控件和插件>对没有标记为安全的ActiveX控件进行初始化和脚本运行
设置为启运
//获取计算机名
var wsh=new ActiveXObject("WScript.Network");
alert(wsh.ComputerName);
有什么不对的地方大家评论下吧