'-----------------------------------------------------------------------------------------------
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 = "Este sistema solo puede ejecutarse en sistemas de 32 bits como NT, Windows2000, Windows.net, Windowsxp, Windows2003 y no admite sistemas por debajo de 32 bits!"
Extinción
Demás
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, falso, tristateUsedefault)
'GetMacinfo = MacFileContentFile.ReadAll ()
'Respuesta. Flush
Filestr = MacFileContentFile.ReadAll ()
MacFileContentFile.close
SetMacFileContentFile = nada
Setaspsleepthread = server.createObject ("yeseoulsoft.sleepthread")
'Defina el momento en que se suspende el hilo, aquí está milisegundos
ASPSIELETHREAD.SLEEPTIME = 500
AspsleepThread.beginsleepthread
GetMacInfo = ExecuteOne (Filestr, "FisysyAddress .........: (.*)")