Sub CreateSWMRule(connection, 		_
				newProductName, 	_
				newFileName, 		 _
				newOriginalFileName,  _
				newFileVersion, 	_
				newLanguageID, 	 _
				newSiteCode, 		 _
				newApplyToChildSites)			 

	' Create the new MeteredProductRule object. 
	Set newSWMRule = connection.Get("SMS_MeteredProductRule").SpawnInstance_

	' Populate the SMS_MeteredProductRule properties.
	newSWMRule.ProductName= newProductName
	newSWMRule.FileName = newFileName
	newSWMRule.OriginalFileName =  newOriginalFileName
	newSWMRule.FileVersion = newFileVersion
	newSWMRule.LanguageID = newLanguageID
	newSWMRule.SiteCode = newSiteCode
	newSWMRule.ApplyToChildSites = newApplyToChildSites
		
	' Save the new rule and properties.
	newSWMRule.Put_ 

	' Output new rule name.
	Wscript.Echo "Created new SWM Rule: " & newProductName			
								
End Sub

public void CreateSWMRule(WqlConnectionManager connection,
						string newProductName,
						string newFileName,
						string newOriginalFileName,
						string newFileVersion,
						int newLanguageID,
						string newSiteCode,
						bool newApplyToChildSites)
{
	try
	{
		// Create the new SMS_AuthorizationList object.
		IResultObject newSWMRule = connection.CreateInstance("SMS_MeteredProductRule");

		// Populate the new SMS_MeteredProductRule object properties.
		newSWMRule["ProductName"].StringValue = newProductName;
		newSWMRule["FileName"].StringValue = newFileName;
		newSWMRule["OriginalFileName"].StringValue = newOriginalFileName;
		newSWMRule["FileVersion"].StringValue = newFileVersion;
		newSWMRule["LanguageID"].IntegerValue = newLanguageID;
		newSWMRule["SiteCode"].StringValue = newSiteCode;
		newSWMRule["ApplyToChildSites"].BooleanValue = newApplyToChildSites;
					
		// Save changes.
		newSWMRule.Put();

		Console.WriteLine();
		Console.WriteLine("Created new SWM Rule: " + newProductName);
}

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