JS获取MAC地址及硬盘号

<script>
//alert("本例子读硬盘号\n")
v=new ActiveXObject("MSScriptControl.ScriptControl.1");
v.Language="VBScript";
/*本例子读硬盘号
var code =
'Function rtnphysicaldisk()\r\n'
              + 'DIM objphysicaldisk\r\n'
              + 'strComputer = "."\r\n'
              + 'Set objWMIService = GetObject("winmgmts://./root/cimv2")\r\n'
              + 'Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive")\r\n'
              + 'For Each objItem in colItems\r\n'
     + 'objphysicaldisk= objItem.Model\r\n'
              + 'Next\r\n'
     + 'rtnphysicaldisk = objphysicaldisk\r\n'
              + 'End Function';
v.AddCode(code);
var x=v.eval("rtnphysicaldisk");
*/
//本例子读MAC地址
var code =
'Function rtnphysicaldisk()\r\n'
              + 'DIM objphysicaldisk\r\n'
              + 'strComputer = "."\r\n'
              + 'Set objWMIService = GetObject("winmgmts://./root/cimv2")\r\n'
              + 'Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")\r\n'
              + 'For Each objItem in colItems\r\n'
     + 'objphysicaldisk= objItem.MACAddress \r\n'
              + 'Next\r\n'
     + 'rtnphysicaldisk = objphysicaldisk\r\n'
              + 'End Function';
v.AddCode(code);
var x=v.eval("rtnphysicaldisk");
var y=x.replace(":","").replace(":","").replace(":","").replace(":","").replace(":","");
alert(x+"\n"+y);
//alert(x);