Licencia Windows vinculada a cuenta Microsoft?

[thewizard]

Buenas,

Quería preguntar, yo nunca compré una licencia de Windows 10 Pro. Si lo hice hace años con una Home. Pero desde que tengo este pc le metí la versión pro y he ido poniendo una "no oficial", ya me entienden, ya me decidí a dejar de hacerlo y formateé de cero para instalar Windows 11 y comprar una licencia original, pero ahora, antes de meterle ninguna clave original, me resulta extraño que el pc con Windows 11 me indica que está activado con licencia digital vinculada a mi cuenta Microsoft. Cuando compruebo la licencia con 'slmgr /xpr' en la cmd, me indica que el equipo está activado de forma permanente, cosa que hasta ahora nunca me había pasado, cuando no son originales te indica una fecha de validez. Mi pregunta es, ¿puede ser que en alguna de las veces que pusiera una clave no oficial, al estar logado con la cuenta de Microsoft en el PC, esta se vinculara con la cuenta? Aún así me resulta extraño que una clave random no oficial se haya vinculado a una cuenta, pero otra cosa no puede ser, ya que nunca he adquirido una pro. Espero puedan resolverme la duda.



Aprovecho para preguntar, ¿algún sitio fiable donde comprar una OEM Windows 11 pro?



Gracias, saludos.

 

[FREEMAN]

Buenas,

Quería preguntar, yo nunca compré una licencia de Windows 10 Pro. Si lo hice hace años con una Home. Pero desde que tengo este pc le metí la versión pro y he ido poniendo una "no oficial", ya me entienden, ya me decidí a dejar de hacerlo y formateé de cero para instalar Windows 11 y comprar una licencia original, pero ahora, antes de meterle ninguna clave original, me resulta extraño que el pc con Windows 11 me indica que está activado con licencia digital vinculada a mi cuenta Microsoft. Cuando compruebo la licencia con 'slmgr /xpr' en la cmd, me indica que el equipo está activado de forma permanente, cosa que hasta ahora nunca me había pasado, cuando no son originales te indica una fecha de validez. Mi pregunta es, ¿puede ser que en alguna de las veces que pusiera una clave no oficial, al estar logado con la cuenta de Microsoft en el PC, esta se vinculara con la cuenta? Aún así me resulta extraño que una clave random no oficial se haya vinculado a una cuenta, pero otra cosa no puede ser, ya que nunca he adquirido una pro. Espero puedan resolverme la duda.



Aprovecho para preguntar, ¿algún sitio fiable donde comprar una OEM Windows 11 pro?



Gracias, saludos.

Hola.

Creo que lo importante es tenerlo activado, y si es de forma permanente, mejor que mejor. ¿Para qué quieres ponerle otra?

Puede que tengas puesta una licencia genérica de Microsoft.

Windows 10/11 Home
YTMG3-N6DKC-DKB77-7M9GH-8HVX7
TX9XD-98N7V-6WMQ6-BX7FG-H8Q99

Windows 10/11 Pro
VK7JG-NPHTM-C97JM-9MPGT-3V66T
W269N-WFGWX-YVC9B-4J6C9-T83GX

 

[thewizard]

Hola, gracias por tu respuesta.

Si, lo importante es tenerlo activado. Es solo la duda que tenía, ya que me parece extraño que se haya activado digitalmente con una licencia vinculada a mi cuenta, cuando nunca he comprado una licencia con mi cuenta. Puede que tenga una genérica si. No sé, es extraño jejeje

 

[FREEMAN]

Hola, gracias por tu respuesta.

Si, lo importante es tenerlo activado. Es solo la duda que tenía, ya que me parece extraño que se haya activado digitalmente con una licencia vinculada a mi cuenta, cuando nunca he comprado una licencia con mi cuenta. Puede que tenga una genérica si. No sé, es extraño jejeje

No sé exactamente el motivo. Puede que otro compañer@ sepa.
----------------------------
Si quieres ver si la licencia es una de las genéricas que te he puesto, puedes crear un Script.
Copia y pega el siguiente código que te dejo dentro del Spoiler en un Block de notas,

Spoiler

Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

y lo guardas en el Escritorio por ejemplo con el nombre: Licencia.vbs

