Network interface

[Gintaras]

On my PC it is VT_NULL. If it would not be null, assign it to an ARRAY(str) variable.

Macro Macro272

Code:

Copy      Help

;note: run as administrator.

out

def wbemFlagReturnImmediately 16
def wbemFlagForwardOnly 32

IDispatch wmi._getfile("winmgmts:")
IDispatch col = wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionId != NULL" @ wbemFlagReturnImmediately|wbemFlagForwardOnly)

IDispatch x
foreach x col
,str name=x.Name
,out name
,VARIANT v=x.NetworkAddresses
,sel v.vt
,,case VT_ARRAY|VT_BSTR
,,ARRAY(str) a=x.NetworkAddresses
,,int i
,,for i 0 a.len
,,,out a[i]
,,
,,case VT_NULL
,,out "no data, sorry"
,,
,,case else
,,end "what?!"
,,