用asp或asp.net显示NTFS磁盘空间

最新推荐文章于 2024-11-04 17:40:25 发布

yeagen

最新推荐文章于 2024-11-04 17:40:25 发布

阅读量603

点赞数

分类专栏：技术类文章标签： asp.net asp 磁盘 disk user null

技术类专栏收录该内容

30 篇文章 0 订阅

订阅专栏

ASP的:

<%
disk=request.QueryString("disk")
user=request.QueryString("user")
if disk="" or user="" then
Response.Write "没有指定硬盘或用户(disk,user)"
else

Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
colDiskQuotas.Initialize disk, True
set objUser = colDiskQuotas.FindUser(user)
Response.write "警告等级:"
Response.write objUser.QuotaThreshold
Response.write "配额限制:"
Response.write objUser.QuotaLimit
Response.write "使用数量:"
Response.write objUser.QuotaUsed
Response.write "状态:"
Response.write colDiskQuotas.QuotaState

end if
%>

ASP.NET的：

<%@ Page language="c#" aspcompat="true" AutoEventWireup="false" %>
<%@ Import Namespace= "DiskQuotaTypeLibrary"%>

<%
string disk = Request.Params("disk");
stirng user = Request.Params("user");

if (disk==null || user==null){
Response.Wirte("没有输入盘或用户名(disk,user).");
return;
}

try{
DiskQuotaControlClass diskQuotaControl = new DiskQuotaControlClass();
//Initializes the control to the specified path
diskQuotaControl.Initialize ("f://", true);
DIDiskQuotaUser dskuser = diskQuotaControl.FindUser("staff");
Response.Write("磁盘配额:" +dskuser.QuotaLimitText + " ");
Response.Write("警告容量:" + dskuser.QuotaThresholdText + " ");
Response.Write("已用容量:" + dskuser.QuotaUsedText + " ");
Response.Write("状态:" + dskuser.AccountStatus + " ");
Response.Write( "用户名:" + dskuser.LogonName);
}catch{
%>