Sub SetDeletionPolicy(connection, 	_
					context, 	 _
					siteCode, 		 _
					deletionPolicyDays)

 
	' Load site control file and get SMS state migration point section.
	connection.ExecMethod "SMS_SiteControlFile.Filetype=1,Sitecode=""" & siteCode & """", "Refresh", , , context
	
	Query = "SELECT * FROM SMS_SCI_SysResUse " & _
			"WHERE RoleName = 'SMS State Migration Point' " & _
			"AND SiteCode = '" & siteCode & "'"

	Set SCIComponentSet = connection.ExecQuery(Query, , , context)

	' Convert days to minutes (1440 = 24 *60).
	deletionDelayMinutes = deletionPolicyDays * 1440
	deletionCycleMinutes = 1440


	' Only one instance is returned from the query.
	For Each SCIComponent In SCIComponentSet

		 ' Display state migration point server name.
		 wscript.echo "SMS State Migration Point Server: " & SCIComponent.NetworkOSPath								

		' Loop through the array of embedded property instances.
		For Each vProperty In SCIComponent.Props
		
			' Setting: SMPStoreDeletionDelayTimeInMinutes
			If vProperty.PropertyName = "SMPStoreDeletionDelayTimeInMinutes" Then
				wscript.echo " "
				wscript.echo vProperty.PropertyName
				wscript.echo "Current value " &  vProperty.Value			 
			
				' Modify the value.
				vProperty.Value = deletionDelayMinutes
				wscript.echo "New value " & deletionDelayMinutes
			End If
		
		 ' Setting: SMPStoreDeletionCycleTimeInMinutes
		 If vProperty.PropertyName = "SMPStoreDeletionCycleTimeInMinutes" Then
				wscript.echo " "
				wscript.echo vProperty.PropertyName
				wscript.echo "Current value " &  vProperty.Value			 
			
				' Modify the value.
				vProperty.Value = deletionCycleMinutes
				wscript.echo "New value " & deletionCycleMinutes
			End If
			
		Next   

			 ' Update the component in your copy of the site control file. Get the path
			 ' to the updated object, which could be used later to retrieve the instance.
			 Set SCICompPath = SCIComponent.Put_( , context)
	Next
					
	' Commit the change to the actual site control file.
	Set InParams = connection.Get("SMS_SiteControlFile").Methods_("CommitSCF").InParameters.SpawnInstance_
	InParams.SiteCode = siteCode
	connection.ExecMethod "SMS_SiteControlFile", "CommitSCF", InParams, , context


End Sub

public void SetDeletionPolicy(
WqlConnectionManager connection,
string server,
string siteCode,
int deletionPolicyDays)
{
	try
	{
		// Get the state migration part of the site control file.
		IResultObject ro = connection.GetInstance("SMS_SCI_SysResUse.FileType=2,ItemName='[\"Display=\\\\" + 
			server + 
			"\\\"]MSWNET:[\"SMS_SITE=" +
			siteCode + 
			"\"]\\\\" + 
			server + 
			"\\,SMS State Migration Point',ItemType='System Resource Usage',SiteCode='" + 
			siteCode + 
			"'");

		// Convert to minutes.
		Dictionary<string, IResultObject> embeddedProperties = ro.EmbeddedProperties; // Get a copy
		int deletionDelayMinutes = 0;
		int deletionCycleMinutes = 0;
		if (deletionPolicyDays > 0)
		{
			// Convert days to minutes (1440 = 24 *60).
			deletionDelayMinutes = deletionPolicyDays * 1440;
			deletionCycleMinutes = 1440;
	}
		// Update deletion policy.
		embeddedProperties["SMPStoreDeletionDelayTimeInMinutes"]["Value"].IntegerValue = deletionDelayMinutes;
		embeddedProperties["SMPStoreDeletionCycleTimeInMinutes"]["Value"].IntegerValue = deletionCycleMinutes;

		ro.EmbeddedProperties = embeddedProperties;

		// Commit changes.
		ro.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to set deletion policy: " + e.Message);
		throw;
}
}