'
    '
    'theScheduler is a Scheduler object that has already been created elsewhere
    '
    dim options as ServerOptions
    dim opt as ServerOption

    options=theScheduler.GetServerOptions
    opt=options.Item("HistoryScavenger:DefaultRetentionType") '(=HistoryRetentionOptions)
    opt.Value=2 'numeric value for HistoryRetentionOptionsEnum.hrRetainXDays
    
    opt=options.Item("HistoryScavenger:DefaultRetentionInterval") '(=HistoryRetentionLimit)
    opt.Value=15 'retain for 15 days
    
    options.Save 'be sure to save the new settings