[El Sanchez]

Ingolder, вдогонку:

первая - чтобы узнать текущий серийник »

Код:

@Echo Off
SetLocal EnableDelayedExpansion

For /F "Tokens=3" %%A In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v DigitalProductId 2^>nul^|Find "REG_BINARY"') Do (
	Set Chars="BCDFGHJKMPQRTVWXY2346789"
	Set DigitalProductId=%%A
	Set DigitalProductId=!DigitalProductId:~104,30!
	For /L %%B In (0, 1, 24) Do (
		Set Var=0
		For /L %%C In (28, -2, 0) Do (
			Call Set /A Var=0x!DigitalProductId:~%%C,2!+!Var!*256
			Set /A BytesBeforeOffset=%%C
			Set /A BytesAfterOffset=%%C+2
			Set /A BytesChanged="(!Var!/24)&255"
			Call :ChangeDigitalProductId "!BytesBeforeOffset!" "!BytesChanged!" "!BytesAfterOffset!"
			Set /A Var=!Var!%%24
		)
		Set /A Num=!Var!+1
		Call Set LicenseKey=%%Chars:~!Num!,1%%!LicenseKey!
	)
)
If Not "!LicenseKey!"=="" (
	Echo !LicenseKey:~0,5!-!LicenseKey:~5,5!-!LicenseKey:~10,5!-!LicenseKey:~15,5!-!LicenseKey:~20,5!
) Else (
	Echo Get registry data error^^!
)
EndLocal
GoTo:EOF

:ChangeDigitalProductId
	Set HexChars=0123456789ABCDEF
	If %~2 LSS 16 (
		Set /A lBytePos=%~2
		Set /A hBytePos=0
	) Else (
		Set /A lBytePos=%~2%%16
		Set /A hBytePos=%~2/16
	)
	Call Set DigitalProductId=!DigitalProductId:~0,%~1!%%HexChars:~%hBytePos%,1%%%%HexChars:~%lBytePos%,1%%!DigitalProductId:~%~3!

чтобы сменить на другой »

http://forum.oszone.net/showthread.php?t=83157

[sov44]

El Sanchez, подскажите, как вывести тип лицензии Windows (OEM, Retail, VL), Home или Pro ?

[sov44]

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

Код:

@echo off
For /F "Skip=4 Tokens=3 delims=	" %%A In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /V ProductId') Do Set Prod=%%A
echo %Prod%
pause

выводится значение типа xxxxx-yyy-zzzzzzz-zzzzz
Не знаю как присвоить второму значению переменную %yyy% и сделать перебор этой переменной с выводом на экран типа лицензии.
Варианты перебора yyy:
yyy = 000, 007, 335 - Retail
yyy = 270, 640-652, 699 - VLK
yyy = OEM - OEM

[El Sanchez]

как вывести тип лицензии Windows (OEM, Retail, VL), Home или Pro ? »

sov44,

Код:

@Echo Off
For /F "Tokens=3" %%A In ('Reg Query HKLM\SYSTEM\Setup\Pid /v Pid^|Find "REG_SZ"') Do Set PID=%%A
For /F "Tokens=1* Delims==" %%A In ('WMIC OS GET Caption /VALUE 2^>nul^|Find "="') Do Set Edition=%%B

Echo Edition: %Edition%
:: CIDs
rem 000 : Other (includes some retail, upgrade and evaluation versions) (includes (some?) MSDNAA discs) 
rem 006 : MS or Partner promotions 
rem 007 : FIXME : Retail 
rem 009 : Not for resale - bundle 
rem 011 : Upgrade (XP Home?) 
rem 013 : Upgrade (XP Pro) 
rem 071 : FIXME : Unknown. 
rem 083 : Windows Genuine Advantage 
rem OEM : OEM (This does not specify royalty or normal OEM) 
rem 270 : Volume License 
rem 296 : MSDN 
rem 308/347 : Microsoft Action Pack subscription 
rem 335 : Retail 
rem 640 through 652 : Volume License (usually generated via 270 CID in setupp.ini) 
rem 699 : Volume Windows XP Tablet Edition 
rem 770 : Retail (at least according to WGA Diagnostic) 

If "%PID:~-3%"=="OEM" Echo Channel: OEM
If "%PID:~-3%"=="270" Echo Channel: VLK
:: etc

[sov44]

El Sanchez, похоже вы меня опередили с ответом

в моём серийнике второе значение 640. По идее должно писать VLK, а пишет Caption

[El Sanchez]

в моём серийнике второе значение 640. По идее должно писать VLK, а пишет Caption »

Токеном ошибся , исправьте в 3 строке Set Edition=%%A на Set Edition=%%B.
И я не все CID'ы расписывал (см. последние строки, там только OEM и VLK(270)), список CID'ов выше. Нужное сами допишете?

[sov44]

El Sanchez, всё ОК! Спасибо!
В качестве самообразования, не могли бы вы прокомментировать третью строчку вашего скрипта?

Расписал все CID'ы. Почему то всё равно при значении 640 в pid не приделяется VLK.
VLK определяется, как будто у меня в pid значение 270

Как то непонятно, по какому пути определяется тип лицензии?
в HKEY_LOCAL_MACHINE\SYSTEM\Setup\Pid Pid=xxxxx270
в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion ProductId=xxxxx-640-xxxxxxx-xxxxx

[El Sanchez]

В качестве самообразования, не могли бы вы прокомментировать третью строчку вашего скрипта? »

WMIC OS GET Caption /VALUE 2>nul|Find "=" - цепочка команд, результат которой будем обрабатывать командой For.
WMIC OS GET Caption /VALUE - при помощи утилиты для работы с WMI получаем значение свойства Caption, доступного в псевдониме OS, в формате свойство=значение (параметр /VALUE); 2>nul - ошибки WMIC перенаправляем в никуда; Find "=" - фильтруем результат WMIC, ищется нужная строка, содержащая символ =.
Далее в For разбиваем результат на подстроки (1-я подстрока это Caption, все остальное идет во 2-ю подстроку - Tokens=1*), где в качестве разделителя подстрок служит символ = (Delims==) и присваиваем переменной Edition значение 2-й подстроки (%%B).

Как то непонятно, по какому пути определяется тип лицензии? в HKEY_LOCAL_MACHINE\SYSTEM\Setup\Pid Pid=xxxxx270 в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion ProductId=xxxxx-640-xxxxxxx-xxxxx »

Я использовал 1-й вариант.

[sov44]

El Sanchez, можно ли кроме как

Код:

WMIC OS GET Caption /VALUE

получить информацию о версии Home / Pro ? Команда хорошо работает под админом, а из-под юзера не хочет.

[Iska]

Где брали сам список CID'ов?