Sub ChangeDCMAgentEvaluationSchedule(swbemServices, _
									 swbemContext,  _
									 siteCode, 	 _
									 newAgentSchedule)

	' The evaluation schedule is defined by a string stored in a schedule token format. 
	' Detailed information on the schedule token format can be found in the class SMS_ScheduleToken reference material.

	' Load site control file and get DCM client component section.
swbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Refresh", , , swbemContext
Set swbemInst = swbemServices.Get("SMS_SCI_ClientComp.Filetype=1,Itemtype='Client Component',Sitecode='" & siteCode & "',ItemName='Configuration Management Agent'", , swbemContext)

	' Loop through the array of embedded SMS_EmbeddedProperty instances for the 
	' Number of Retries PropertyName. Get its value and display it.
	For Each vProperty In swbemInst.Props
	
		If vProperty.PropertyName = "EvaluationSchedule" Then
	
			' Display DCM client agent evaluation schedule before change.
			Wscript.Echo " "
			Wscript.Echo "Evaluation Schedule - Before Change"
			Wscript.Echo "-----------------------------------"
			Wscript.Echo vProperty.Value2
		
			' Set DCM client agent evaluation schedule using the newAgentSchedule variable.
			vProperty.Value2 = newAgentSchedule
		
			' Save new client agent settings
			swbemInst.Put_ , swbemContext
			swbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Commit", , , swbemContext

		End If
	Next

	' Refresh in-memory copy of the site control file and get the DCM client component section.
swbemServices.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Refresh", , , swbemContext
Set swbemInst = Nothing

Set swbemInst = swbemServices.Get("SMS_SCI_ClientComp.Filetype=1,Itemtype='Client Component',Sitecode='" & siteCode & "',ItemName='Configuration Management Agent'", , swbemContext)

	For Each vProperty In swbemInst.Props
	
		If vProperty.PropertyName = "EvaluationSchedule" Then
	
			' Sisplay DCM client agent evaluation schedule before change.
			Wscript.Echo " "
			Wscript.Echo "Evaluation Schedule - After Change"
			Wscript.Echo "----------------------------------"
			Wscript.Echo vProperty.Value2
				 
		End If
	Next

End Sub

public void ChangeDCMAgentEvaluationSchedule(WqlConnectionManager connection,
											 string siteCode,
											 string newAgentSchedule)
{

	// The evaluation schedule is defined by a string stored in a schedule token format. 
	// Detailed information on the schedule token format can be found in the class SMS_ScheduleToken reference material.

	try
	{
		IResultObject siteDefinition = connection.GetInstance(@"SMS_SCI_ClientComp.FileType=1,ItemType='Client Component',SiteCode='" + siteCode + "',ItemName='Configuration Management Agent'");

		if (siteDefinition.EmbeddedProperties.ContainsKey("EvaluationSchedule"))
		{
			Dictionary<string, IResultObject> WorkingEmbeddedProperties = siteDefinition.EmbeddedProperties; //get temporary copy

			// Display DCM client agent settings before change.
			Console.WriteLine();
			Console.WriteLine("DCM Client Agent Schedule - Before Change");
			Console.WriteLine("-----------------------------------------"); 		 
			Console.WriteLine("Schedule in token format: " + WorkingEmbeddedProperties["EvaluationSchedule"]["Value2"].StringValue);

			// Set DCM client agent setting to new value.
			WorkingEmbeddedProperties["EvaluationSchedule"]["Value2"].StringValue = newAgentSchedule; 
			siteDefinition.EmbeddedProperties = WorkingEmbeddedProperties;
		
			// Save the settings.
			siteDefinition.Put();

			// Verify change by reconnecting and getting the value again.
			Dictionary<string, IResultObject> WorkingEmbeddedProperties2 = siteDefinition.EmbeddedProperties; //Get temporary copy for change verification.

			// Display DCM client agent settings after change.
			Console.WriteLine();
			Console.WriteLine("DCM Client Agent Schedule - After Change");
			Console.WriteLine("-----------------------------------------");
			Console.WriteLine("Schedule in token format: " + WorkingEmbeddedProperties2["EvaluationSchedule"]["Value2"].StringValue);

	}
}

	catch (SmsException eX)
	{
		Console.WriteLine("Failed. Error: " + eX.InnerException.Message);
		throw;
}

}