Sub WriteScfEmbeddedPropertyList(connection,  _
	context, 						 _
	resource, 					 _
	propertyListName, 				_
	values)

	Dim found
	Dim vProperty
	 
	found = false

	For each vProperty in resource.PropLists
	 if   UCase(vProperty.PropertyListName) = UCase(propertyListName) Then
			' Found property, so add the property list.
			vProperty.Values = values
			 resource.Put_ , context
			found = true
		End If
	 Next  
				 
	 If found = False Then
		' Property list doesn't exist, so create it.
		Dim embeddedPropertyList
		Set embeddedPropertyList = connection.Get("SMS_EmbeddedPropertyList").Spawninstance_()
		embeddedPropertyList.PropertyListName = propertyListName
		embeddedPropertyList.Values = values
	
		' If needed, create the property list array.
		If ISNull (resource.PropLists) Then
			resource.PropLists = array(embeddedPropertyList)
		Else
		 ' Add property list to existing property lists.
			dim propertyList
			propertyList = resource.PropLists
			redim preserve propertyList(Ubound (propertyList) +1)
			Set propertyList(Ubound(propertyList)) = embeddedPropertyList
			resource.Proplists = propertyList
		End If
		resource.Put_,context
	End If 
End Sub	

public void WriteScfEmbeddedPropertyList(
	IResultObject resource,
	string propertyListName,
	ArrayList values
	)
{
	try
	{

		Dictionary<string, IResultObject> EmbeddedPropertyList = resource.EmbeddedPropertyLists;

		// Get the property list, or create it. 
		IResultObject ropl;
		if (EmbeddedPropertyList.ContainsKey(propertyListName))
		{
			ropl = EmbeddedPropertyList[propertyListName];
	}
		else
		{
			ConnectionManagerBase connection = resource.ConnectionManager;
			ropl = connection.CreateEmbeddedObjectInstance("SMS_EmbeddedPropertyList");
			EmbeddedPropertyList.Add(propertyListName, ropl);
	}

		// Set the property list properties.
		ropl["PropertyListName"].StringValue = propertyListName;
		ropl["Values"].StringArrayValue = (string[])values.ToArray(typeof(string));
		resource.EmbeddedPropertyLists = EmbeddedPropertyList;

		resource.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to write property list: " + e.Message);
		throw;
}
}