How can I create product keys for VBA add-ins and store it in the system?

[anish.ms]

Hi arnelgp, Thanks for your time!
I'm getting run-time error '-2147217400(80041008)': Automation error on line

Set wmi = GetObject("WinMgmts:")