管理书籍排行榜,欢乐颂小说结局是什么

主頁(yè) > 知識(shí)庫(kù) > 使用ASP獲得服務(wù)器網(wǎng)卡的MAC地址信息

使用ASP獲得服務(wù)器網(wǎng)卡的MAC地址信息

'----------------------提取所有網(wǎng)卡的信息--------------------'

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 = "本系統(tǒng)只能運(yùn)行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系統(tǒng)下，不支持32位以下的系統(tǒng)！"
            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")
        '定義線程掛起的時(shí)間，這里為毫秒
        AspSleepThread.SleepTime = 500
        AspSleepThread.BeginSleepThread
        GetMacInfo = ExecuteOne(FileStr, "Physical Address. . . . . . . . . : (.*)")
        Set AspSleepThread = Nothing
        Else
        GetMacInfo = "系統(tǒng)當(dāng)前無(wú)法獲取您的網(wǎng)絡(luò)信息，請(qǐng)檢查權(quán)限繼承關(guān)系后再運(yùn)行本系統(tǒng)！"
        Exit Function
        End If
        DelFile MacFile

    Set fso = Nothing

End Function
'------------------在字符串匹配一次結(jié)果-------------------'
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

標(biāo)簽：朝陽(yáng) 馬鞍山平頂山湖北孝感防城港遼陽(yáng) 四平

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《使用ASP獲得服務(wù)器網(wǎng)卡的MAC地址信息》，本文關(guān)鍵詞使用,ASP,獲得,服務(wù)器,網(wǎng)卡,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

濮阳杆衣贸易有限公司

使用ASP獲得服務(wù)器網(wǎng)卡的MAC地址信息