-
'----------------------提取所有网卡的信息--------------------'
-
-
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 = "本系统只能运行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系统下，不支持32位以下的系统！"
-
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")
-
'定义线程挂起的时间，这里为毫秒
-
AspSleepThread.SleepTime = 500
-
AspSleepThread.BeginSleepThread
-
GetMacInfo = ExecuteOne(FileStr, "Physical Address. . . . . . . . . : (.*)")
-
Set AspSleepThread = Nothing
-
Else
-
GetMacInfo = "系统当前无法获取您的网络信息，请检查权限继承关系后再运行本系统！"
-
Exit Function
-
End If
-
DelFile MacFile
-
-
Set fso = Nothing
-
-
End Function
-
'------------------在字符串匹配一次结果-------------------'
-
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
