Квота Win2k

Set objDQ = CreateObject ("Microsoft.DiskQuota.1")objDQ.Initialize "D:", FALSE ''ReadOnlyzComputername = "SERVERNAME"zTxtUserID = "USERNAME"Set objUser = GetObject ("WinNT://"&zComputername&"/" & zTxtUserID)Set objDQUser = objDQ.FindUser (zComputername & "\" & objUser.Name)QuotaLimit = objDQUser.QuotaLimitResponse.Write "QuotaLimit" & QuotaLimit & "
"QuotaUsed = objDQUser.QuotaUsedResponse.Write "QuotaUsed" & QuotaUsed & "
"Set objDQ = Nothing