'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicFunctionGetmacinfo ()
OnErrorresumeNext
Dimfso, Filester, ASPSleepead, CMDStr, Sysdir, Wshshell, CMDRE, MacFileContentFile, MacFileContent
ConstmacFile = "tmpyesoulsoft001.llp"
Setfso = server.createObject ("scripting.filesystemObject")
Sysdir = split (globalmod.getSysdir, ",") (1)
IFInstr (Lase (Sysdir), "System32") = 0Then
Getmacinfo = "Dieses System kann nur unter 32-Bit-Systemen wie NT, Windows2000, Windows.net, Windowsxp, Windows2003 ausgeführt und unterstützt keine Systeme unter 32-Bit!"
Ausgangsfunktion
Anders
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 = nichts
SetaSpsleepead = server.createObject ("yeoulsoft.sleepead"))
„Definieren Sie die Zeit, in der der Faden suspendiert ist, hier sind Millisekunden
ASPSleepead.Sleeptime = 500
ASPSleepead.Beginsleepead
Getmacinfo = executeone (filester, "Physicaladdress .........: (.*)")