Network interface

[Gintaras]

Here works.

Macro Macro471

Code:

Copy      Help

out

def wbemFlagReturnImmediately 16
def wbemFlagForwardOnly 32

IDispatch wmi._getfile("winmgmts:")
IDispatch col = wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True" @ wbemFlagReturnImmediately|wbemFlagForwardOnly)

IDispatch x
foreach x col
,out "----"
,str name=x.MACAddress
,out name
,;VARIANT v=x.IPAddress; out F"0x{v.vt}"
,ARRAY(VARIANT) a=x.IPAddress
,int i
,for i 0 a.len
,,out a[i]