ActiveXObject 留以备用

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