Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 3.591 pregleda

Najnovija ↓

Exportovanje Windows 7 licence 26.02.2015. u 21:08 · pre 142 meseca #1
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?
Potpis
Ukoliko se treseš od ljutnje na svaku nepravdu onda si moj suborac. ~Che Guevara
Re: Exportovanje Windows 7 licence 26.02.2015. u 21:31 · pre 142 meseca #2
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.
Potpis
Kako se dele racunarski programi?
Na bagovite (sa greskama) i ispravne (bez gresaka). Ovi drugi su hipoteticki.
***GPL-ovano by @Shadowed

"Ja za email koristim outlook express u virtualnoj mašini, tako da s te strane nijedan linux nije
dorastao XP-u." - pisac
Re: Exportovanje Windows 7 licence 28.02.2015. u 11:13 · pre 142 meseca #4
The Magical Jelly Bean ne radi, ispisuje samo BBBB-BBBB-BBBB-BBBB...
Potpis
Ukoliko se treseš od ljutnje na svaku nepravdu onda si moj suborac. ~Che Guevara
Re: Exportovanje Windows 7 licence 28.02.2015. u 12:06 · pre 142 meseca #5
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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme