' Set up a connection to the local provider.
Set swbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set swbemconnection= swbemLocator.ConnectServer(".", "root\sms")
Set providerLoc = swbemconnection.InstancesOf("SMS_ProviderLocation")

For Each Location In providerLoc
	If location.ProviderForLocalSite = True Then
		Set swbemconnection = swbemLocator.ConnectServer(Location.Machine, "root\sms\site_" + Location.SiteCode)
		Exit For
	End If
Next

Call CreateSubCollection(swbemconnection, "SMS00001", "New Subcollection Name", "New subcollection comment.", true, "SELECT * from SMS_R_System", "New Rule Name")


Sub CreateSubCollection(connection, existingParentCollectionID, newCollectionName, newCollectionComment, ownedByThisSite, queryForRule, ruleName)


	' Create the collection.
	Set newCollection = connection.Get("SMS_Collection").SpawnInstance_
	newCollection.Comment = newCollectionComment
	newCollection.Name = newCollectionName
	newCollection.OwnedByThisSite = ownedByThisSite

	' Save the new collection and the collection path for later.
	Set collectionPath = newCollection.Put_

   ' Define to what collection the new collection is subordinate.
   ' IMPORTANT: If you do not specify the relationship, the new collection will not be visible in the console. 
	Set newSubCollectToSubCollect = connection.Get("SMS_CollectToSubCollect").SpawnInstance_
	newSubCollectToSubCollect.parentCollectionID = existingParentCollectionID
	newSubCollectToSubCollect.subCollectionID = CStr(collectionPath.Keys("CollectionID"))

	' Save the subcollection information.
	newSubCollectToSubCollect.Put_

	' Create a new collection rule object for validation.
	Set queryRule = connection.Get("SMS_CollectionRuleQuery")

	' Validate the query (good practice before adding it to the collection). 
	validQuery = queryRule.ValidateQuery(queryForRule)

	' Continue with processing, if the query is valid.
	If validQuery Then
	
		' Create the query rule.
		Set newQueryRule = QueryRule.SpawnInstance_
		newQueryRule.QueryExpression = queryForRule
		newQueryRule.RuleName = ruleName
	
		' Add the new query rule to a variable.
		Set newCollectionRule = newQueryRule
	
		' Get the collection.
		Set newCollection = connection.Get(collectionPath.RelPath)
	
		' Add the rules to the collection.
		newCollection.AddMembershipRule newCollectionRule

		' Call RequestRefresh to initiate the collection evaluator. 
		newCollection.RequestRefresh False
	 
	End If

End Sub

public void CreateSubCollection(WqlConnectionManager connection, 
								string existingParentCollectionID, 
								string newCollectionName, 
								string newCollectionComment, 
								bool ownedByThisSite, 
								string query, 
								string ruleName)
{
	try
	{
		// Create a new SMS_Collection object.
		IResultObject newCollection = connection.CreateInstance("SMS_Collection");

		// Populate new collection properties.
		newCollection["Name"].StringValue = newCollectionName;
		newCollection["Comment"].StringValue = newCollectionComment;
		newCollection["OwnedByThisSite"].BooleanValue = ownedByThisSite;

		// Save the new collection object and properties.  
		// In this case, it seems necessary to 'get' the object again to access the properties.  
		newCollection.Put();
		newCollection.Get();

		// Create subcollection object (holds information defining subcollection). 
		IResultObject newSubCollectToSubCollect = connection.CreateInstance("SMS_CollectToSubCollect");

		// Define parent relationship (in this case off the 'All Systems' collection node). 
		newSubCollectToSubCollect["parentCollectionID"].StringValue = existingParentCollectionID;
		newSubCollectToSubCollect["subCollectionID"].StringValue = newCollection["CollectionID"].StringValue;
		newSubCollectToSubCollect.Put();

		// Validate the query.
		Dictionary<string, object> validateQueryParameters = new Dictionary<string, object>();
		validateQueryParameters.Add("WQLQuery", query);
		IResultObject validationResult = connection.ExecuteMethod("SMS_CollectionRuleQuery", "ValidateQuery", validateQueryParameters);

		// Create query rule.
		IResultObject newQueryRule = connection.CreateInstance("SMS_CollectionRuleQuery");
		newQueryRule["QueryExpression"].StringValue = query;
		newQueryRule["RuleName"].StringValue = ruleName;

		// Add the rule. Although not used in this sample, queryID contains the query identifier.				 
		Dictionary<string, object> addMembershipRuleParameters = new Dictionary<string, object>();
		addMembershipRuleParameters.Add("collectionRule", newQueryRule);
		IResultObject queryID = newCollection.ExecuteMethod("AddMembershipRule", addMembershipRuleParameters);

		// Get parent collection handle for collection refresh.
		IResultObject parentCollectionForRefresh = connection.GetInstance(@"SMS_Collection.CollectionID='" + existingParentCollectionID + "'");

		// Start collection evaluator on parent collection.
		Dictionary<string, object> requestRefreshParameters = new Dictionary<string, object>();
		requestRefreshParameters.Add("IncludeSubCollections", false);
		parentCollectionForRefresh.ExecuteMethod("RequestRefresh", requestRefreshParameters);

		// Output new subcollection name.
		Console.WriteLine("Created subcollection: " + newCollectionName);
}
	catch (SmsException ex)
	{
		Console.WriteLine("Failed to create subcollection. Error: " + ex.Message);
		throw; 
}
}