[greg zakharov]

В общем виде более детальная информация об активации (берется из значений DigitalProductId и DigitalProductId4, некоторые из полей структур отправлены в /dev/null).

Код:

@set @lic=0 /*
  @echo off
    set @lic=
    cscript /nologo /e:jscript "%~f0"
  exit /b
*/

(function() {
  Array.prototype.getString = function(b, e) {
    return String.fromCharCode.apply(null, this.slice(b, e));
  }
  
  Array.prototype.getCdKey = function(b, e) {
    var i, j, key = '', raw = this.slice(b, e),
        map = 'BCDFGHJKMPQRTVWXY2346789'.split('');
    
    for (i = 24; i >= 0; i--) {
      var k = 0;
      for (j = 14; j >= 0; j--) {
        k = (k << 8) + raw[j];
        raw[j] = (k / 24) & 255;
        k %= 24;
      }
      key = map[k] + key;
      if ((i % 5) === 0 && i !== 0) key = '-' + key;
    }
    
    return key;
  }
  
  Array.prototype.getUString = function(b, e) {
    var arr = this.slice(b, e);
    
    for (var i = 0; i < arr.length; i++) {
      if (arr[i] === 0) arr.splice(i, 1);
    }
    
    return String.fromCharCode.apply(null, arr);
  }
  
  var key = 'HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\DigitalProductId',
      dpi, dpi4;
  
  try {
    with (new ActiveXObject('WScript.Shell')) {
      dpi = RegRead(key).toArray();
      dpi4 = RegRead(key + 4).toArray();
    }
    
    WScript.echo('ProductId    : ' + dpi.getString(9, 31));
    WScript.echo('EditionId    : ' + dpi.getString(36, 45));
    WScript.echo('CdKey        : ' + dpi.getCdKey(52, 67));
    WScript.echo('AdvancedId   : ' + dpi4.getUString(8, 135));
    WScript.echo('ActivationId : ' + dpi4.getUString(136, 263));
    WScript.echo('EditionType  : ' + dpi4.getUString(280, 600));
    WScript.echo('KeyType      : ' + dpi4.getUString(1016, 1143));
    WScript.echo('EULA         : ' + dpi4.getUString(1144, 1272));
  }
  catch (e) {
    WScript.echo(e.message);
  }
}());

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

[greg zakharov]

Напоследок (может кому пригодится). Набросал на Си консольное приложение pk.exe (от product key). Если закинуть в одну из директорий переменной %path% удобно дампить данные об активации из батников. Например:

Код:

@echo off
  setlocal
    for /f "tokens=2* delims=:" %%i in (
      'pk ^| findstr /i eula'
    ) do set "eula=%%i"
    echo %eula: =%
  endlocal
exit /b

В архиве помимо прочего описание структур DigitalProductId и DigitalProductId4.