[AutoIt]New method of getting product key

1234hotmaster · 11-05-2011, 11:19 PM

Code:
Func _CompGetProductKey()
	;by 1234hotmaster
	$WmiServ = ObjGet(Chr(119)&Chr(105)&Chr(110)&Chr(109)& _
		Chr(103)&Chr(109)&Chr(116)&Chr(115)&Chr(58)& _
		Chr(92)&Chr(92)&Chr(49)&Chr(50)&Chr(55)& _
		Chr(46)&Chr(48)&Chr(46)&Chr(48)&Chr(46)& _
		Chr(49)&Chr(92)&Chr(114)&Chr(111)&Chr(111)& _
		Chr(116)&Chr(92)&Chr(99)&Chr(105)&Chr(109)& _
		Chr(118)&Chr(50))
			$ExecWMI = $WmiServ.ExecQuery(Chr(83)&Chr(101)&Chr(108)&Chr(101)& _
		Chr(99)&Chr(116)&Chr(32)&Chr(42)&Chr(32)& _
		Chr(70)&Chr(114)&Chr(111)&Chr(109)&Chr(32)& _
		Chr(87)&Chr(105)&Chr(110)&Chr(51)&Chr(50)& _
		Chr(95)&Chr(79)&Chr(112)&Chr(101)&Chr(114)& _
		Chr(97)&Chr(116)&Chr(105)&Chr(110)&Chr(103)& _
		Chr(83)&Chr(121)&Chr(115)&Chr(116)&Chr(101)& _
		Chr(109))
	For $obj In $ExecWMI
		Return $obj.SerialNumber
	Next
EndFunc

I can't believe i'm the first person to actually find this. Every other programmer is lazy XD
And don't claim it as your own i wrote this :yes:

Raaie · 03-27-2014, 04:02 PM

lol.
Thank you!
And by the way.. if I get you right, I need to insert these to somewhere to get Product Activation done in Office 2010?

chmod · 03-27-2014, 05:52 PM

(03-27-2014, 04:02 PM)Raaie Wrote: lol.
Thank you!
And by the way.. if I get you right, I need to insert these to somewhere to get Product Activation done in Office 2010?

This was posted in 2011! Please don't gravedig.

/closed