'----------------------提取所有网卡的信息--------------------' 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

　　推荐阅读

　　TsysV1.1 系统文件清单介绍

一、 介绍： 本文档仅适用于　Tsys V1.1 正式版 本文档主要方便开发者对Tsys文件的整体功能模块有个大致了解，不包括细节代码的介绍。欢迎热心的网友们加入到文档的完善工作中。 二、 文件列表： 文件 功能 备注 >>>详细阅读

本文标题：使用ASP获得服务器网卡的MAC地址信息

地址：http://www.17bianji.com/kaifa2/ASP/32786.html

 1/2    1