'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicFunctionGetMacInfo()
OnErrorResumeNext
Dimfso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent
ConstMacFile="TmpYesoulSoft001.LLP"
Setfso=Server.CreateObject("Scripting.FileSystemObject")
SysDir=Split(GlobalMod.GetSysDir,",")(1)
IfInStr(LCase(SysDir),"system32")=0Then
GetMacInfo="This system can only run under 32-bit systems such as Nt, Windows2000, Windows.Net, WindowsXp, Windows2003, and does not support systems below 32-bit!"
ExitFunction
Else
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,TristateUseDefault)
'GetMacInfo=MacFileContentFile.ReadAll()
'Response.Flush
FileStr=MacFileContentFile.ReadAll()
MacFileContentFile.Close
SetMacFileContentFile=Nothing
SetAspSleepThread=Server.CreateObject("YesoulSoft.SleepThread")
'Define the time when the thread is suspended, here is milliseconds
AspSleepThread.SleepTime=500
AspSleepThread.BeginSleepThread
GetMacInfo=ExecuteOne(FileStr,"PhysicalAddress.........:(.*)")