' Modify a Disk Quota Entry on the Local Computer
Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
colDiskQuotas.Initialize "C:\", True
set objUser = colDiskQuotas.FindUser("kenmyer")
objUser.QuotaThreshold = 90000000
objUser.QuotaLimit = 100000000