Конвертация в HEX

[DyadyaGenya]

Доброго времени суток. После долгого простоя решил размяться и модифицировать небольшой кусок того, что делал раньше, и старый результат конвертировать в HEX. Пробую делать так:

#include <String.au3>
Global $strVendorSpecific[0], $hex[0]

$objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\WMI")
$colItems = $objWMIService.ExecQuery("SELECT * FROM MSStorageDriver_ATAPISmartData", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   $iCnt = 1
       For $Item In $colItems
            $strVendorSpecific = $Item.VendorSpecific
            _ArrayDisplay($strVendorSpecific,"Спецификация")
       For $z = 0 to UBound($strVendorSpecific) - 1
       _ArrayAdd($hex, _StringToHex($strVendorSpecific[$z]))
       Next
_ArrayDisplay($hex, 'HEX')
     $iCnt +=1
  Next

Оно то конвертирует, но результат странный. Я конечно не большой знаток всех этих переводов-конвертаций, но когда я делаю в PowerShell нечто подобное, то получаю совсем не тот результат. Там именно то, что мне нужно.

$o = Get-WmiObject -Class MSStorageDriver_ATAPISmartData -Namespace 'root/wmi' | select-object  -first 1
$c =  ((([System.BitConverter]::ToString($o.VendorSpecific))) -replace '\-', "`n" )
write-output $c

Хотелось бы и с помощью autoit получить такой же результат

 

[joiner]

замени

_ArrayAdd($hex, Hex($strVendorSpecific[$z]))

на вид результат был неодинаков , ибо в функции _StringToHex строка переводится в бинарный вид, а потом уже в hex

 

[DyadyaGenya]

на вид результат был неодинаков

Почти как в PowerShell, только 6 нулей перед значением. Не знаю, насколько это правильно, но попробую дальше использовать. В крайнем случае придется вручную откидывать нули

 

[joiner]

ответы верны. нули и есть нули. можно сделать так

Local $hexres
For $Item In $colItems
    $strVendorSpecific = $Item.VendorSpecific
;~     _ArrayDisplay($strVendorSpecific, "Спецификация")
    For $z = 0 To UBound($strVendorSpecific) - 1
        $hexres = Hex($strVendorSpecific[$z], 2); 2 - количестве возвращаемых символов
        If StringReplace($hexres, '0', '') <> '' Then
            _ArrayAdd($hex, $hexres)
        Else
            _ArrayAdd($hex, '')
        EndIf
    Next
    _ArrayDisplay($hex, 'HEX')
Next

 

[DyadyaGenya]

ответы верны. нули и есть нули. можно сделать так

Тогда уже так:

If StringReplace($hexres, '000000', '') <> '' Then

 

[joiner]

StringReplace делает замену всех сходных символов в строке. достаточно и одного нуля)
к тому же,в примере возвращается только два последних символа

 

[DyadyaGenya]

к тому же,в примере возвращается только два последних символа

У меня были такие значения, где все нули, и поле оказывалось пустым. Честно говоря, пока не знаю что лучше, оставить пустым или с нулями.