{NeoBook Function}
Version=5,80
Language=VBScript
Param=[%1]|Text|true para traer solo el adaptador ethernet o false para listar todos
Param=[%2]|Variable|variable donde se guardara el resultado
{End}
dim WMI:  set WMI = GetObject("winmgmts:\\.\root\cimv2")
dim Nads: set Nads = WMI.ExecQuery("Select * from Win32_NetworkAdapter where physicaladapter=true")
dim nad
dim list
for each Nad in Nads
    if not isnull(Nad.MACAddress) then
        if InStr(Nad.description,"") > 0 then
            if "[%1]" = "true" then
                if InStr(Nad.description,"irtual") = 0 then
                    if InStr(Nad.description,"ther") > 0 then
                        list = list + Nad.description + ";" +  Nad.MACAddress + vbCrLf
                    end if
                end if
            else
                list = list + Nad.description + ";" +  Nad.MACAddress + vbCrLf
            end if
        end if
    end if
next

publication.nbSetVar "[%2]", list
