'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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 = «Эта система может работать только под 32-битными системами, такими как NT, Windows2000, Windows.net, WindowsXP, Windows2003, и не поддерживает системы ниже 32-битных!»
Выходная функция
Еще
Cmdstr = sysdir+"/cmd.exe/c"+sysdir+"/ipconfig.exe/all>"+server.mappath (macfile)
Эндиф
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 = ничего
SetAspspleepThread = server.createObject ("yesoulsoft.sleepThread")
'Определите время, когда поток приостановлен, здесь миллисекунды
AspsleepThread.Sleeptime = 500
AspsleepThread.beginsleepThread
GetMacinfo = executeOne (fiLESTR, "PhyasysAddress .........: (.*)")