for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
      if Obj.ActivationRequired <> 0 then
            'If necessary, save/set proxy
            Obj.ActivateOnline()
            'If necessary, restore proxy
      end if
next