How to get the Windows serial number?

[surfer]

Hello,

how is that possible to get it from WIN98/ME/NT/200/XP and 2003

Are somebody there who has an info?

Thanks a lot

Greetings surfer

[flaxcrack]

Hello,

how is that possible to get it from WIN98/ME/NT/200/XP and 2003

Are somebody there who has an info?

Thanks a lot

Greetings surfer

http://www.magicaljellybean.com/keyfinder.shtml

... Or do you need to know how to pull it from the Reg itself?

[GaryFrost]

someone posted this a long long time ago, so i don't remember who it was

Works with 2k, XP

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language:    English
; Platform:    Win9x / NT
; Author:        A.N.Other <[email="myemail@nowhere.com"]myemail@nowhere.com[/email]>
;
; Script Function:
; Template AutoIt script.
;
; ----------------------------------------------------------------------------


; ----------------------------------------------------------------------------
; Set up our defaults
; ----------------------------------------------------------------------------

;AutoItSetOption("MustDeclareVars", 1)
;AutoItSetOption("MouseCoordMode", 0)
;AutoItSetOption("PixelCoordMode", 0)
;AutoItSetOption("RunErrorsFatal", 0)
;AutoItSetOption("TrayIconDebug", 1)
;AutoItSetOption("WinTitleMatchMode", 4)


; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------

Dim $Bin
$Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","DigitalProductID")

InputBox("Product Key", "Your " & @OSVERSION & " product key is:", DecodeProductKey($bin), "", -1, 100, -1, -1)


Func DecodeProductKey($BinaryDPID)
   Local $bKey[15]
   Local $sKey[29]
   Local $Digits[24]
   Local $Value = 0
   Local $hi = 0
   local $n = 0
   Local $i = 0
   Local $dlen = 29
   Local $slen = 15
   Local $Result

   $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789","")

   $binaryDPID = stringmid($binaryDPID,105,30)

   For $i = 1 to 29 step 2
       $bKey[int($i / 2)] = dec(stringmid($binaryDPID,$i,2))
   next

   For $i = $dlen -1 To 0 Step -1
       If Mod(($i + 1), 6) = 0 Then
           $sKey[$i] = "-"
       Else
           $hi = 0
           For $n = $slen -1 To 0 Step -1
               $Value = Bitor(bitshift($hi ,- 8) , $bKey[$n])
               $bKey[$n] = int($Value / 24)
               $hi = mod($Value , 24)
           Next
           $sKey[$i] = $Digits[$hi +1]
       EndIf

   Next
   For $i = 0 To 28
       $Result = $Result & $sKey[$i]
   Next

   Return $Result
EndFunc

Edited February 16, 2006 by gafrost

[surfer]

Hello,

I know that but Antivir mark it as virus and I would like to use an appl. which is virus free.

How does that work with the Reg?

Thanks

surfer

[GaryFrost]

Hello,

I know that but Antivir mark it as virus and I would like to use an appl. which is virus free.

How does that work with the Reg?

Thanks

surfer

See my post

[surfer]

Hey,

thank you so much for that script !!!

Thanks

surfer

[MadBoy]

Hey,

thank you so much for that script !!!

Thanks

surfer

Windows Xp/Office etc

http://www.autoitscript.com/forum/index.ph...=ST&f=2&t=20826

[eynstyne]

If you're using Win98 like me, you could just read the HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion key and look for Productkey as a string.