【魚頭】讀取網卡MAC物理地址

資料來源：兄弟論壇
作者：一隻魚

//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★說★明★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//　　　　　　　　　　　　[讀取網卡MAC物理地址] 　　　　　　　　　　　　　//
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★定★義★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Dim mc,mo,Mac.stt
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★設★置★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★開★始★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS stt=stt & vbcrlf & "For Each mo in mc"
VBS stt=stt & vbcrlf & "If mo.IPEnabled=true Then"
VBS stt=stt & vbcrlf & "Mac= mo.MacAddress"
VBS stt=stt & vbcrlf & "Exit For"
VBS stt=stt & vbcrlf & "End if"
VBS stt=stt & vbcrlf & "Next"
VBS Execute(stt)
VBSCall messagebox("網卡MAC地址是: " & Mac)
EndScript
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★備★注★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//【符號說明】《說明》、【標記】、【子程序】、＝分割線＝、?分類說明?
//【腳本作者】一隻魚　　　　　　　　　【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致謝】歡迎使用魚魚製作的腳本!!
//【創作日期】2007.04.05　　　　　　　【完成日期】
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★結★束★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//