VBS/WSH/JS - Регистрационный код

[sov44]

Нашел в инете скрипт по определению регистрационного кода 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]

Только для тех ОС, где ключ хранится в реестре. На новых ОС: Vista/Server 2008, Windows 7/Server 2008 R2 — он

может не работать

(кстати, Вы ошиблись при копировании: «msgbox GetKey(Value) Function GetKey(byval p)» — это две строки). Для этих новых ОС можно использовать стандартные средства, дабы определить

последние пять символов ключа продукта

, что вполне достаточно, чтобы определить, какую именно из имеющихся наклеек нужно клеить, если Вы этого сразу не сделали.

[sov44]

Возможно ли выполнить опрос компьютеров по сети ( в основном Windows XP) и собрать с них информацию типа:

компьютер - 7-1

операционная система - Windows XP SP3

Регистрационный ключ - хххх-хххх-хх.....

сведения о ключе - OEM

[Iska]

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

ProduKey

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