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)
}

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);
}

function clientInfo() {
    strClientInfo = "availHeight=      " + window.screen.availHeight + "
" +
"availWidth=      " + window.screen.availWidth + "
" +
"bufferDepth=      " + window.screen.bufferDepth + "
" +
"colorDepth=      " + window.screen.colorDepth + "
" +
"colorEnable=      " + window.navigator.cookieEnabled + "
" +
"cpuClass=      " + window.navigator.cpuClass + "
" +
"height=      " + window.screen.height + "
" +
"javaEnable=      " + window.navigator.javaEnabled() + "
" +
"platform=      " + window.navigator.platform + "
" +
"systemLanguage=      " + window.navigator.systemLanguage + "
" +
"userLanguage=      " + window.navigator.userLanguage + "
" +
"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');
}