时间:2021-05-23
<html>
<head>
<title>磁盘空间查看脚本</title>
<hta:application
applicationname="磁盘空间查看脚"
border="dialog"
borderstyle="normal"
caption="yes"
contextmenu="no"
maximizebutton="no"
minimizebutton="yes"
navigable="no"
scroll="yes"
selection="no"
showintaskbar="yes"
singleinstance="yes"
sysmenu="yes"
version="1.0"
windowstate="normal"
>
<scriptlanguage="vbscript">
<!--Insertcode,subroutines,andfunctionshere-->
window.resizeTo500,420
ileft=(window.screen.width-500)/2
itop=(window.screen.height-420)/2
window.moveToileft,itop
SubWindow_onLoad
GetDiskSpace
EndSub
SubGetDiskSpace
ConstHARD_DISK=3
ConstSize=1048576
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolDisks=objWMIService.ExecQuery_
("Select*fromWin32_LogicalDiskWhereDriveType="&HARD_DISK&"")
strHTML="<tablealign=centerwidth=95%borderColor=#698cc2border='1'cellSpacing='0'cellpadding='1'>"
strHTML=strHTML&"<tr>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"分区"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"容量"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"已用"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"未用"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"空闲"&"</b></td>"
ForEachobjDiskIncolDisks
intFreeSpace=objDisk.FreeSpace/Size
intTotalSpace=objDisk.Size/Size
pctFreeSpace=intFreeSpace/Size/intTotalSpace/Size
infFuLin=intTotalSpace-intFreeSpace
DeviceID=objDisk.DeviceID
strHTML=strHTML&"<tr>"
strHTML=strHTML&"<tdwidth=110pxalign=center>"&DeviceID&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right>"&FormatNumber(intTotalSpace,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right><fontcolor=#DB2C00>"&FormatNumber(infFuLin,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right><fontcolor=#008080>"&FormatNumber(intFreeSpace,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right>"&FormatPercent(intFreeSpace/intTotalSpace)&"</td>"
Next
strHTML=strHTML&"</table>"
DataArea.InnerHTML=strHTML
EndSub
</script>
</head>
<body>
<!--HTMLgoeshere-->
<tablealign=centerwidth=95%><fontcolor="#C63358"><b>磁盘空间查看脚本</b></font><br>
<fontsize="2">显示各磁盘分区使用情况(<fontcolor="#FF0000">/MB</font>)</font></font></table>
<bodybgcolor="#99CCFF">
<spanid="DataArea"></span>
</body>
</html>
保存为hta文件.
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
磁盘管理日程磁盘管理中,我们最常用的有查看当前磁盘使用情况,查看当前目录所占大小,以及打包压缩与解压缩;查看磁盘空间查看磁盘空间利用大小复制代码代码如下:df-
首先要确定您所需要的磁盘空间和流量。首先要确定您所需要的磁盘空间和流量。多少磁盘空间?小型或中型的网站至少需要10MB到100MB的磁盘空间。如果只考虑HTML
磁盘空间怎么清理? 删除电脑磁盘(硬盘)里没用的文件叫做释放磁盘空间,把磁盘空间让出来。也是减少系统盘(C盘)已用空间的大小,一般C盘装不下东西的时候会出现提
磁盘空间怎么清理? 删除电脑磁盘(硬盘)里没用的文件叫做释放磁盘空间,把磁盘空间让出来。也是减少系统盘(C盘)已用空间的大小,一般C盘装不下东西的时候会出现提
扩大磁盘空间的方法: 1、清理电脑上不用的文件和垃圾文件,节约可控的有限磁盘空间。可以自己查看电脑硬盘文件或用其他有电脑清理功能的软件帮助实现,注意不要误删电