' 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 CreateStaticCollection(swbemconnection, "New Static Collection Name", "New static collection comment.", true, "SMS_R_System", 2, "SMS00001")


Sub CreateStaticCollection(connection, newCollectionName, newCollectionComment, ownedByThisSite, resourceClassName, resourceID, limitToCollectionID)

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

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

	' Create the direct rule.
	Set newDirectRule = connection.Get("SMS_CollectionRuleDirect").SpawnInstance_
	newDirectRule.ResourceClassName = resourceClassName
	newDirectRule.ResourceID = resourceID

	' Add the new query rule to a variable.
	Set newCollectionRule = newDirectRule

	' 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 Sub

public void CreateStaticCollection(WqlConnectionManager connection, string newCollectionName, string newCollectionComment, bool ownedByThisSite, string resourceClassName, int resourceID, string limitToCollectionID)
{
	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;
		newCollection["LimitToCollectionID"].StringValue = limitToCollectionID; 

		// 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 a new static rule object.
		IResultObject newStaticRule = connection.CreateInstance("SMS_CollectionRuleDirect");
		newStaticRule["ResourceClassName"].StringValue = resourceClassName;
		newStaticRule["ResourceID"].IntegerValue = resourceID;

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

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

		// Output message.
		Console.WriteLine("Created collection" + newCollectionName);
}

	catch (SmsException ex)
	{
		Console.WriteLine("Failed to create collection. Error: " + ex.Message);
		throw;
}
}