Código
Public Sub NewSerial(VOL_PROD_KEY As String) 'Dim VOL_PROD_KEY As String 'El valor de la key se le pasa como parámetro Dim Obj As Object Dim result As Variant VOL_PROD_KEY = UCase(VOL_PROD_KEY) 'Se cambian las letras/numeros a mayusculas VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "") 'remove hyphens if any 'Se reemplazan los guiones "altos" For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation") 'Se utiliza WMI para acceder a la clase correspondiente result = Obj.SetProductKey(VOL_PROD_KEY) 'Se cambia la key de win y se almacena el resultado en una variable Next End Sub
Saludos
Bueno, bien que yo la estaba haciendo bien larga para cambiar la key, este code parece bien directo, gracias por el aporte Novlucker
Saludos