[Angry Demon]

talich2006, что советуют люди:

1) Click the option that launches an Internet Browser 2) Type: %windir%\system32 into the address field 3) Find the file cmd.exe 4) Right-click on cmd.exe and select Run as Administrator 5) Type: cscript %windir%\System32\slmgr.vbs /ilc %windir%\System32\licensing\ppdlic\Security-Licensing-SLC-ppdlic.xrm-ms 6) Hit the Enter key 7) Reboot twice 1) Return to the cmd windows 2) Type: net stop slsvc (it may ask you if you are sure, select yes) 3) Type: cd %windir%\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareLicensing 4) Type: rename tokens.dat tokens.bar 5) Type: cd %windir%\system32 6) Type: net start slsvc 7) Type: cscript slmgr.vbs -rilc (It may take a long time for this to complete, please be patient) 8) Reboot Twice 9) You may be required toRe-enter your Product Key and/or to Re-Activate.

1) Login to in Normal Mode (not safe mode) 2) Launch an Internet Browser 3) Type: %windir%\system32\ in the browser's address field 4) Scroll down till you find the file cmd.exe 5) Right-click the file and select 'Run as Administrator' 6) In the CMD window, type: sfc /scannow 7) Reboot twice and see if that resolves the issue.

[talich2006]

Выдает следующее (на прикрепленном)

[Petya V4sechkin]

talich2006, а что в файле slmgr.vbs в 2007-й строке?

[talich2006]

Private Function GetPrimarySKUType()
Dim objProduct
Dim strPrimarySKUType, strDescription
Dim iIsPrimaryWindowsSku

Dim objWinProductsWithPKeyInstalled

Set objWinProductsWithPKeyInstalled = g_objWMIService.ExecQuery( _
"SELECT ApplicationId, PartialProductKey, LicenseIsAddon, Description " & _
"FROM " & PRODUCT_CLASS & " " & _
"WHERE ApplicationId = '" & WINDOWS_APPID & "' " & _
"AND PartialProductKey <> NULL" _
)

For Each objProduct in objWinProductsWithPKeyInstalled (2007 СТРОКА)
iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)
If (iIsPrimaryWindowsSku = 1) Then
strDescription = objProduct.Description
If (IsKmsServer(strDescription) Or IsKmsClient(strDescription)) Then
strPrimarySKUType = strDescription
Else
strPrimarySKUType = NonKMSPrimaryKey
End If
Exit For 'no need to continue
ElseIf ((iIsPrimaryWindowsSku = 2) And strPrimarySKUType = "") Then
strPrimarySKUType = IndeterminatePrimaryKeyFound
End If
Next

[talich2006]

Мне кажетмя в службе Software LIcensing

я пробовал перезапускать эту службу - ошибку эту показывает