Add a Disk Quota Entry on the Local Computer








' Add a Disk Quota Entry on the Local Computer


Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")

colDiskQuotas.Initialize "C:\", True
Set objUser = colDiskQuotas.AddUser("kenmyer")
Set objUser = colDiskQuotas.FindUser("kenmyer")
objUser.QuotaLimit = 50000000



search for scripts

VbsEdit contains all these sample scripts!

Download Now!