Re: Odczytanie prawidzwego numeru licencji Office

Jacek log(in):
> Witam!
> Jest komputer z zainstalowanym Office.
> Jak sprawdzic jakiklucz produktu zostal wpisany przy instalacji tego
> Offica? Rozumiem, ze sa narzedzia typu RockXP, ale one podaja klucze
> kompletnie z czapy.
> Czy nie da rady spraedzic tego w rejestrze?
> np?
> HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0
> \Registration\{90110407-6000-11D3-8CFE-0150048383C9}

:-)
OFF2k3.vbs
Treść skryptu między liniami jn.
__________
Dim Act, Fso, KeyOff, strOffKey
  Set Act = CreateObject("WScript.Shell")
  Set Fso = CreateObject("Scripting.FileSystemObject")
   strOffKey =
Act.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\{90110415-6000-11D3-8CFE-0150048383C9}\ProductName")
   KeyOff =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\{90110415-6000-11D3-8CFE-0150048383C9}\DigitalProductID"

   Function GetKey(rpk)
    Const rpkOffset=52:m=28
     szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
    Do
     dwAccumulator=0 : b=14
     Do
      dwAccumulator=dwAccumulator*256
      dwAccumulator=rpk(b+rpkOffset)+dwAccumulator
      rpk(b+rpkOffset)=(dwAccumulator\24) and 255
      dwAccumulator=dwAccumulator Mod 24
      b=b-1
     Loop While b>=0
       m=m-1 :
szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
      If (((29-m) Mod 6)=0) And (m<>-1) Then
       m=m-1 : szProductKey="-"&szProductKey
      End If
     Loop While m>=0
    GetKey=szProductKey
   End Function

MsgBox "" & GetKey(Act.RegRead(KeyOff)), 0 + 48 + 0, "Office2k3_Key
by _MB - 05.2k7 "
________

-- 
MICHAL: Mechanical Intelligent Calculation
and Hazardous Assassination Lifeform
BIEK: Being Intended for Exploration
and Killing ...