How can I update the username and password for the OS user account my recurring schedule is using?

[former_member184995]

A customer had a large number of reports all scheduled to unmanaged disk.  The issue was that the OS account they were using to write to the disk drive was changing and they did not want to have to reschedule every report. 

The following code can be used to update the username and password on the recurring object itself so that it does not have to be rescheduled.

NOTE: This is completely unsupported to do and any issues you run into will not be supported by SAP support.  The official supported method of changing anything that has to do with a recurring instance is to reschedule the instance. Make sure you thoroughly test this before using it. You have been warned!

Update OS user account used for scheduling in VB.NET
Imports CrystalDecisions.Enterprise Imports CrystalDecisions.Enterprise.Desktop Imports CrystalDecisions.Enterprise.Dest  Partial Class _Default     Inherits System.Web.UI.Page      'Enterprise variables     Dim boSessionmgr As New SessionMgr()     Dim boSession As EnterpriseSession     Dim boInfoStore As InfoStore     Dim boEnterpriseService As EnterpriseService      Dim userid As String = "Administrator"           Dim password As String = "Password123"     Dim aps As String = "devr3sp3"     Dim auth As String = "secEnterprise"      Dim boReports As InfoObjects     Dim boReport As InfoObject     Dim sQuery As String     Dim entReport As Report      Dim boDestinationObjects As InfoObjects     Dim boDestinationObject As InfoObject      Dim countDBLogons As Integer = 0     Dim x As Integer = 0     Dim DBServerName As String = "servername"     Dim DBUserName As String = "username"     Dim DBPassword As String = "password"       Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load         boSession = boSessionmgr.Logon(userid, password, aps, auth)          'Create the infostore object         boEnterpriseService = boSession.GetService("", "InfoStore")         boInfoStore = New InfoStore(boEnterpriseService)          'Grab specific recurring report         sQuery = "select * from ci_infoobjects where si_name = 'changePassword' and si_recurring = 1"         boReports = boInfoStore.Query(sQuery)          'Caste the infoobject to a desktop report         entReport = New Report(boReports(1).GetPluginInterface("Report"))          'Retrieve the DiskUnmanaged Plugin from CI_SYSTEMOBJECTS         boDestinationObjects = boInfoStore.Query("Select * from CI_SYSTEMOBJECTS Where SI_NAME = 'CrystalEnterprise.DiskUnmanaged'")         boDestinationObject = boDestinationObjects.Item(1)          'Create the DestinationPlugin object         Dim boDisk As New DestinationPlugin(boDestinationObject.PluginInterface)          'Create a DiskUnmanagedOptions object and its ScheduleOptions from the Destination plugin         Dim boDiskOpts As New DiskUnmanagedOptions(boDisk.ScheduleOptions)          'We have to get the location/name from the current recurring instance         boDiskOpts.DestinationFiles.Add(boReports(1).SchedulingInfo.Properties("SI_DESTINATIONS").Properties("1").Properties("SI_DEST_SCHEDULEOPTIONS").Properties("SI_OUTPUT_FILES").Properties("1").Value.ToString())          'Set the new username and password         boDiskOpts.UserName = "Administrator"         boDiskOpts.Password = "Password123"          'Copy the properties from the Destination Plugin object into the report's scheduling         'information. This will cause the file to be transferred to Disk after it has been run.         Dim boDestination As Destination         boDestination = entReport.SchedulingInfo.Destination         boDestination.SetFromPlugin(boDisk)          'Commit back to infostore         boInfoStore.Commit(boReports)          Response.Write("DONE")     End Sub End Class

Good luck with your projects!