WMI - [решено] Перевод серийного номера из 16-ричного значения в символьную строку

Dragokas · Отправлено: **21:43, 28-03-2013** | #2

Актуально.

Foreigner · Отправлено: **22:31, 28-03-2013** | #3

Цитата Diskretor:

Выдает серийный номер в 16-ричном формате »

Как воспроизвести?

Код:

> wmic path Win32_PhysicalMedia where "tag like '%Drive0%'" Get Tag,SerialNumber
SerialNumber          Tag                                                         
110310PBN418M7JRREVE  \\.\PHYSICALDRIVE0

> wmic path Win32_PhysicalMedia Get SerialNumber
SerialNumber                                      
110310PBN418M7JRREVE

Dragokas · Отправлено: **23:05, 28-03-2013** | #4

Foreigner, это хороший вопрос.

Вероятно, понадобится система Win 7 x64 ru или подобная.
Завтра проверю на работе на XP.

Я ошибся. VBScript тоже выдает в таком формате (просто запускал Scriptomatic с повышенными правами).

У меня в консоли вот что показывает (вывод от 4 ЖД):

P.S. проблема частично решена. WMI выдает верные данные, если консоль запускать в режиме повышенных прав:

А вот этот вывод: 2020202020202020202020203157304641444b57 - я вообще не знаю, содержит ли туже самую строку, или является просто мусором.

Доп. вопрос: SN диска типа SSD определился неверно. Знаете ли другой класс или метод, которым можно попробовать вытянуть верный серийник?

Dragokas · Отправлено: **01:05, 29-03-2013** | #5

Доп.: с SSD похоже разобрался: http://www.intel.com/support/ru/mt/mt_win.htm
Т.е. S/N на упаковке этих дисков так называемый Secure S/N и не соответствует обычному S/N.

Dragokas · Отправлено: **17:39, 29-03-2013** | #6

Сегодня проверил на XP и расстроился. Пробовал и от имени главного Администратора (через Runas) с заданием пароля - все равно выдает серийник в этом странном 16-ричном формате. Ну что ему еще сделать?

Dragokas · Отправлено: **21:34, 29-03-2013** | #7

Помогли на другом форуме:

Преобразование идет попарно HEX -> 10-ричная СС -> Chr
Нет ли готового скрипта для этого?

CyberDaemon · Отправлено: **23:00, 29-03-2013** | #8

0x2020202020202020202020203157304641444b57 == "<12 пробелов>1W0FADKW" != "W1F0DAWK", т.е. оно "little endian" и там еще нужно байты попарно менять местами.

Dragokas · Отправлено: **02:14, 30-03-2013** | #9

Спасибо. Готово.

Код:

@echo off
Setlocal EnableExtensions EnableDelayedExpansion

set x16=434f2d5a3238585741315758374437454f303856
Call :Hex_To_String "%x16%" str
echo.%str%

pause>nul
exit /B


:Hex_To_String %1-in.Reversed.Hex.Number %2-out.String
  SetLocal& set "x16=%~1"
  set n=45
  for %%A in (- . / 0 1 2 3 4 5 6 7 8 9) do set s.!n!=%%A& set /a n+=1
  set n=65
  for %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set s.!n!=%%A& set /a n+=1
  set n=97
  for %%A in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do set s.!n!=%%A& set /a n+=1
  set xs=
  for /L %%C in (0,4,8184) do (
    if "!x16:~%%C,1!"=="" goto _ex_Hex
    set /A cplus=%%C+2
    call set /A x10=0x%%x16:~!cplus!,2%%
    call set xs=!xs!%%s.!x10!%%
    set /A x10=0x!x16:~%%C,2!
    call set xs=!xs!%%s.!x10!%%
  )
  :_ex_Hex
  EndLocal& set "%~2=%xs%"& Exit /B