asked on

Retrieving quota size for single user problem.

Hi, the following code will enumerate all users and retrieve their disk quota size, Do someone know how can I get disk quota size for just single user? Can I do something like that in sql statment: "Select * from Win32_DiskQuota where user='m' "? I did it but it does not work.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota")
For each objQuota in colQuotas
 Response.write "Volume: "& vbTab & objQuota.QuotaVolume & " "
 Response.write "User: "& vbTab & objQuota.User& " "
 Response.write "Limit: " & vbTab & objQuota.Limit & " "
 Response.write "Disk Space Used: "& vbTab & objQuota.DiskSpaceUsed& " "
 response.write ""
Next

ASKER CERTIFIED SOLUTION

hongjun

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Abdu_Allah

ASKER

It seems a good solution but why I got this error:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/login.asp, line 21, column 138
Set colQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota where User='Win32_Account.Domain=""USER-89C9A"",Name=""m""'"))

hongjun

You got an extra close bracket
Should be

Set colQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota where User='Win32_Account.Domain=""USER-89C9A"",Name=""m""'")

Abdu_Allah

ASKER

Ok this is my mistake I put a double brakets it works fine now. thanks.

Abdu_Allah

ASKER

By the way hongjun, this code needs administrative credential to be excuted what if the user(s) that loged in using Windows credential was not administrator! how can I execute this code? any idea?

hongjun

I believe this code is only for Administrators