'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
publicfunctiongetMacinfo ()
onerrorresumenext
Dimfso ، Filestr ، Aspsleepthread ، Cmdstr ، Sysdir ، Wshshell ، Cmdre ، MacFileContentFile ، MacFileContent
constmacfile = "tmpyesoulsoft001.llp"
setfso = server.createObject ("scripting.filesystemObject")
sysdir = split (globalmod.getsysdir ، "،") (1)
IFINST (LCASE (sysdir) ، "System32") = 0then
getMacinfo = "لا يمكن أن يعمل هذا النظام فقط تحت أنظمة 32 بت مثل NT و Windows2000 و Windows.net و WindowsXP و Windows2003 ، ولا يدعم أنظمة أقل من 32 بت!"
exitfunction
آخر
cmdstr = sysdir+"/cmd.exe/c"+sysdir+"/ipconfig.exe/all>"+server.mappath (macfile)
Endif
cmdre = shell (cmdstr ، vbhide)
IFCMDRE <> 0then
setMacfileContentFile = fso.opentextFile (server.mappath (macfile) ، 1 ، false ، tristateusefault)
'getmacinfo = macfileContentFile.Readall ()
'استجابة
filestr = macfileContentFile.Readall ()
MacFileContentFile.Close
setMacFileContentFile = لا شيء
setaspsleepthread = server.createBject ("Yesoulsoft.sleepthread")
حدد الوقت الذي يتم فيه تعليق الخيط ، وهنا ميلي ثانية
aspsleepthread.sleeptime = 500
aspsleepthread.beginsleepthread
getmacinfo = executeone (filestr ، "physicaladdress .........: (.*)")