Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1521 connectés 

  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Infrastructures serveurs

  Numero de licence Windows 2008

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Numero de licence Windows 2008

n°50825
[MCS]
Posté le 12-03-2009 à 11:40:26  profilanswer
 

Bonjour,
 
J'ai installé un serveur SBS 2008 chez un client, il me faudrait le numero de licence de ce serveur.
Est ce que quelqu'un a moyen de recuperer la licence en se connectant sur le serveur ?

mood
Publicité
Posté le 12-03-2009 à 11:40:26  profilanswer
 

n°50833
bbr241
Posté le 12-03-2009 à 14:30:28  profilanswer
 

Essai de coller sa dans un .vbs
 
 
' Trouver la clé d'activation d'un Windows à distance
If Wscript.Arguments.Count = 0 Then
    strComputer = inputbox("Entrez le nom de l ordinateur dont vous voulez la clé","Nom de l ordinateur" )
    if strComputer = "" then wscript.quit
Else
    strCOmputer = Wscript.Arguments.Item(0)
End If
Dim Digits (24)
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"
Dim HexBuf (100), HexDigitalPID (15)
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv" )
objReg.GetBinaryValue &H80000002, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId", HexBuf
StartOffset = 52 : EndOffset =67
For i = StartOffset to EndOffset
  HexDigitalPID (i-StartOffset) = HexBuf(i)
next
' Convertit la clé produit codée en clé d activation
dLen = 29 : sLen = 15
KEYSTRING =""
for i=dLen-1 to 0 step -1
  if ((i + 1) mod 6) = 0 then
    KEYSTRING = KEYSTRING & "-"
  else
    HN = 0
    For N = (sLen -1) to 0 step -1
      Value = ( (HN *2^8 ) Or HexDigitalPID (N))
      HexDigitalPID (N) = Value \ 24
      HN = (Value mod 24)
    next
    KEYSTRING = KEYSTRING & Digits(HN)
  end if
next
KEYSTRING2 = StrReverse (KEYSTRING)
WScript.Echo KEYSTRING2


Message édité par bbr241 le 12-03-2009 à 14:30:47

---------------
Mon topic : http://forum.hardware.fr/forum2.ph [...] =0&nojs=0]
n°50837
titides
┼ DΣA┼H ┼
Posté le 12-03-2009 à 15:03:07  profilanswer
 

Avec RockXP ca marche pas par exemple ?

n°50843
machinehea​d02
vieux motard que jamais
Posté le 12-03-2009 à 16:23:24  profilanswer
 

Tu peux utiliser ce petit logiciel: Winfokeys
http://www.ptorris.com/crypto.php
 
Ca marche plutôt pas mal :)

n°50922
[MCS]
Posté le 15-03-2009 à 23:27:35  profilanswer
 

Ca marche avec winfokeys.
Rock XP ne fonctionnait pas.
Merci à tous.
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Infrastructures serveurs

  Numero de licence Windows 2008

 

Sujets relatifs
Aide pour la premiere configuration d'openvpn sous windows server 2003Sauvegade windows 2003 server
Aide à la config serveur WSUS pour faire mise à jour WindowsVMware server 2 et activation Windows.
Arcserve V12 + Windows serveur 2008 = Erreur de SauvegardeOnglet clichés instantanés non présent windows serveur 2003
Antivirus licence illimitéeTSE 2000 en groupe de travail
Serveur Mise A Jours Windows/Linux/Unix 
Plus de sujets relatifs à : Numero de licence Windows 2008


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR