Sub CreateCollectionVariable( connection, name, value, mask, collectionId, precedence)

	Dim collectionSettings
	Dim collectionVariables
	Dim collectionVariable
	Dim Settings

	' See if the settings collection already exists. if it doesn't, create it.
	Set settings = connection.ExecQuery _
	("Select * From SMS_CollectionSettings Where CollectionID = '" & collectionID & "'")
   
	If settings.Count = 0 Then
		Wscript.Echo "Creating collection settings object"
		Set collectionSettings = connection.Get("SMS_CollectionSettings").SpawnInstance_
		collectionSettings.CollectionID = collectionId
		collectionSettings.Put_
	End If  

	' Get the collection settings object.
	Set collectionSettings = connection.Get("SMS_CollectionSettings.CollectionID='" & collectionId &"'" )
   
	' Get the collection variables.
	collectionVariables=collectionSettings.CollectionVariables

	' Create and populate a new collection variable.
	Set collectionVariable = connection.Get("SMS_CollectionVariable").SpawnInstance_
	collectionVariable.Name = name
	collectionVariable.Value = value
	collectionVariable.IsMasked = mask

	' Add the new collection variable.
	ReDim Preserve collectionVariables (UBound (collectionVariables)+1)
	Set collectionVariables(UBound(collectionVariables)) = collectionVariable

	collectionSettings.CollectionVariables=collectionVariables

	collectionSettings.Put_

 End Sub   

public void CreateCollectionVariable(
	WqlConnectionManager connection, 
	string name, 
	string value, 
	bool mask, 
	string collectionId, 
	int precedence)
{
	try
	{
		IResultObject collectionSettings = null;

		// Get the collection settings. Create it if necessary.
	
		 IResultObject collectionSettingsQuery = connection.QueryProcessor.ExecuteQuery(
					"Select * from SMS_CollectionSettings where CollectionID='" + collectionId + "'");

		 foreach (IResultObject setting in collectionSettingsQuery)
		 {
			 collectionSettings = setting;
		 }
	 
		if ( collectionSettings == null)
		 {
			 collectionSettings = connection.CreateInstance("SMS_CollectionSettings");
			 collectionSettings["CollectionID"].StringValue = collectionId;
			 collectionSettings.Put();
			 collectionSettings.Get();
		 }

		// Create the collection variable.
		List<IResultObject> collectionVariables = collectionSettings.GetArrayItems("CollectionVariables");
		IResultObject collectionVariable = connection.CreateEmbeddedObjectInstance("SMS_CollectionVariable");
		collectionVariable["Name"].StringValue = name;
		collectionVariable["Value"].StringValue = value;
		collectionVariable["IsMasked"].BooleanValue = mask;

		// Add the collection variable to the collection settings.
		collectionVariables.Add(collectionVariable);
		collectionSettings.SetArrayItems("CollectionVariables", collectionVariables);

		// Set the collection variable precedence.
		collectionSettings["CollectionVariablePrecedence"].IntegerValue = precedence;

		collectionSettings.Put();
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to create collection variable: " + e.Message);
		throw;
   }
}