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

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