- '----------------------提取所有网卡的信息--------------------'
- 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地址信息
延伸 · 阅读
- 2019-10-26ASP调用存储过程的技巧
- 2019-10-26ASP提速技巧
- 2019-10-26ASP网页模板的应用: 让程序和界面分离,让ASP脚本
- 2019-10-26PerlScript编写ASP(转载)
- 2019-10-26新型ASP后门源代码分析
- 2019-10-26常用ASP函数集【经验才是最重要的】
精彩推荐
- ASP教程
ASP调用远程XML数据的代码(alexa排名数据)
调用网易新闻的XML数据为例进行讲解如果通过ASP远程调取XML文件,并读出数据。其实我们之前就使用了asp读取alexa官方的数据。...
- ASP教程
通过asp程序来创建access数据库
access数据库属于“文件型数据库”,创建时需要指定它要使用的文件...
- ASP教程
asp中通过addnew添加内容后取得当前文章的自递增ID的方法
asp中使用addnew方法添加一条记录后,我们经常使用取得自递增的ID,而使用bookmark很容易实现这样的功能。...
- ASP教程
asp:debug类调试程序
ASP中最头疼的就是调试程序的时候不方便,我想可能很多朋友都会用这样的方法response.write,然后输出相关的语句来看看是否正确。前几天写了一个千行的...
- ASP教程
ASP向Excel导数据(图片)终结版 ASP操作Excel
ASP向Excel导数据(图片)终结版 ASP操作Excel,需要的朋友可以参考下。...
- ASP教程
asp下如何在ADO服务器端利用好缓存技术?
asp下如何在ADO服务器端利用好缓存技术? ...
- ASP教程
迅雷API接口_通过脚本调用迅雷自动下载资源
最近在写一个采集程序,需要下载目标站的附件,不过目标站文件下载速度很慢,于是想到能否调用迅雷来下载 ...
- ASP教程
asp实现带刷新功能的验证码代码
本文给大家分享的是一段使用asp实现的验证码功能,而且是带刷新的,代码非常简洁,非常实用,有需要的小伙伴可以参考下。...