#include <Constants.au3>
#include <Encoding.au3>
#include <Array.au3>
Global $sWmicComand = 'wmic path Win32_networkadapter where ^' & '"' & 'NetConnectionStatus^=2^' & '"' & ' get NetConnectionID /value'
Global $aTXT
$iPID = Run(@ComSpec &' /C ' & $sWmicComand, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
While 1
$aTXT &= StdoutRead($iPID)
If @error Then ExitLoop
Wend
$aNetworkAdapter = StringRegExp(_Encoding_CyrillicTo1251($aTXT), '=(.*)\r', 3) ; By AZJIO
;~ $aNetworkAdapter = StringRegExpReplace(_Encoding_CyrillicTo1251($aTXT),'(?s)(.*=)(.*?)(\r\n.*=)(.*?)(\r\n.*)','\2\4') ; By AZJIO
_ArrayDisplay($aNetworkAdapter)