Как то на досуге...
(вполне подвержен оптимизации)

echo off
setlocal enabledelayedexpansion
for /f "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v DigitalProductId') do (
   set x=%%~i
   )
for /l %%z in (0,2,1000) do (
   if "!x:~%%z,2!"=="" goto break
   set /a n=0x!x:~%%z,2!
   set array=!array! !n!
   )
:break
call :getkey "%array%"
echo Ключ виндуз: %getkey%
pause
exit /b

:getkey (p) {
   setlocal enabledelayedexpansion
   set opt=%~1
   set out=%~0
   set pc=BCDFGHJKMPQRTVWXY2346789
   set x=0
   for /l %%i in (0,1,28) do (
       if !x! gtr 28 goto break_2
       set a=0
       for /l %%j in (0,1,14) do (
           set /a n=66 - %%j
           set e=0
           set p=!opt!
           set opt=
           for %%z in (!p!) do (
               set z=%%z
               if !e! equ !n! (
                   set /a a=%%z + !a! * 256
                   set /a z="( !a! / 24 ) & 255"
                   set /a a%%=24
                   )
               set opt=!opt! !z!
               set /a e+=1
               )
           )
       for %%z in (!a!) do set key=!pc:~%%z,1!!key!
       set /a f="( !x! + 2 ) %% 6"
       if !f! equ 0 if !x! lss 28 (
           set /a x+=1
           set key=-!key!
           )
       <nul set /p u=.
       set /a x+=1
       )
:break_2
   echo.
   endlocal & set %out:~1%=%key%
   exit /b
   }


"Папа, это ты сейчас с кем разговаривал...?" ;-)

запустил.. что-то делает.. долго так...

мдя.. работало работало хрясь БСОД!
но ты не баись! все ок - это у мну схемотехнке уже лет 8 на компе... перегрузился - работает! инфу дало!

а не боюся )) опробовано, но это так для баловства, хотя и не бесполезно

а!

буквакитока перед ключом кракозябами

(6) ну напиши по англицки или chcp 1251 > nul
или сохрани в 866

конечно в всш или даже адинесе все гораздо быстрее, но хобби

понтанулся... прикольно, теперь я знаю серийник спизженой винды ;)

4. все равно все умрем...
5. нас рать!

хм. оно.
один хрен победят татары

ну и досуг ))
возьму на всякий, до этого пользовался где-то найденным vbs.

Значительно оптимизированная версия (раз в сто)

echo off
setlocal enabledelayedexpansion
for /f "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v DigitalProductId') do (
   set x=%%~i
   )
for /l %%z in (104,2,130) do (
   set /a array[%%z]=0x!x:~%%z,2!
   )
:break
call :getkey
echo %getkey%
exit /b

:getkey (p) {
   setlocal enabledelayedexpansion
   set out=%~0
   set pc=BCDFGHJKMPQRTVWXY2346789
   set x=0
   for /l %%i in (0,1,28) do (
       if !x! gtr 28 goto break_2
       set a=0
       for /l %%j in (130,-2,104) do (
           set /a a=array[%%j] + !a! * 256
           set /a array[%%j]="( !a! / 24 ) & 255"
           set /a a%%=24
           set /a n=%%j
           )
       for %%z in (!a!) do set key=!pc:~%%z,1!!key!
       set /a f="( !x! + 2 ) %% 6"
       if !f! equ 0 if !x! lss 28 (
           set /a x+=1
           set key=-!key!
           )
       <nul set /p u=.
       set /a x+=1
       )
:break_2
   echo.
   endlocal & set %out:~1%=%key%
   exit /b
   }


ммм

(13)
Это типа он показал, какой он крутой спец :)

(14) да, а ты бабло гони

да, без регэкспов в пакетниках тяжело

(16) а они есть если чо, тока они тут не очень то нужны

кому не лень сравните оба варианта

(15) Так можешь для тех кто в тяжелой технике пояснишь, куды это вставлять.

второй вариант на вин 7 про неработает

(19) спасибо, гляну

ошибся в цифирях

echo off
setlocal enabledelayedexpansion
for /f "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v DigitalProductId') do (
   set x=%%~i
   )
for /l %%z in (104,2,132) do (
   set /a array[%%z]=0x!x:~%%z,2!
   )
call :getkey
echo Ключ виндуз: %getkey%
pause > nul
exit /b

:getkey (p) {
   setlocal enabledelayedexpansion
   set out=%~0
   set pc=BCDFGHJKMPQRTVWXY2346789
   set x=0
   for /l %%i in (0,1,28) do (
       if !x! gtr 28 goto break
       set a=0
       for /l %%j in (132,-2,104) do (
           set /a a=array[%%j] + !a! * 256
           set /a array[%%j]="( !a! / 24 ) & 255"
           set /a a%%=24
           set /a n=%%j
           )
       for %%z in (!a!) do set key=!pc:~%%z,1!!key!
       set /a f="( !x! + 2 ) %% 6"
       if !f! equ 0 if !x! lss 28 (
           set /a x+=1
           set key=-!key!
           )
       <nul set /p u=.
       set /a x+=1
       )
:break
   echo.
   endlocal & set %out:~1%=%key%
   exit /b
   }


(19) можешь еще проверить ?

твою бы энергию да в нужное русло

(22) теперь работает, гораздо быстрее первого

Спасибо

сам серийник какую-нибудь избыточность содержит, что можно часть его восстановить?

в смысле часть ?

(27)Есть нетбук, на нем наклейка сильно потерта, из системы выдергивается вообще левый серийник

(0) А зачем все это?
Есть прекрасные проги которые вытягивают серийники не только по винде но и много чему еще. И все в одном. И работает быстро.
Так что - незач_от.
Пойди лучше проведи досуг с семьей.

(28) такое возможно для оем

(29) а проги эти от святого духа появляются ?

(30) не понял сказанного

(30) серийник может отличаться чтоли?

+(28) там даже 2 наклейки, одна на другой - не понятна...

(33) может

(35) это порадовало, но почему их две?

Нужно писать, на каких версиях Винды тестировался скрипт. А то выглядит как пук в лужу. У меня самый последний вариант на Windows Server 2008 R2 Enterprise x64 в 32- и 64-битной командной  строке с просроченным триалом не сработал, типа нет такой ветки в реестре.
Насколько я читал на руборде, серверные дистрибы Винды сейчас отключаются только вложенными в них дефолтными ключами.

читайте дальше руборды

для особо одаренных - проверено на winXP x32/vista x32/win7 x32/win2003 x32

(37) руки выпрямить и башкой о стену не предлагать ?