Регистрационный код - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Регистрационный код (http://forum.oszone.net/showthread.php?t=201574)

sov44

10-03-2011 09:13 1631243

Регистрационный код

Нашел в инете скрипт по определению регистрационного кода Windows. Хотелось узнать, верно ли он определяет? Возможно ли кроме информации о ключе вывести версию Windows, сведения о ключе (OEM, VL, Retail) и пр. с опросом компьютеров в домене.

Код:

Key = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"

set wshshell=createobject("wscript.shell")

Value=wshshell.regread("HKLM\" & Key)

msgbox GetKey(Value)

Function GetKey(byval p)

pc="BCDFGHJKMPQRTVWXY2346789"

for i=0 to 28

a=0

for j=0 to 14

a=p(66-j)+a*256

p(66-j)=(a\24) and 255

a=a Mod 24

next

ProductKey=mid(pc,a+1,1) & ProductKey

if (((i+2) Mod 6)=0) and (i<28) then

i=i+1

ProductKey="-" & ProductKey

End If

next

GetKey=ProductKey

End Function

Iska	10-03-2011 09:37 1631266

Только для тех ОС, где ключ хранится в реестре. На новых ОС: Vista/Server 2008, Windows 7/Server 2008 R2 — он может не работать (кстати, Вы ошиблись при копировании: «msgbox GetKey(Value) Function GetKey(byval p)» — это две строки). Для этих новых ОС можно использовать стандартные средства, дабы определить последние пять символов ключа продукта, что вполне достаточно, чтобы определить, какую именно из имеющихся наклеек нужно клеить, если Вы этого сразу не сделали.

sov44

10-03-2011 09:58 1631292

Возможно ли выполнить опрос компьютеров по сети ( в основном Windows XP) и собрать с них информацию типа:
компьютер - 7-1
операционная система - Windows XP SP3
Регистрационный ключ - хххх-хххх-хх.....
сведения о ключе - OEM

Iska	10-03-2011 10:11 1631309

Вопрос такой поднимался на форуме, и решения предлагались — можете поискать. Если нет предубеждения к утилитам, то можно воспользоваться ProduKey. Прочтите справку, как его использовать совместно с текстовым файлом, содержащим имена машин, откуда нужно получить информацию.

Время: 17:41.