Code to Retrieve a List of Available Models and Model Configurations

1. Create the PredictorServiceAdmin object.

   Dim oPredictorServiceAdmin
   Set oPredictorServiceAdmin = _
    Server.CreateObject("Commerce.PredictorServiceAdmin")
   
   Response.Write "The date the Predictor Service was last started = " _
    & oPredictorServiceAdmin.dateLastStarted & "<P>"
   

2. Retrieve and enumerate the list of available model configurations.

   Response.Write "The number of model configurations = " & _
    oPredictorServiceAdmin.slModelConfigs.Count & "<BR>"
   
   Dim oDict
   For Each oDict In oPredictorServiceAdmin.slModelConfigs
   Response.Write oDict("ModelCfgName") & "<BR>"
   Next
   

3. Retrieve and enumerate the list of available models.

   Response.Write "The number of models = " & _
    oPredictorServiceAdmin.slModels.Count & "<BR>"
   
   For Each oDict In oPredictorServiceAdmin.slModels
   Response.Write oDict("ModelName") & "<BR>"
   Next
   

4. Release the object.

   Set oPredictorServiceSiteAdmin = Nothing
   

Copyright © 2005 Microsoft Corporation.
All rights reserved.