'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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 = "Ce système ne peut fonctionner que sous des systèmes 32 bits tels que NT, Windows2000, Windows.net, WindowsXP, Windows2003, et ne prend pas en charge les systèmes en dessous de 32 bits!"
Sortie
Autre
CMDSTR = sysdir + "/ cmd.exe / c" + sysdir + "/ ipconfig.exe / all>" + server.mappath (macfile)
Endire
Cmdre = shell (CMDSTR, vBHide)
Ifcmdre <> 0Then
SetMacFileContentFile = fso.OpenTextFile (server.mappath (macfile), 1, false, TristateUsefault)
'Getmacinfo = macfilecontentfile.readall ()
'Response.flush
FileStr = macFileContentFile.readall ()
Macfilecontentfile.close
SetMacFileContentFile = rien
SetAsPSleepThread = server.createObject ("Yesoulsoft.SleepThread")
'Définissez le moment où le fil est suspendu, voici des millisecondes
Aspsleepthread.sleeptime = 500
Aspsleepthread.beginSleepthread
Getmacinfo = executeOne (filest, "PhysicalAddress .........: (. *)")