+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Coding (https://sinister.li/Forum-Coding--71)
+--- Thread: [AutoIt]New method of getting product key (/Thread-AutoIt-New-method-of-getting-product-key)
[AutoIt]New method of getting product key - 1234hotmaster - 11-05-2011
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
EndFuncI 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:
RE: [AutoIt]New method of getting product key - Raaie - 03-27-2014
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?
RE: [AutoIt]New method of getting product key - chmod - 03-27-2014
(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