javascript ActiveXObject javascript取得机器名,用户名,读写注册表,启动应用程序

来源:互联网 发布:mac系统符号对应按键 编辑:程序博客网 时间:2024/06/05 10:12
1.javascript取得机器名,用户名,读写注册表,启动应用程序  2.//javascript有个特殊的对象ActiveXObject,通过它可以访问windows的本地文件系统和应用程序,  3.比如:有的时候我们需要得到用户的机器名,用户名,得到某个文件的信息,或者读写注册表,或者启动计算器、outlook等应用程序。  4.  5.下面是一些常用的方法,每个都经过了测试。  6.<script language="JavaScript">  7.//取得机器名,登录域及登录用户名  8.function getusername()  9.{  10.var WshNetwork = new ActiveXObject("WScript.Network");  11.alert("Domain = " + WshNetwork.UserDomain);  12.alert("Computer Name = " + WshNetwork.ComputerName);  13.alert("User Name = " + WshNetwork.UserName);  14.}  15.  16.//取得系统目录  17.function getprocessnum()  18.{  19.        var pnsys=new ActiveXObject("WScript.shell");  20.        pn=pnsys.Environment("PROCESS");  21.        alert(pn("WINDIR"));  22.}  23.//返回系统中特殊目录的路径  24.function getspecialfolder()  25.{  26.    var mygetfolder=new ActiveXObject("WScript.shell");  27.    if(mygetfolder.SpecialFolders("Fonts")!=null)  28.    {  29.        alert(mygetfolder.SpecialFolders("Fonts"));  30.     }  31.}  32.//取得磁盘信息 传入参数如:getdiskinfo('c')  33.function getdiskinfo(para)  34.{  35.    var fs=new ActiveXObject("scripting.filesystemobject");  36.    d=fs.GetDrive(para);  37.    s="卷标:" + d.VolumnName;  38.    s+="------" + "剩余空间:" + d.FreeSpace/1024/1024 + "M";  39.    s+="------" + "磁盘序列号:" + d.serialnumber;  40.    alert(s)  41.}  42.//取得系统目录  43.function getprocessnum()  44.{  45.        var pnsys=new ActiveXObject("WScript.shell");  46.        pn=pnsys.Environment("PROCESS");  47.        alert(pn("WINDIR"));  48.}  49.//启动计算器  50.function runcalc()  51.{  52.    var calc=new ActiveXObject("WScript.shell");  53.    calc.Run("calc");  54.}  55.//读取注册表中的值  56.function readreg()  57.{  58.    var myreadreg=new ActiveXObject("WScript.shell");  59.    try{  60.        alert(myreadreg.RegRead             ("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\NeroCheck"));  61.     }  62.    catch(e)  63.    {  64.        alert("读取的值不存在!");  65.     }  66.}  67.//写注册表  68.function writereg()  69.{  70.    var mywritereg=new ActiveXObject("WScript.shell");  71.    try{  72.        mywritereg.RegWrite("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest","c:\\mytest.exe");  73.        alert("写入成功!");  74.     }  75.    catch(e)  76.    {  77.        alert("写入路径不正确!");  78.     }  79.}  80.//删除注册表  81.function delreg()  82.{  83.    var mydelreg=new ActiveXObject("WScript.shell");  84.    if(confirm("是否真的删除?"))  85.    {  86.        try{  87.    mydelreg.RegDelete("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest");  88.    alert("删除成功!");  89.}  90.catch(e)  91.{  92.    alert("删除路径不正确");  93.}  94.     }  95.}  96.//取得文件信息    调用方式如:getfileinfo('c:\\test.pdf')  97.function getfileinfo(para)  98.{  99.    var myfile=new ActiveXObject("scripting.filesystemobject");  100.    var fi=myfile.GetFile(para);  101.    alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed);  102.}  103.//取得客户端的信息  104.function clientInfo()  105.{  106.    strClientInfo="availHeight=      "+window.screen.availHeight+"\n"+  107."availWidth=      "+window.screen.availWidth+"\n"+  108."bufferDepth=      "+window.screen.bufferDepth+"\n"+  109."colorDepth=      "+window.screen.colorDepth+"\n"+  110."colorEnable=      "+window.navigator.cookieEnabled+"\n"+  111."cpuClass=      "+window.navigator.cpuClass+"\n"+  112."height=      "+window.screen.height+"\n"+  113."javaEnable=      "+window.navigator.javaEnabled()+"\n"+  114."platform=      "+window.navigator.platform+"\n"+  115."systemLanguage=      "+window.navigator.systemLanguage+"\n"+  116."userLanguage=      "+window.navigator.userLanguage+"\n"+  117."width=      "+window.screen.width;  118.    alert(strClientInfo);     119.}  120.  121.</script>  122.  123.//另存为excel文件并写入值  124.function saveas(){  125.var ExcelApp = new ActiveXObject("Excel.Application");  126.var ExcelSheet = new ActiveXObject("Excel.Sheet")  127. ExcelSheet.Application.Visible = true;  128. ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";  129. ExcelSheet.SaveAs("C:\\TEST.XLS");  130. ExcelSheet.Application.Quit();  131. alert('ok');  132.}