На заметку Как узнать серийный номер Win }{P

Версия для печатиВерсия для печати

s\n winxpМожно подглядеть на корпусе, на приклееной наклейке, если ее нет (стерлась, не было вообще) то подсмотреть в реестре. Ну, а можно и следующим способом. Открываем блокнот и пишем

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 i=i+1
ProductKey="-" & ProductKey
End If
next
GetKey=ProductKey
End Function

Получается примерно так

vbs script

Сохраняем сей файл с названием smotrim_key.txt, после чего следует его переименовать, точнее, сменить расширение на vbs. Получится smotrim_key.vbs

После запуска файла видим Key Product установленной системы.

Для справки, vbs - это не вирус как таковой, а Visual Basic Scripting Edition - скриптовый язык программирования, интерпретируемый компонентом Windows Script Host.