Скрипт Серийный номер Windows XP

Создаем файлик getkey.vbs содержащий:

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

При запуске файла getkey.vbs на экране покажется серийный номер Windows.

Скрипт Серийный номер Windows XP: 4 комментария

  1. Turbo

    Мало ли это будет кто копировать и сохранять — все двойные кавычки в скрипте придётся вручную заменять. Не тот код чтоли… я точно не знаю 🙂

    А вообще за ксриптец спасибо. Только для чего он может пригодиться? 🙂

  2. admin Автор записи

    Была странность при копировании — подправил, теперь нормально копируется через буфер обмена.
    Еще добавил сам файл getkey.vbs чтобы его можно было скачать готовым.
    Для чего может пригодиться скрипт? Тут много вариантов. 🙂
    Например, чтобы провести инвентаризацию: сравнить серийники системы Windows и что на наклейке COA, если возникла такая задача.

  3. Spartack

    Нет ли случайно этого скрепта просто на VB (WinForm)

Добавить комментарий

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.