Создаем файлик 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 комментария на ««Скрипт Серийный номер Windows XP»»
-
Мало ли это будет кто копировать и сохранять — все двойные кавычки в скрипте придётся вручную заменять. Не тот код чтоли… я точно не знаю 🙂
А вообще за ксриптец спасибо. Только для чего он может пригодиться? 🙂
-
Была странность при копировании — подправил, теперь нормально копируется через буфер обмена.
Еще добавил сам файл getkey.vbs чтобы его можно было скачать готовым.
Для чего может пригодиться скрипт? Тут много вариантов. 🙂
Например, чтобы провести инвентаризацию: сравнить серийники системы Windows и что на наклейке COA, если возникла такая задача. -
Все работает!!!! спасибо большое))))
-
Нет ли случайно этого скрепта просто на VB (WinForm)
Добавить комментарий
Для отправки комментария вам необходимо авторизоваться.