JScript中調(diào)用ActiveX獲取訪客網(wǎng)卡MAC地址實(shí)現(xiàn)代碼
JScript調(diào)用activeXObject獲取訪客的網(wǎng)卡MAC地址,注意只能IE下運(yùn)行(IE8+沒測(cè)試),會(huì)有安全提示,提示如下:
在此頁上的ActiveX控件和本頁上的其他部分的交互可能不安全。你想允許這種交互嗎?
注意選擇”是“,要不報(bào)錯(cuò)無法獲?。?/p>
源代碼如下:
<html> <head> <title>JScript+ActiveX獲取訪客MAC網(wǎng)卡地址</title> </head> <body> <object classid="CLSID:76A64158-CB41-11D1-8B02-00600806D9B6" id="locator" style="display:none;visibility:hidden"></object> <object classid="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223" id="foo" style="display:none;visibility:hidden"></object> <form name="myForm"> <br/>MAC地址:<input type="text" name="macAddress"> <br/>IP地址:<input type="text" name="ipAddress"> <br/>主機(jī)名:<input type="text" name="hostName"> </form> </body> </html> <script language="javascript"> var sMacAddr = ""; var sIPAddr = ""; var sDNSName = ""; var service = locator.ConnectServer(); service.Security_.ImpersonationLevel = 3; service.InstancesOfAsync(foo, 'Win32_NetworkAdapterConfiguration'); </script> <script FOR="foo" EVENT="OnObjectReady(objObject,objAsyncContext)" LANGUAGE="JScript"> if(objObject.IPEnabled != null && objObject.IPEnabled != "undefined" && objObject.IPEnabled == true){ if(objObject.IPEnabled && objObject.IPAddress(0) !=null && objObject.IPAddress(0) != "undefined" && objObject.DNSServerSearchOrder!=null) sIPAddr = objObject.IPAddress(0); if(objObject.MACAddress != null &&objObject.MACAddress != "undefined") sMacAddr = objObject.MACAddress; if(objObject.DNSHostName != null &&objObject.DNSHostName != "undefined") sDNSName = objObject.DNSHostName; } </script> <script FOR="foo" EVENT="OnCompleted(hResult,pErrorObject, pAsyncContext)" LANGUAGE="JScript"> myForm.macAddress.value=sMacAddr; myForm.ipAddress.value=sIPAddr; myForm.hostName.value=sDNSName; </script>
相關(guān)文章
asp下實(shí)現(xiàn)替換遠(yuǎn)程文件為本地文件并保存遠(yuǎn)程文件的代碼
asp下實(shí)現(xiàn)替換遠(yuǎn)程文件為本地文件并保存遠(yuǎn)程文件的代碼...2007-03-03做了CDN加速的ASP網(wǎng)站獲取用戶真實(shí)IP程序
寫了下asp取真實(shí)IP的代碼,搭環(huán)境測(cè)試無代理、一級(jí)或多級(jí)代理的情況,可以正常獲取2010-11-11Microsoft JET Database Engine(0x80004005)未指定錯(cuò)誤的解決方法
今天在配置iis asp運(yùn)行環(huán)境的時(shí)候提示Microsoft JET Database Engine(0x80004005)未指定錯(cuò)誤,不過最后通過如下方法解決了,這里腳本之家小編特為大家分享下,方便需要的朋友2014-06-06超級(jí)ASP版DataGrid——SkyGrid本地下載
超級(jí)ASP版DataGrid——SkyGrid本地下載...2007-03-03做文章系統(tǒng)時(shí), 如何讓長篇的文章自動(dòng)換行
做文章系統(tǒng)時(shí), 如何讓長篇的文章自動(dòng)換行...2006-09-09