欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

使用ASP获得服务器网卡的MAC地址信息

程序员文章站 2023-11-29 18:09:16
'----------------------提取所有网卡的信息--------------------'  public function ...
'----------------------提取所有网卡的信息--------------------' 

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