Problem z przywracaniem

[Pablo.]

siemka.. nie wiem gdzie to napisać a więc napisze tutaj.. mam problemy z przywracaniem mianowicie gdy chce przywrócić piszę mi że potrzebuje nosnika..

LAPTOP LENOVO z500 z opcją 1k recovery 

gdy uruchamiam na wylaczonym kompie recovery pokazuje sie black screen a na srodku TIP : One Key Recovery partition has damaged, so do not launch the main application..

 

 

jeśli ktoś mógłby pomóc to bardzo proszę bo zależy mi na wyczyszczeniu komputera (najlepiej do ust. fabrycznych) a nie zeby formatowac dyski i kolejnego windowsa kupowac..

 

 

[Pablo.]

@topic

to pomoze ktos? bardzo bym prosił.

[RobeM]

załatw sobie windows na CD 

 

było nagrać sobie płytkę z systemem, praktycznie każde recovery ma taką opcję i należy to zrobić na samym początku po kupnie 

[Aranthor]

jeśli ktoś mógłby pomóc to bardzo proszę bo zależy mi na wyczyszczeniu komputera (najlepiej do ust. fabrycznych) a nie zeby formatowac dyski i kolejnego windowsa kupowac..

 

Tak jak napisał @@RobeM, pobierz Windowsa i nagraj go sobie na płytę. Wtedy będziesz mógł 'odświeżyć' komputer.

 

Po formacie nie ma potrzeby kupować nowego Windowsa. Wystarczy zapisać obecny klucz i podać go przy instalacji nowego systemu.

Poniżej podaję skrypt .vbs, który odczytuje klucz do systemu:

 

 

 

 '  ##############################################################
 '  #        #
 '  # VBScript to find the DigitalProductID for your  #
 '  # Microsoft windows Installation and decode it to  #
 '  # retrieve your windows Product Key    #
 '  #        #
 '  # -----------------------------------------------  #
 '  #        #
 '  #  Created by:  Parabellum   #
 '  #        #
 '  ##############################################################
 '
 ' <--------------- Open Registry Key and populate binary data into an array -------------------------->
 '
 const HKEY_LOCAL_MACHINE = &H80000002 
 strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
 strValueName = "DigitalProductId"
 strComputer = "."
 dim iValues()
 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
       strComputer & "\root\default:StdRegProv")
 oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues
 Dim arrDPID
 arrDPID = Array()
 For i = 52 to 66
 ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
 arrDPID( UBound(arrDPID) ) = iValues(i)
 Next
 ' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
 Dim arrChars
 arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")
 
 ' <--------------- The clever bit !!! (Decrypt the base24 encoded binary data)-------------------------->
 For i = 24 To 0 Step -1
 k = 0
 For j = 14 To 0 Step -1
  k = k * 256 Xor arrDPID(j)
  arrDPID(j) = Int(k / 24)
  k = k Mod 24
 Next
 strProductKey = arrChars(k) & strProductKey
 ' <------- add the "-" between the groups of 5 Char -------->
 If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
 Next
 strFinalKey = strProductKey
 '
 ' <---------- This part of the script displays operating system Information and the license Key --------->
 '
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
 For Each objOperatingSystem in colOperatingSystems
    strOS   = objOperatingSystem.Caption
    strBuild   = objOperatingSystem.BuildNumber
    strSerial   = objOperatingSystem.SerialNumber
    strRegistered  = objOperatingSystem.RegisteredUser
 Next
 Set wshShell=CreateObject("wscript.shell")
 strPopupMsg = strOS & vbNewLine & vbNewLine
 strPopupMsg = strPopupMsg & "Build Number:  " & strBuild & vbNewLine
 strPopupMsg = strPopupMsg & "PID:  " & strSerial & vbNewLine & vbNewLine
 strPopupMsg = strPopupMsg & "Registered to:  " & strRegistered & vbNewLine & vbNewLine & vbNewLine
 strPopupMsg = strPopupMsg & "Your Windows Product Key is:" & vbNewLine & vbNewLine & strFinalKey
 strPopupTitle = "Microsoft Windows License Information"
 wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation
 WScript.Quit
  

 

 

[Pablo.]

komputer został zakupiony z systemem już wgranym..

[Aranthor]

Pablo., w 22 Lut 2015 - 13:15, powiedział:

 

komputer został zakupiony z systemem już wgranym..

 

@@Pablo. no właśnie po to podałem ten skrypt, aby odczytać ten klucz w razie gdyby nie było go na obudowie ani nigdzie indziej. Znajduje się on w spoilerze lub na stronie: http://www.visualbasicscript.com/Retrieve-Windows-Product-Key-m42793.aspx

[RobeM]

nagraj sobie płytkę z systemem , praktycznie każde recovery to robi ze swojego oprogramowania 

 

tak przy okazji, w sofcie LENOVO  jest oprogramowanie spyware itp , najlepiej czysty mieć Windows i bez softu dla laptopa 

[Pablo.]

jesli moglbym prosic po polsku