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

        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