'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicFunctionGetMacinfo ()
OnErrorReSumenext
DIMFSO, FILEST, ASPSLEEPTHREAD, CMDSTR, SYSDIR, WSHSHELL, CMDRE, MACFILECONTENTFILE, MACFILECONTENTE
ConstMacfile = "tmpyesoulsoft001.llp"
Setfso = server.createObject ("scripting.filesystemobject")
Sysdir = split (globalmod.getsysdir, ",") (1)
Ifinstr (lcase (sysdir), "System32") = 0hen
GetMacinfo = "Este sistema pode ser executado apenas em sistemas de 32 bits, como NT, Windows2000, Windows.net, Windowsxp, Windows2003, e não suporta sistemas abaixo de 32 bits!"
Saída de saída
Outro
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
Filest = macFileContentFile.readall ()
MacFileContentFile.Close
SetMacFileContentFile = nada
Setapsleepthread = server.createObject ("yesoulsoft.sleepthread")
'Defina o tempo em que o tópico é suspenso, aqui estão milissegundos
Aspsleepthread.sleeptime = 500
Aspsleepthread.beginsleepthread
GetMacinfo = ExecuteOne (FileST, "FishyAddress .........: (.*)")