Что нового

вернуть имена подключений по локальной сети

FlatX007

Tattoo!
Сообщения
197
Репутация
35
Как мне вернуть имена подключений по локальной сети в сетевых подключениях ?
 
Автор
F

FlatX007

Tattoo!
Сообщения
197
Репутация
35
Удалось решить проблему самому.

Код:
#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)
 
Верх