Set colAdvertisements = objSWbemServices.ExecQuery("Select * From SMS_Advertisement")

For Each objAdvert In colAdvertisements
       WScript.Echo "ActionInProgress = " & objAdvert.ActionInProgress
       WScript.Echo "AdvertFlags = " & objAdvert.AdvertFlags
       WScript.Echo "AdvertisementID = " & objAdvert.AdvertisementID
       WScript.Echo "AdvertisementName = " & objAdvert.AdvertisementName
       'For the lazy properties, get the advertisements individually.
       Set lazyproperties = objSWbemServices.Get("SMS_Advertisement.AdvertisementID='" & ObjAdvert.advertisementid & "'")
       WScript.Echo "Assigned Schedule = {"       
       for i=0 to ubound(lazyproperties.assignedschedule,1)
              WScript.Echo " instance of " & lazyproperties.Properties_("AssignedSchedule").Value(0).Path_.Class
      WScript.Echo lazyproperties.Properties_("AssignedSchedule").Qualifiers_("CIMType")
              WScript.Echo "   DayDuration: " & lazyproperties.AssignedSchedule(i).DayDuration
              WScript.Echo "   Hourspan: " & lazyproperties.AssignedSchedule(i).HourSpan
              WScript.Echo "   IsGMT: " & lazyproperties.AssignedSchedule(i).IsGMT
              WScript.Echo "   StartTime: " & lazyproperties.AssignedSchedule(i).StartTime
              WScript.Echo "AssignedScheduleEnabled = " & lazyproperties.AssignedScheduleEnabled
          WScript.Echo "AssignedScheduleIsGMT = " & lazyproperties.AssignedScheduleIsGMT
   next
       WScript.Echo "}"       
       WScript.Echo "CollectionID = " & objAdvert.CollectionID
       WScript.Echo "Comment = " & objAdvert.Comment
Next