Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Так дали же пример, просто возьми первое слово:

Код: Выделить весь код
$oSWbemLocator    = ObjCreate("WbemScripting.SWbemLocator")
$oSWbemServicesEx = $oSWbemLocator.ConnectServer(".", "root\cimv2")

$sManufacturer = ''

For $oSWbemObjectEx In $oSWbemServicesEx.ExecQuery("SELECT Manufacturer FROM Win32_BaseBoard")
    $sManufacturer = StringRegExpReplace($oSWbemObjectEx.Manufacturer, '^([^\h]+).*', '\1')
Next

ConsoleWrite($sManufacturer & @CRLF)
Ну или так:

Код: Выделить весь код
#include <Array.au3>

$iPID = Run(@ComSpec & " /C wmic baseboard get Manufacturer", "", @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($iPID)
$sOut = StdoutRead($iPID)

$avArray = StringRegExp($sOut, '([^\s]+)', 3)

If Not @error Then
    _ArrayDisplay($avArray)
    MsgBox(0, '', $avArray[1] & @CRLF & "Количество символов: " & StringLen($avArray[1]))
EndIf

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:26, 24-05-2020 | #7