Sub SetSecurityForCollectionInstance(connection, userName, collectionID)

	Dim permissions
	dim collections

	set permissions = connection.Get("SMS_UserInstancePermissions").SpawnInstance_()
	If Err.Number<>0 Then
		Wscript.Echo "Couldn't get instance permissions object"
		Exit Sub
	End If

	Set collections = _
		connection.ExecQuery("Select * From SMS_Collection where CollectionID = '" + collectionID + "'")

	If collections.Count = 0 Then
		WScript.Echo "Collection " + collectionID + " does not exist"
		Exit Sub
	End If
	
	permissions.UserName = userName
	permissions.ObjectKey = 1 'Collections
	permissions.InstanceKey = collectionID
	permissions.InstancePermissions = 3 ' Read and modify
   
	permissions.Put_
	If Err.Number<>0 Then
		Wscript.Echo "Couldn't commit instance permissions"
		Exit Sub
	End If

	WScript.Echo "Instance permissions added"

public void SetSecurityForCollectionInstance(WqlConnectionManager connection, string userName, string collectionID)
{
	try
	{
		IResultObject permissions = connection.CreateInstance("SMS_UserInstancePermissions");
		permissions["UserName"].StringValue = userName;
		permissions["ObjectKey"].IntegerValue = 1; //Collections
		permissions["InstanceKey"].StringValue = collectionID;
		permissions["InstancePermissions"].IntegerValue = (int)UserClassPermissions.Modify;
		permissions.Put();
}
	catch (SmsException ex)
	{
		Console.WriteLine("Failed to set permissions. Error: " + ex.Message);
		throw;
}
}