1. '----------------------提取所有網卡的信息--------------------'   
2.  
3. Public Function GetMacInfo()   
4.     On Error Resume Next   
5.  
6.     Dim fso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent   
7.     Const MacFile = "TmpYesoulSoft001.LLP"   
8.     Set fso = Server.CreateObject("Scripting.FileSystemObject")   
9.  
10.     SysDir = Split(GlobalMod.GetSysDir, ",")(1)   
11.             If InStr(LCase(SysDir), "system32") = 0 Then   
12.             GetMacInfo = "本系統只能運行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系統下，不支持32位以下的系統！"   
13.             Exit Function   
14.             Else   
15.             CmdStr = SysDir + "\Cmd.exe /C " + SysDir + "\Ipconfig.exe /All > " + Server.MapPath(MacFile)   
16.             End If   
17.         CmdRe = Shell(CmdStr, vbHide)   
18.         If CmdRe <> 0 Then   
19.         Set MacFileContentFile = fso.OpenTextFile(Server.MapPath(MacFile), 1, False, TristateUseDefault)   
20.         'GetMacInfo = MacFileContentFile.ReadAll()   
21.         'Response.Flush   
22.         FileStr = MacFileContentFile.ReadAll()   
23.         MacFileContentFile.Close   
24.         Set MacFileContentFile = Nothing   
25.         Set AspSleepThread = Server.CreateObject("YesoulSoft.SleepThread")   
26.         '定義線程掛起的時間，這里為毫秒   
27.         AspSleepThread.SleepTime = 500   
28.         AspSleepThread.BeginSleepThread   
29.         GetMacInfo = ExecuteOne(FileStr, "Physical Address. . . . . . . . . : (.*)")   
30.         Set AspSleepThread = Nothing   
31.         Else   
32.         GetMacInfo = "系統當前無法獲取您的網絡信息，請檢查權限繼承關系后再運行本系統！"   
33.         Exit Function   
34.         End If   
35.         DelFile MacFile   
36.  
37.     Set fso = Nothing   
38.  
39. End Function   
40. '------------------在字符串匹配一次結果-------------------'   
41. Public Function ExecuteOne(inpStr, PatStr)   
42.   Dim oRe, oMatch, oMatches   
43.   Set oRe = New RegExp   
44.   oRe.Pattern = PatStr   
45.   inpStr = LCase(inpStr)   
46.   oRe.IgnoreCase = True   
47.   Set oMatches = oRe.Execute(inpStr)   
48.   Set oMatch = oMatches(0)   
49.   ExecuteOne = oMatch.SubMatches(0)   
50. End Function