Dim Str$, Arr, N&, i&, FN$
Dim k
FN = ThisWorkbook.Path & "\IpInfo.txt"
With CreateObject("wscript.shell")
    .Run Environ("comspec") & " /c ipconfig /all>""" & FN & """", 0, 1
End With
With CreateObject("scripting.filesystemobject").opentextfile(FN)
    Str = .readall
    .Close
End With
Kill FN
Arr = Split(Str, vbNewLine)
For i = LBound(Arr) To UBound(Arr)
    If LCase(Arr(i)) Like "*physical address*:*" Then
        k = Trim(Split(Arr(i), ":")(1))
     k = Mid(k, 1, 2) & Mid(k, 4, 2) & Mid(k, 7, 2) & Mid(k, 10, 2) & Mid(k, 13, 2) & Mid(k, 16, 2)
    End If
Next i
這段代碼在XP下是沒有問題的,能讀到外接的網卡,但在WIN7下就不行了,求指正