[beve]

Код:

Global $NameLan
Global $NetworkAdapter
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
$objClass = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")

For $obj in $objClass
    if $obj.NetConnectionStatus==2 then
        $NetworkAdapter=$obj.Name
        $NameLan=$obj.NetConnectionID
    endif
Next


MsgBox(64,$NetworkAdapter, $NameLan)