ActiveXObject函数详解

什么是 ActiveX 控件？

ActiveX 控件广泛用于 Internet。它们可以通过提供视频、动画内容等来增加浏览的乐趣。不过，这些程序可能出问题或者向您提供不需要的内容。在某些情况下，这些程序可被用来以您不允许的方式从计算机收集信息、破坏您的计算机上的数据、在未经您同意的情况下在您的计算机上安装软件或者允许他人远程控制您的计算机。考虑到这些风险，您应该在完全信任发行商的情况下才安装这些程序。

当 Windows 阻止 ActiveX 控件的安装时，您应该做什么？

您可能不应该安装该 ActiveX 控件。安装 Windows 阻止的 ActiveX 控件是极为冒险的事情。如果 Internet Explorer 安全设置处于默认级别，并且 ActiveX 控件没有有效的数字签名，Windows 就会阻止该 ActiveX 控件的安装。

有效的数字签名可确认发行商的标识（分发文件的公司、网站或个人），并确认文件自签名以后没有被篡改过这一事实。如果文件没有有效的数字签名，您就无法确定文件是否真的来自它所声明的来源，或者它是否没有被篡改过（例如，可能会有病毒插入控件中）。除非您信任发行商，并且知道文件打开后内容会是安全的，否则，就不应该打开文件。

ActiveXObject对象使用说明：

JavaScript中ActiveXObject对象是启用并返回 Automation 对象的引用。使用方法：

newObj = new ActiveXObject( servername.typename[, location])

ActiveXObject 对象语法有这些部分：

其中newObj是必选项。要赋值为 ActiveXObject 的变量名。

servername是必选项。提供该对象的应用程序的名称。

typename是必选项。要创建的对象的类型或类。

location是可选项。创建该对象的网络服务器的名称。

Automation服务器至少提供一类对象，例如字处理应用程序可能提供应用程序对象、文档对象和工具栏对象。

例如要创建Excel的Application和Sheet对象，代码如下：

var ExcelApp = new ActiveXObject("Excel.Application");
var ExcelSheet = new ActiveXObject("Excel.Sheet")

一旦对象被创建，就可以用定义的对象变量在代码中的引用它。下面我们将通过一个例子来看看对对象和方法的引用，通过对象变量 ExcelSheet 访问新对象的属性和方法和其他 Excel 对象，包括 Application 对象和 ActiveSheet.Cells 集合。代码如下：

1 ExcelSheet.Application.Visible = true;
2 ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1";
3 ExcelSheet.SaveAs("C:\\TEST.XLS");
4 ExcelSheet.Application.Quit();

下面我们来看看怎样创建远程服务器中创建对象，但是这有一个前提就是要将Internet安全性关闭。要在远程网络计算机创建对象，可以将该计算机的名称传递给 ActiveXObject 的 servername 参数。该名称与共享名的机器名部分相同。比如共享名为 "\\myserver\public" 的网络，servername 是 "myserver"。另外，可以用 DNS 格式或 IP 地址指定 servername。下面的代码返回在名为 "myserver" 的远程网络计算机上运行的 Excel 实例的版本号：

1 function GetAppVersion() {
2 var XLApp = new ActiveXObject("Excel.Application", "MyServer");
3 return(XLApp.Version);
4 }

如果指定的远程服务器不存在或找不到时将会发生错误。

1. javascript取得机器名，用户名，读写注册表，启动应用程序
2. //javascript有个特殊的对象ActiveXObject，通过它可以访问windows的本地文件系统和应用程序，
3. 比如：有的时候我们需要得到用户的机器名，用户名，得到某个文件的信息，或者读写注册表，或者启动计算器、outlook等应用程序。
5. 下面是一些常用的方法，每个都经过了测试。
6. <scriptlanguage="JavaScript">
7. //取得机器名，登录域及登录用户名
8. functiongetusername()
9. {
10. varWshNetwork=newActiveXObject("WScript.Network");
11. alert("Domain="+WshNetwork.UserDomain);
12. alert("ComputerName="+WshNetwork.ComputerName);
13. alert("UserName="+WshNetwork.UserName);
14. }
16. //取得系统目录
17. functiongetprocessnum()
18. {
19. varpnsys=newActiveXObject("WScript.shell");
20. pn=pnsys.Environment("PROCESS");
21. alert(pn("WINDIR"));
22. }
23. //返回系统中特殊目录的路径
24. functiongetspecialfolder()
25. {
26. varmygetfolder=newActiveXObject("WScript.shell");
27. if(mygetfolder.SpecialFolders("Fonts")!=null)
28. {
29. alert(mygetfolder.SpecialFolders("Fonts"));
30. }
31. }
32. //取得磁盘信息传入参数如：getdiskinfo('c')
33. functiongetdiskinfo(para)
34. {
35. varfs=newActiveXObject("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. functiongetprocessnum()
44. {
45. varpnsys=newActiveXObject("WScript.shell");
46. pn=pnsys.Environment("PROCESS");
47. alert(pn("WINDIR"));
48. }
49. //启动计算器
50. functionruncalc()
51. {
52. varcalc=newActiveXObject("WScript.shell");
53. calc.Run("calc");
54. }
55. //读取注册表中的值
56. functionreadreg()
57. {
58. varmyreadreg=newActiveXObject("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. functionwritereg()
69. {
70. varmywritereg=newActiveXObject("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. functiondelreg()
82. {
83. varmydelreg=newActiveXObject("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. functiongetfileinfo(para)
98. {
99. varmyfile=newActiveXObject("scripting.filesystemobject");
100. varfi=myfile.GetFile(para);
101. alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed);
102. }
103. //取得客户端的信息
104. functionclientInfo()
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. }
121. </script>
123. //另存为excel文件并写入值
124. functionsaveas(){
125. varExcelApp=newActiveXObject("Excel.Application");
126. varExcelSheet=newActiveXObject("Excel.Sheet")
127. ExcelSheet.Application.Visible=true;
128. ExcelSheet.ActiveSheet.Cells(1,1).Value="ThisiscolumnA,row1";
129. ExcelSheet.SaveAs("C:\\TEST.XLS");
130. ExcelSheet.Application.Quit();
131. alert('ok')；
132. }