Using ASP to obtain the MAC address information of server network card--Application technique

'----------------------extract information for all network adapters--------------------'

Public Function Getmacinfo ()
On Error Resume Next

Dim FSO, Filestr, Aspsleepthread, Cmdstr, Sysdir, WshShell, Cmdre, Macfilecontentfile, macfilecontent
Const macfile = "TMPYESOULSOFT001.LLP"
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")

Sysdir = Split (Globalmod.getsysdir, ",") (1)
If InStr (LCase (Sysdir), "system32") = 0 Then
Getmacinfo = "This system can only run in NT, Windows 2000, Windows.NET, Windows Xp, Windows 2003 and other 32-bit systems, do not support the following 32-bit system!" "
Exit Function
Else
Cmdstr = Sysdir + "\cmd.exe/c" + Sysdir + "\ipconfig.exe/all >" + Server.MapPath (MacFile)
End If
Cmdre = Shell (Cmdstr, vbhide)
If cmdre <> 0 Then
Set macfilecontentfile = fso. OpenTextFile (Server.MapPath (MacFile), 1, False, Tristateusedefault)
' Getmacinfo = Macfilecontentfile.readall ()
' Response.Flush
Filestr = Macfilecontentfile.readall ()
Macfilecontentfile.close
Set Macfilecontentfile = Nothing
Set Aspsleepthread = Server.CreateObject ("Yesoulsoft.sleepthread")
' Define the time that the thread hangs, here is the millisecond
Aspsleepthread.sleeptime = 500
Aspsleepthread.beginsleepthread
Getmacinfo = Executeone (Filestr, "Physical address. ........:(.*)")
Set Aspsleepthread = Nothing
Else
Getmacinfo = "The system is currently unable to obtain your network information, please check the permission inheritance relationship before running this system!" "
Exit Function
End If
Delfile MacFile

Set FSO = Nothing

End Function
'------------------match one result-------------------' string
Public Function Executeone (INPSTR, PATSTR)
Dim oRe, Omatch, omatches
Set oRe = New RegExp
Ore.pattern = Patstr
Inpstr = LCase (INPSTR)
Ore.ignorecase = True
Set omatches = Ore.execute (INPSTR)
Set omatch = omatches (0)
Executeone = omatch.submatches (0)
End Function