[算表] 請問用 VBA 抓取網路卡編號

[CaoCao (超級討厭統一)]

軟體:2010

請問各位，我在網路上找到用 VBA 抓網路卡編號如下：

Sub 網路卡()
    Dim IPConfigSet
    Set IPConfigSet = _
    GetObject("winmgmts:").ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where ((IPEnabled =
TRUE) And (MacAddress != NULL) And (SettingID != NULL))")
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
      MsgBox IPConfig.MACAddress
    End If
Next
End Sub

但是若執行當下沒有開網路，不會發生任何事，連警告也不會有，
我想讓它在沒有網路時跳出警告視窗然後自動關閉 Excel，
請問該怎麼修改？

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.244.73.250
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1468310095.A.B29.html
※ 編輯: CaoCao (210.244.73.250), 07/12/2016 15:57:45
→ soyoso: 如以Win32_PingStatus，ping個外網，迴圈內再以statuscode
→ soyoso: 判斷是否為isnull或不為0
→ CaoCao: 請S大神明示，小弟功力淺，這一串我幾乎都看不太懂~~~
→ soyoso: https://imgur.com/zvUIn37 類似這樣
→ CaoCao: 感謝Soyoso大大   m(＿ ＿)m
→ Linkey: 想到的是判定IPConfigSet的Count不等於0
→ Linkey: 但這樣只能判定有作用中的網卡，不代表有連線
推 Linkey: 原PO很努力找資料，給個推，加油！