Листинг 3. RSoPLogging.vbs

BEGIN COMMENT
? Создать объекты GPM и GPMConstants.
END COMMENT
Set GPMC = CreateObject(«GPMgmt.GPM»)
Set Constants = GPMC.GetConstants()

? BEGIN CALLOUT A
BEGIN COMMENT
A
? Создать ссылку на объект RsoP.
END COMMENT
Set RSOP= GPMC.GetRSOP(Constants.RSOPModeLogging,»»,0)
BEGIN COMMENT
? END CALLOUT A
? Назначить свойства сеанса протоколирования RsoP.
END COMMENT
RSOP.LoggingComputer=»myworkstation»
RSOP.LoggingUser=»darren»
BEGIN COMMENT
? Выполнить запрос протоколирования RsoP и послать
  результаты в HTML-файл
END COMMENT
RSOP.CreateQueryResults()
RSOP.GenerateReportToFile
 Constants.ReportHTML,»c:
eportsmyrsop.html»