軟體: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，
請問該怎麼修改？

如以Win32_PingStatus，ping個外網，迴圈內再以statuscode判斷是否為isnull或不為0

請S大神明示，小弟功力淺，這一串我幾乎都看不太懂~~~

https://imgur.com/zvUIn37 類似這樣

感謝Soyoso大大 m(＿ ＿)m

想到的是判定IPConfigSet的Count不等於0但這樣只能判定有作用中的網卡，不代表有連線原PO很努力找資料，給個推，加油！