存在的问题：

1.首先ActiveXObject是微软IE浏览器独有的对象,不存在兼容性,也就是说只有在IE浏览器中才可以使用,如果考虑兼容的话请放弃ActiveXObject吧.其他浏览器都不支持的.


Javascript中使用new ActiveXObject("WScript.Shell")创建对象，出现：Automation服务器不能创建对象的错误，其原因有

一、组件未注册，可以采用以下方法：

开始－》运行－》regsvr32 c:\WINDOWS\system32\shell32.dll
开始－》运行－》regsvr32 c:\WINDOWS\system32\WSHom.Ocx
regsvr32 /u %windir%/system32/WSHom.Ocx
开始－》运行－》regsvr32 c:\WINDOWS\system32\scrrun.dll

如果提示缺少那个dll或ocx，那么就去网上下载吧或去其他电脑上拷贝

二、浏览器设置（本方法在IE6上通过），可以采用以下方法：

工具－》Internet选项－》安全－》受信任的站点－》站点－》取消下方要求安全验证的复选框，并将你的网址添进去，确定，再选上要求验证的复选框－。

通过以上设置，此组件已能创建，但受限较多，不推荐网站使用。


打开IE - Internet 选项 - Internet 自定义级别 
对没有标记为安全的ActiveX控件进行初始化和脚本运行

具体代码：

<script language="JavaScript">
//取得机器名，登录域及登录用户名
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"));
     }
}
//取得磁盘信息 传入参数如：getdiskinfo('c')
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)
}
//取得系统目录
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("删除路径不正确");
}
     }
}
//取得文件信息    调用方式如：getfileinfo('c:\\test.pdf')
function getfileinfo(para)
{
    var myfile=new ActiveXObject("scripting.filesystemobject");
    var fi=myfile.GetFile(para);
    alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed);
}
//取得客户端的信息
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);   
}
</script>