[ANGRO]

Я тут людей спрашивал как получить данные сетевых соединений, вот как-то так

Код:

	Dim $strComputer = "."
	Dim $ret

	$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
		If Not @error = 0 Then
			MsgBox(48, "Ошибка", "Не удалось соединиться со службой WMI")
	           EndIf
	$colNicConfigs = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
		
	For $objNicConfig In $colNicConfigs
		For $strIPAddress In $objNicConfig.IPAddress
		
		$objNic = $objWMIService.Get("Win32_NetworkAdapter.DeviceID=" & $objNicConfig.Index)
			$ret &= "-- " & "Имя:   " &  $objNic.NetConnectionID & @CRLF & _ 
			              "IP адрес:   " & $strIPAddress & @CRLF & _ 
			              "Номер адаптера:   " & $objNicConfig.Index & @CRLF
		Next
	Next
		If $ret <> '' Then Msgbox(0,"Output", $ret )