Dim quotaManager
Set quotaManager = CreateObject("Fsrm.FsrmQuotaManager")


Dim quota
Set quota = quotaManager.CreateQuota("e:\data")

quota.ApplyTemplate("100 MB Limit")

quota.Commit()