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文件并写入值