- '----------------------提取所有网卡的信息--------------------'
- 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
使用ASP获得服务器网卡的MAC地址信息
2019-10-26 12:07asp代码网 ASP教程
使用ASP获得服务器网卡的MAC地址信息
延伸 · 阅读
- 2022-02-13易语言随机生成MAC地址的代码
- 2021-12-21winform C#获得Mac地址,IP地址,子网掩码,默认网关的
- 2021-12-10C#获取路由器外网IP,MAC地址的实现代码
- 2021-10-20关于ASP网页无法打开的解决方案
- 2021-10-14让apache也支持asp环境的方法
- 2021-10-10linux修改mac地址方法分享
精彩推荐
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...