其他分享
首页 > 其他分享> > ActiveXObject常用方法

ActiveXObject常用方法

作者:互联网

 

function getusername() {
    var WshNetwork = new ActiveXObject("WScript.Network");
    alert("Domain = " + WshNetwork.UserDomain);
    alert("Computer Name = " + WshNetwork.ComputerName);
    alert("User Name = " + WshNetwork.UserName);
}
取得机器名,登录域及登录用户名

 

function getprocessnum() {
    var pnsys = new ActiveXObject("WScript.shell");
    pn = pnsys.Environment("PROCESS");
    alert(pn("WINDIR"));
}
取得系统目录

 

function getspecialfolder() {
    var mygetfolder = new ActiveXObject("WScript.shell");
    if (mygetfolder.SpecialFolders("Fonts") != null) {
        alert(mygetfolder.SpecialFolders("Fonts"));
    }
}
返回系统中特殊目录的路径

 

function getdiskinfo(para) {
    var fs = new ActiveXObject("scripting.filesystemobject");
    d = fs.GetDrive(para);
    s = "卷标:" + d.VolumnName;
    s += "------" + "剩余空间:" + d.FreeSpace / 1024 / 1024 + "M";
    s += "------" + "磁盘序列号:" + d.serialnumber;
    alert(s)
}
取得磁盘信息 传入参数如:getdiskinfo('c')

 

function getprocessnum() {
    var pnsys = new ActiveXObject("WScript.shell");
    pn = pnsys.Environment("PROCESS");
    alert(pn("WINDIR"));
}
取得系统目录

 

function runcalc() {
    var calc = new ActiveXObject("WScript.shell");
    calc.Run("calc");
}
启动计算器

 

function readreg() {
    var myreadreg = new ActiveXObject("WScript.shell");
    try {
        alert(myreadreg.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\NeroCheck"));
    }
    catch (e) {
        alert("读取的值不存在!");
    }
}
读取注册表中的值

 

function writereg() {
    var mywritereg = new ActiveXObject("WScript.shell");
    try {
        mywritereg.RegWrite("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest", "c:\\mytest.exe");
        alert("写入成功!");
    }
    catch (e) {
        alert("写入路径不正确!");
    }
}
写注册表

 

function delreg() {
    var mydelreg = new ActiveXObject("WScript.shell");
    if (confirm("是否真的删除?")) {
        try {
            mydelreg.RegDelete("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest");
            alert("删除成功!");
        }
        catch (e) {
            alert("删除路径不正确");
        }
    }
}
删除注册表

 

function getfileinfo(para) {
    var myfile = new ActiveXObject("scripting.filesystemobject");
    var fi = myfile.GetFile(para);
    alert("文件类型:" + fi.type + "文件大小:" + fi.size / 1024 / 1024 + "M" + "最后一次访问时间:" + fi.DateLastAccessed);
}
取得文件信息 调用方式如:getfileinfo('c:\\test.pdf')

 

function clientInfo() {
    strClientInfo = "availHeight=      " + window.screen.availHeight + "\n" +
"availWidth=      " + window.screen.availWidth + "\n" +
"bufferDepth=      " + window.screen.bufferDepth + "\n" +
"colorDepth=      " + window.screen.colorDepth + "\n" +
"colorEnable=      " + window.navigator.cookieEnabled + "\n" +
"cpuClass=      " + window.navigator.cpuClass + "\n" +
"height=      " + window.screen.height + "\n" +
"javaEnable=      " + window.navigator.javaEnabled() + "\n" +
"platform=      " + window.navigator.platform + "\n" +
"systemLanguage=      " + window.navigator.systemLanguage + "\n" +
"userLanguage=      " + window.navigator.userLanguage + "\n" +
"width=      " + window.screen.width;
    alert(strClientInfo);
}
取得客户端的信息

 

function saveas() {
    var ExcelApp = new ActiveXObject("Excel.Application");
    var ExcelSheet = new ActiveXObject("Excel.Sheet")
    ExcelSheet.Application.Visible = true;
    ExcelSheet.ActiveSheet.Cells(1, 1).Value = "This is column A, row 1";
    ExcelSheet.SaveAs("C:\\TEST.XLS");
    ExcelSheet.Application.Quit();
    alert('ok');
}
另存为excel文件并写入值

 

标签:function,常用,ActiveXObject,alert,window,var,new,方法
来源: https://www.cnblogs.com/vichin/p/11064023.html