Retrieve Fullname, e-mail from CMS repository

Question

I have a simple challenge for anyone who has experience with querying the CMS repository.  I have been reviewing the SDK and am really confused on the factory design and instantiation of the BO Infoobject classes.
I need to capture the Fullname and e-mail from the CMS repository and insert into a second database's table.  It will be used as a reference to users who have access to BO.   Currently we are only using CE logins (no LDAP or Windows logins.)  
No user interface will be required, just simple database connections from the CMS repository to the history database.
Any help?

Answer 1

You will have to add CE references to your project, but here is the code.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports CrystalDecisions.Enterprise
Imports CrystalDecisions.Enterprise.infostore
Imports CrystalDecisions.Enterprise.Desktop
Public Class ScriptMain
     ' The execution engine calls this method when the task executes.
     ' To access the object model, use the Dts object. Connections, variables, events,
     ' and logging features are available as static members of the Dts class.
     ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
     ' To open Code and Text Editor Help, press F1.
     ' To open Object Browser, press CtrlAltJ.
     Public Sub Main()
        Dim boSessionMgr As New SessionMgr
        Dim boEnterpriseSession As EnterpriseSession = boSessionMgr.Logon("ceuser", "cepassword", "server", "secEnterprise")
        Dim boInfostore As New InfoStore(boEnterpriseSession.GetService("InfoStore"))
        'Dim boInfoobjects As InfoObjects
        Dim Users As InfoObjects
        Dim UserItem As InfoObject
        Dim UserObject As User
        Dim Fullname As String
        Dim EEmail As String
        Dim cTitle As String
        Dim Counter As Integer = 1
        'This query will bring back all infoobjects that are recurring schedules
        Users = boInfostore.Query("SELECT TOP 1000000 SI_EMAIL_ADDRESS, SI_FORCE_PASSWORD_CHANGE, SI_NAME, SI_ID, SI_USERGROUPS, SI_USERFULLNAME, SI_ALIASES, SI_DESCRIPTION, SI_LASTLOGONTIME, SI_PASSWORDEXPIRE FROM CI_SYSTEMOBJECTS Where SI_KIND='User'")       
        For Each UserItem In Users
            UserObject = CType(UserItem, User)
            Fullname = UserObject.FullName
            EEmail = UserObject.EmailAddress
            cTitle = UserItem.Title
        Next UserItem
        Dts.TaskResult = Dts.Results.Success
    End Sub
Edited by: Doug Moloney on Jul 28, 2008 10:01 PM