Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Регистрационный код

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

Ветеран


Сообщения: 2204
Благодарности: 729


Конфигурация

Профиль | Отправить PM | Цитировать

Изменения
Автор: sov44
Дата: 10-03-2011
Описание: поправил скрипт
Нашел в инете скрипт по определению регистрационного кода 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

Отправлено: 09:13, 10-03-2011

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

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

Отправлено: 09:37, 10-03-2011 | #2



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

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


Ветеран


Сообщения: 2204
Благодарности: 729

Профиль | Отправить PM | Цитировать

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

Отправлено: 09:58, 10-03-2011 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

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

Отправлено: 10:11, 10-03-2011 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Регистрационный код

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
EventID - Код: 1041 Источник: Userenv и Код:7000 Источник: Service Control Manager СКОРПИ63 Устранение критических ошибок Windows 2 15-02-2011 14:15
EventID - Код: 6006 , код: 6009, код: 6005. Источник - Eventlog. Panathinaikos Устранение критических ошибок Windows 6 15-04-2010 16:22
Установка - На ноутбуке есть регистрационный код (наклейка),как установить Windows имея этот код? Bara Microsoft Windows 2000/XP 9 10-02-2010 07:13
EventID - Источник: System Error, Код события: 1003, Код ошибки 00000093 Work700 Устранение критических ошибок Windows 7 24-08-2008 21:51
EventID - Код: 1000 в модуле ConnectionServices.dll; Код: 0 Источник: NMIndexingService nerona Устранение критических ошибок Windows 15 17-01-2008 22:47


« Предыдущая тема | Следующая тема »


 
Переход