Listing 2: EnableWpaNotification.vbs

Set wpaColl = GetObject("winmgmts://./root/cimv2"). _
  InstancesOf("Win32_WindowsProductActivation")
For Each wpa in wpaColl
' BEGIN CALLOUT A
  wpa.SetNotification 1
' END CALLOUT A
Next