Una vez hecho, ejecuta el archivo.

 

[thewizard]

No sé exactamente el motivo. Puede que otro compañer@ sepa.
----------------------------
Si quieres ver si la licencia es una de las genéricas que te he puesto, puedes crear un Script.
Copia y pega el siguiente código que te dejo dentro del Spoiler en un Block de notas,

Spoiler

Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

y lo guardas en el Escritorio por ejemplo con el nombre: Licencia.vbs

Una vez hecho, ejecuta el archivo.

Gracias, lo revisaré!

 

[thewizard]

Hola.

Creo que lo importante es tenerlo activado, y si es de forma permanente, mejor que mejor. ¿Para qué quieres ponerle otra?

Puede que tengas puesta una licencia genérica de Microsoft.

Windows 10/11 Home
YTMG3-N6DKC-DKB77-7M9GH-8HVX7
TX9XD-98N7V-6WMQ6-BX7FG-H8Q99

Windows 10/11 Pro
VK7JG-NPHTM-C97JM-9MPGT-3V66T
W269N-WFGWX-YVC9B-4J6C9-T83GX

Lo saqué al final del registro que me era mas rápido. Efectivamente tengo una genérica de las que has mencionado. En concreto esta: VK7JG-NPHTM-C97JM-9MPGT-3V66T

¿Y como que se ha puesto esa? ¿es "malo" eso? ¿No me aconsejáis hacerme con una licencia oficial OEM? Gracias de nuevo!

 

[FREEMAN]

Lo saqué al final del registro que me era mas rápido. Efectivamente tengo una genérica de las que has mencionado. En concreto esta: VK7JG-NPHTM-C97JM-9MPGT-3V66T

¿Y como que se ha puesto esa? ¿es "malo" eso? ¿No me aconsejáis hacerme con una licencia oficial OEM? Gracias de nuevo!

Esa la tengo Yo también desde que tenía Win7, pasó a Win10, y ahora con Win11.
Y me funciona perfectamente sin ningún problema.

 

[campeon78]

Es probable que pillaras la época en la que usar la cuenta de Microsoft para logear, te daba una licencia activada.

 

[thewizard]

Esa la tengo Yo también desde que tenía Win7, pasó a Win10, y ahora con Win11.
Y me funciona perfectamente sin ningún problema.

Genial, gracias por todo FREEMAN!

 

[thewizard]

Es probable que pillaras la época en la que usar la cuenta de Microsoft para logear, te daba una licencia activada.

Puede ser. Gracias!

 

[Mike518]

¿algún sitio fiable donde comprar una OEM Windows 11 pro?

Tienes este;

Con lo que te ahorras ahora en tu GPU ya puedes comprar Windows 10 por 7 euros

El precio de las GPUs de segunda mano está en caída libre, así que ya no hay excusa para al menos usar Windows 10 de manera legal.

elchapuzasinformatico.com

Si alguna vez la necesitaras, te aconsejo que compres una de Windows 10, es igual de válida lo único que tienes que activarla en Windows 10, y son más baratas.
Después instalar Windows 11

 

[Jesusete]

Yo en su dia no se que venazo me dio y adquiri una key digital en el store de Microsoft, esta ligada a mi hotmail de por vida, me costo una pasta pero con logearme con mi hotmail en la instalacion me la coge sin problema, eso si me costo bastante mas de 100€,a dia de hoy que hay licencias baratisimas no creo merezca la pena y mas aun cuando hasta legalmente puedes activar windows gratis de distintas formas.

 

[Jake el perro]

Una pregunta esas claves no te conecta a servidores tipo kms o algo así esque yo también tengo esa y no soy capaz de quitarla y me ha entrado la paranoia por que vio un video de tiktok del pacoweb de eso

 

[thewizard]

Una pregunta esas claves no te conecta a servidores tipo kms o algo así esque yo también tengo esa y no soy capaz de quitarla y me ha entrado la paranoia por que vio un video de tiktok del pacoweb de eso

Hola. Supongo que sí, claro. Yo sigo aún con ella y sigue activado.

En cuanto al video, no sé que video es ni que dicen en el sobre eso, por lo que no te puedo decir mucho.