[ notebookFun @ 26.02.2015. 20:08 ] @
Cesto se suocavam sa problemima gdje klijent ima instaliran originalni sistem, recimo Windows 7. Posto po nekad moram da uradim format i ponovo instaliram sistem, a klijent ne ponese disk ili ga ne moze da nadje, postoji li neki nacin da izvucem serial key iz racunara na kojem je instaliran OS?

Probao sam dosta alata i sa piratskim sistemima rade, ali sa originalnim mi izbace serial: BBBB-BBBB-BBBB-BBBB...
Ima li neko neko rjesenje se exportom licence? Pa da je nakon instalacije imporutujem?
[ tuxserbia @ 26.02.2015. 20:31 ] @
Probaj ovo:

http://directedge.us/content/abr-activation-backup-and-restore

Originalno za Vistu, imaš pri dnu beta verziju za Win7.

Provereno radi, OEM licenca, uspešno vraćena na čistu instalaciju, Win7 Home Premium aktiviran bez problema.
[ alasalas @ 27.02.2015. 22:28 ] @
Isto mozes da probas i The Magical Jelly Bean
[ notebookFun @ 28.02.2015. 10:13 ] @
The Magical Jelly Bean ne radi, ispisuje samo BBBB-BBBB-BBBB-BBBB...
[ noreniou @ 28.02.2015. 11:06 ] @
za mene najjednostavniji nacin

otvori se Notepad>
ubaci donja skripta
ode se na
Save as >
sacuva se pod bilo kojim imenom sa ekstenzijom .vbs
tipa broj.vbs il serial.vbs
pokrene se sacuvano i dobije trazeno

Citat:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function