WinXP Serial Key

[cppman]

Hi. This is my first time posting here, and im bored so here:

Here is an idea program for someone to make.

Make a program that will return the Windows XP Serial Key to the current user in a message box.(or a gui whatever u like)

-Chris

[PartyPooper]

You can do this easily using the RegRead and MsgBox functions. Have a read of the Help manual - it's the best tutorial on AutoIt outside of the developers themselves.

[cppman]

lmao. forgot about RegRead......

but, thansk for reminding me.

[Xenobiologist]

Hi,

what about that?

$objWMIService = objget("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

$colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For $objOperatingSystem in $colSettings
    $Type = StringMid($objOperatingSystem.Caption, 19)
    $Serial = StringMid($objOperatingSystem.SerialNumber, 1)
    MsgBox(64, 'Ouput of Windows Type and Serial', "Type    : "& $Type & @CRLF & "Serial    : " & $Serial)
Next

So long,

Mega

WinXP_Version_SerialKey.au3

Edited February 7, 2006 by th.meger

[cppman]

nice little script.

[Xenobiologist]

nice little script.

Thanks, I love little scripts.

Maybe I can find some more ideas for such little things.

So long,

Mega

[BigDod]

Here is one to get the product key

expandcollapse popup

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

Not written by me but I cant remember you did write it.

[Xenobiologist]

Thanks, I took your code, combined it with mine and put a GUI on it. (I´m not very good in creating GUI)

I hope anybody likes it.

Edit: position of progressBar has changed.
Edit: Date format changed from MM/DD/YYYY to DD/MM/YYYY

So long,

Mega

WindowsInformationGUI.au3

Edited August 21, 2013 by Xenobiologist

[jaenster]

Very , VERY VERY !!! SWEET

[busysignal]

Works great...

Cheers..

[rhg]

Works great. Thanks for sharing.

[Xenobiologist]

HI,

thanks for your nice replies. Somebody noticed that the OfficeKey should be added.
So, I added it.
I also cleaned up my code a little bit, now it is more readable, I think.

I hope you like it and give me some more ideas and replies.

Edit: Error-handling in func getOfficeKey(). When no Office is installed.

So long,

Mega

WinInformationGUI_1.1.au3

Edited August 21, 2013 by Xenobiologist

[Fossil Rock]

I get this error on WinXP Pro (SP2)

C:\Documents and Settings\Fossil Rock\My Documents\My AutoIt Scripts\WinInformationGUI_1.1.au3 (93) : ==> Unable to parse line.:

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

$colSettings = $objWMIService.E^ ERROR

Any ideas?

[nitekram]

I get this error on WinXP Pro (SP2)

C:\Documents and Settings\Fossil Rock\My Documents\My AutoIt Scripts\WinInformationGUI_1.1.au3 (93) : ==> Unable to parse line.:

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

$colSettings = $objWMIService.E^ ERROR

Any ideas?

I received an error on line 260 undeclaired Variable - $officeKey - I declaired the variable as Local and ran with no errors but the GUI disappeared before I was able to view it. Any ideas on what I am missing?

C:\programming\Windows_INFO.au3 (260) : ==> Variable used without being declared.:

Dim $var = RegEnumKey($officeKey, $i)

Dim $var = RegEnumKey(^ ERROR

>AutoIT3.exe ended.

>Exit code: 0 Time: 2.962

By the way the developers as well as anyone else creating and sharing the code for this product - hats off to you.

[Xenobiologist]

I received an error on line 260 undeclaired Variable - $officeKey - I declaired the variable as Local and ran with no errors but the GUI disappeared before I was able to view it. Any ideas on what I am missing?

C:\programming\Windows_INFO.au3 (260) : ==> Variable used without being declared.:

Dim $var = RegEnumKey($officeKey, $i)

Dim $var = RegEnumKey(^ ERROR

>AutoIT3.exe ended.

>Exit code: 0 Time: 2.962

By the way the developers as well as anyone else creating and sharing the code for this product - hats off to you.

Hi,

thanks for your replies! I added some error handling posted the script again.

I get this error on WinXP Pro (SP2)

C:\Documents and Settings\Fossil Rock\My Documents\My AutoIt Scripts\WinInformationGUI_1.1.au3 (93) : ==> Unable to parse line.:

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

$colSettings = $objWMIService.E^ ERROR

Any ideas?

Hmmh, I´ve got XP SP1, but I don´t think that´s the point. Maybe you´ve got Windows XP Home Edition. The WMI isn´t fully installed. That might cause the problem.

So long,

Mega

[nitekram]

Hi,

thanks for your replies! I added some error handling posted the script again.

Hmmh, I´ve got XP SP1, but I don´t think that´s the point. Maybe you´ve got Windows XP Home Edition. The WMI isn´t fully installed. That might cause the problem.

So long,

Mega

That worked for me, thanks for the support.

[Fossil Rock]

Hi,

thanks for your replies! I added some error handling posted the script again.

Hmmh, I´ve got XP SP1, but I don´t think that´s the point. Maybe you´ve got Windows XP Home Edition. The WMI isn´t fully installed. That might cause the problem.

So long,

Mega

I get the same error with the new version. I'm using XP Pro (SP2). I'm going to see if there is a way to reinstall the WMI.

[Fossil Rock]

After reinstalling the WMI toolkit I still have the same error.

[sheeva]

I have this error

C:\Program Files\AutoIt3\Examples\From Forum\WinInformationGUI_1.1.au3 (93) : ==> Unable to parse line.:

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

$colSettings = $objWMIService.E^ ERROR

any idea ?

[Xenobiologist]

I have this error

C:\Program Files\AutoIt3\Examples\From Forum\WinInformationGUI_1.1.au3 (93) : ==> Unable to parse line.:

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

$colSettings = $objWMIService.E^ ERROR

any idea ?

HI,

do you use beta? Please download beta and try again. Same to you Fossil Rock.

Download Latest Beta Link

Hope that helps...

So long,

Mega

Edited March 6, 2006 by th.meger