Ситуация SOS
Где живёт серийник Виндовс в какой ветке реестра ?

Если его ввести туда, нарушится ли работоспособность Виндовс ?

В одну ли Ветку вводить ?

(0) Гыы...  Не гоношись - ты уже спалился...  :)

положим, установить дистриб , не активируя его, Еверест номер серийника покажет ?
(на предемет восстановления серийников у обезличеных дистрибов )

(2) Эверест покажет

VBS скрипт, показывающий серийный № винды и офиса:
---------------------------------------------------------

Set WshShell = CreateObject("WScript.Shell")
MicroSoft = "HKLM\SOFTWARE\Microsoft"
DigitalProductIdWindows = MicroSoft & "\Windows NT\CurrentVersion\DigitalProductId"
On Error Resume Next
Set Word = CreateObject("Word.Application")
DigitalProductIdOffice = MicroSoft & "\Office\" & word.Version & "\Registration\" & _
   word.ProductCode & "\DigitalProductId"
If Err.Number = 0 Then
   Word.Quit
   OfficeKey = GetKey(WshShell.RegRead(DigitalProductIdOffice))
   WScript.Echo "Љ«оз MS Office: " & OfficeKey
Else
   WScript.Echo "‚®§¬®¦­®, MS Office ­Ґ гбв ­®ў«Ґ­."
End If
On Error GoTo 0

WindowsKey = GetKey(WshShell.RegRead(DigitalProductIdWindows))
WScript.Echo "Љ«оз Windows: " & WindowsKey

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

WinKeyFinder
качнул не запускается, говорит не регистрирована
пробую regsvr32 - не помогает

попробуй скрипт:
'-------------------------------------------- getXPkey.vbs ----------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
strDigitalProductId="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"
'strOffXP="HKLM\SOFTWARE\Microsoft\Office\10.0\Registration\{91110419-6000-11D3-8CFE-0050048383C9}\DigitalProductId"
'strOffXP="HKLM\SOFTWARE\Microsoft\Office\10.0\Registration\{90280409-6000-11D3-8CFE-0050048383C9}\DigitalProductId"
'strOffXP="HKLM\SOFTWARE\Microsoft\Office\11.0\Registration\{90170409-6000-11D3-8CFE-0150048383C9}\DigitalProductId"
'strOffXP="HKLM\SOFTWARE\Microsoft\Office\11.0\Registration\{90110419-6000-11D3-8CFE-0150048383C9}\DigitalProductId"
CRLF = Chr(13) & Chr(10)
strXPKey=GetKey(WshShell.RegRead(strDigitalProductId))
'strOffXPKey=GetKey(WshShell.RegRead(strOffXP))
'CopytoClipboard
set ie=CreateObject("internetExplorer.application")
ie.navigate "about:blank"
do until ie.readystate=4: wscript.sleep 1: loop
ie.document.parentwindow.clipboardData.setData "Text", strXPKey
MsgBox "WinXP:" & strXPKey & chr(13) & "key in clipboard" & CRLF ''''''''''''''''''& "OffXP:" & strOffXPKey
Function GetKey(rpk)
Const rpkOffset=52:i=28
szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
Do 'Rep1
dwAccumulator=0 : j=14
Do
dwAccumulator=dwAccumulator*256
dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
rpk(j+rpkOffset)=(dwAccumulator\24) and 255
dwAccumulator=dwAccumulator Mod 24
j=j-1
Loop While j>=0
i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
if (((29-i) Mod 6)=0) and (i<>-1) then
i=i-1 : szProductKey="-"&szProductKey
End If
Loop While i>=0 'Goto Rep1
GetKey=szProductKey
End Function
'-------------------------------------------- end of getXPkey.vbs ----------------------------------------------