'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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 = "Sistem ini hanya dapat berjalan di bawah sistem 32-bit seperti NT, Windows2000, Windows.net, WindowsXP, Windows2003, dan tidak mendukung sistem di bawah 32-bit!"
Fungsi keluar
Kalau tidak
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
Filestr = macfileContentFile.readall ()
Macfilecontentfile.close
SetMacFileContentFile = tidak ada
SetaspsleepThread = server.createObject ("yesoulsoft.sleepThread")
'Tentukan waktu ketika utas ditangguhkan, berikut adalah milidetik
AspsleepThread.sleeptime = 500
Aspsleepthread.beginsleepThread
GetMacInfo = executeOne (filestr, "physicalAddress .........: (.*)")