Solved

Disk Quota With ASP

Posted on 2004-09-13

Web Development

1 solution

474 Views

Last Modified: 2008-01-09

Hi,

To cut a long story short, I need an ASP page to give me the space/quota for a mapped network drive. So far I have this (i'm no expert):

<%

Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set hdrv = fsoObject.GetDrive (fsoObject.GetDriveName("H:\"))
TotalQuata = FormatNumber(hdrv.TotalSize / 1024000,0)
FreeQuota = FormatNumber(hdrv.Freespace / 1024000,0)
Response.Write(TotalQuota)
Response.Write(FreeQuota)

%>

This works fine for a local drive (i.e. C) but when I try to change it to H (our mapped home drive letter), it gives this error:

Microsoft VBScript runtime error '800a0044'

Device unavailable

Is there something really easy i'm missing, or is it not possible to do this with an ASP page???

Thanks! ;-)

Comment

Question by:w00tastic

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

18 Comments

LVL 13

Expert Comment

by:davidlars99

ID: 120500592004-09-13

"H:" is a network drive right...? then you need to do this

Set WshNetwork = server.CreateObject("WScript.Network")
set NetDrive=WshNetwork.MapNetworkDrive("H:\", "\\Server\Share" ) 'second parameter is optional

but I don't think you can get size of the network drive.

LVL 13

Expert Comment

by:davidlars99

ID: 120500722004-09-13

try this too...

dim fs,d,s
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("H:")
s=d.totalsize

Author Comment

by:w00tastic

ID: 120501512004-09-13

davidlars99,

Point 1: Wouldn't that be to map a network drive?, if so, the drive is already mapped at log on to \\studentserver\studentname$
Point 2: Same error as I was getting before.

Thanks anyway!

LVL 3

Expert Comment

by:travisjhall

ID: 120504232004-09-13

You don't have the drive already mapped on the server, where the ASP is running. You only have it mapped on the client. Remember, ASP stands for Active SERVER Pages. Nothing on the client computer matters when running ASP code.

Author Comment

by:w00tastic

ID: 120505202004-09-13

You're right, I guess my head isn't screwed on straight today.
I thought it was working, but the C drive on the server just happens to be around the same size as on my machine here, and that's the size I was getting.

Okay, now what?

Is there some other way of doing this or not?

I want to put a number of things into a web page on the desktop that is mandatory on all student profiles here, including how much space they have left in their H drive.

Thanks!

LVL 13

Expert Comment

by:davidlars99

ID: 120508772004-09-13

did you try this?

dim fs,d,s
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("H:")
s=d.totalsize

Author Comment

by:w00tastic

ID: 120514632004-09-13

Yeah, I did.
It works much the same as mine, gets the drive values from the server that the page is run from, rather than the client machine.

Any other ideas would be appreciated guys.

Thanks!

LVL 2

Expert Comment

by:benbalbo

ID: 120537612004-09-14

How about running IIS on studentserver with a page that returns the quota info (which it can read) in XML, or other format, to the ASP page on your main web server.

Maybe a bit overkill though :-)

LVL 15

Expert Comment

by:joeposter649

ID: 120582712004-09-14

I'd look into using WMI...
http://www.microsoft.com/resources/documentation/windows/2000/server/scriptguide/en-us/sas_fsd_rrhv.mspx

http://www.microsoft.com/technet/scriptcenter/resources/wmifaq.mspx

LVL 13

Expert Comment

by:davidlars99

ID: 120590442004-09-14

wow..! isn't that cool or what. I tryied WMI on XP and sadly it did not work

LVL 13

Expert Comment

by:davidlars99

ID: 120590892004-09-14

it's only supperted on NT platform

LVL 2

Expert Comment

by:kmalhotra

ID: 120596692004-09-14

I do not know how familiar you are with ActiveX. That would be perfect for this job. Ofcourse then it will work only with IE. You need to check something on the client's machine. ASP can not allow you to do that. Need something on the client's machine. Then you can have your ASP page interactign with the Activex page.

LEt me know if you need help with this.

Thanks

LVL 15

Expert Comment

by:joeposter649

ID: 120605172004-09-14

<< it's only supperted on NT platform>>
No... http://www.microsoft.com/technet/scriptcenter/resources/wmifaq.mspx#EMAA

<>
http://www.microsoft.com/technet/scriptcenter/resources/wmifaq.mspx#EHAA

You might find this useful too...
http://www.activexperts.com/activmonitor/windowsmanagement/wmi/samples/

Author Comment

by:w00tastic

ID: 120705222004-09-15

Thanks for all the suggestions guys, i'll look into them.
Now i'm thinking a bit clearer, i've decided my way of tackling this problem wasn't quite right.
What I need to do is extract data directly from the quota entries on the student server, which just happens to be running IIS.

Any idea's on this one?

I've seen a few bits of code about, and even some stuff on Experts Exchange..... but nothing that really suits what I want.

Author Comment

by:w00tastic

ID: 120705532004-09-15

By the way, it's Server 2003 running IIS 6.0 and we only use Internet Explorer here.

LVL 2

Expert Comment

by:kmalhotra

ID: 120749612004-09-16

You can have a webservice running on the student server such that when you pass it a student id, it will return the size of the student's directory on the server. You will need to create a server objects to read files/folder and get their size.

Thanks
KM

LVL 15

Accepted Solution

by:joeposter649

joeposter649 earned 250 total points

ID: 120756802004-09-16

Not quite sure what you're looking for. Maybe this...

Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
colDiskQuotas.UsernameResolution = 1
colDiskQuotas.Initialize "C:\", True

For Each objUser in colDiskQuotas
response.Write objUser.LogonName & " "
response.Write objUser.QuotaLimit & " "
response.Write objUser.QuotaThreshold & " "
response.Write objUser.QuotaUsed & " "
Next

Or this...

Set oUser = GetObject("WinNT://yourdomain/username")
Response.Write oUser.MaxStorage & " "

Author Comment

by:w00tastic

ID: 120907242004-09-18

Yep, that's it!!!
Well done, you have saved me.
Points well earned ;-)

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Why Your Company Website Should Have a FAQ Page

Article by: Lexie

FAQ pages provide a simple way for you to supply and for customers to find answers to the most common questions about your company. Here are six reasons why your company website should have a FAQ page

How to Market Any Industry With 4 Easy Steps

Article by: Lexie

Although a lot of people devote their energy toward marketing for specific industries, there are some basic principles that can be applied to any sector imaginable. We’ll look at four steps to take and examine how those steps were put into action fo…

Should Your Business Accept Bitcoin?

Video by: Terry

Viewers will get an overview of the benefits and risks of using Bitcoin to accept payments. What Bitcoin is: Legality: Risks: Benefits: Which businesses are best suited?: Other things you should know: How to get started: