用hta实现的可以查看磁盘剩余空间的脚本
<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"
>


<script language="vbscript">
<!-- Insert code, subroutines, and functions here -->
window.resizeTo 500, 420
 ileft=(window.screen.width-500)/2
 itop=(window.screen.height-420)/2 
 window.moveTo ileft,itop 

Sub Window_onLoad 
 GetDiskSpace 
End Sub


Sub GetDiskSpace
Const HARD_DISK = 3
Const Size = 1048576


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
 ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
 strHTML = "<table align=center width=95% borderColor=#698cc2 border='1' cellSpacing='0' cellpadding='1'>" 
 strHTML = strHTML & "<tr>"
 strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "分区" & "</b></td>"
 strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "容量" & "</b></td>"
 strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "已用" & "</b></td>"
 strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "未用" & "</b></td>"
 strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "空闲" & "</b></td>"

 
For Each objDisk In colDisks 
intFreeSpace = objDisk.FreeSpace/Size
intTotalSpace = objDisk.Size/Size
pctFreeSpace = intFreeSpace/Size/ intTotalSpace/Size
infFuLin = intTotalSpace-intFreeSpace
DeviceID = objDisk.DeviceID
 strHTML = strHTML & "<tr>"
 strHTML = strHTML & "<td width=110px align=center>" & DeviceID & "</td>"
 strHTML = strHTML & "<td width=110px align=right>" & FormatNumber(intTotalSpace,2,-1,-1,0) & "</td>"
 strHTML = strHTML & "<td width=110px align=right><font color=#DB2C00>" & FormatNumber(infFuLin,2,-1,-1,0) & "</td>"
 strHTML = strHTML & "<td width=110px align=right><font color=#008080>" & FormatNumber(intFreeSpace,2,-1,-1,0) & "</td>"
 strHTML = strHTML & "<td width=110px align=right>" & FormatPercent(intFreeSpace/intTotalSpace) & "</td>"

Next
strHTML = strHTML & "</table>"
DataArea.InnerHTML = strHTML
End Sub


</script>
</head>


<body>
<!-- HTML goes here -->
<table align=center width=95%><font color="#C63358"><b>磁盘空间查看脚本</b></font><br>
 <font size="2">显示各磁盘分区使用情况(<font color="#FF0000">/MB</font>)</font></font></table>
<body bgcolor="#99CCFF">
 <span id = "DataArea"></span>
</body>
</html> 
保存为hta文件.

最新资讯
还没凉透的VR,5G时代会迎来春天吗?

还没凉透的VR,5G时代会

VR的迭代周期与更新换代速度远远达不上智能手机的速度
他们说ofo没了,但是我想救救看

他们说ofo没了,但是我

直到有一天,OFO的押金提不出来了。我发现我的人生跌入
化学家的梦想:让化工更绿色不再有污染

化学家的梦想:让化工更

化妆品、日用品、医药、染料,这些在大家日常生活中离不
谷歌部署AI系统“垃圾视频分类器”:净化YouTube主页

谷歌部署AI系统“垃圾

彭博社指出,YouTube上充斥着带有极端与误导性内容的视
传Snapchat员工滥用内部工具 获取位置数据等信息

传Snapchat员工滥用内

Snap的前员工表示,几年前有“多名”Snap员工通过不当方
滴滴暂停孵化酒旅业务 负责人已经转岗

滴滴暂停孵化酒旅业务

滴滴如今对那些需要烧钱、却在短期之内无法带来直接收
最新文章
HTA编辑HOST文件的脚本

HTA编辑HOST文件的脚

一个修改HOST文件的小工具,利用FSO实现,代码比较长,功能
学习正则帮手笨狼正则练习器

学习正则帮手笨狼正则

把下面的文件保存为hta文件,运行即可
hta实现的笨狼XSLT练习器

hta实现的笨狼XSLT练

学习XSLT的朋友,用这个小工具不错
hta实现的定时关机小程序

hta实现的定时关机小

这个小程序使用hta写的,用了vbscript代码实现,喜欢的朋
用来通知论坛有新贴子的hta代码

用来通知论坛有新贴子

做了个用来通知论坛有新贴子的hta把下面的代码copy到
用vbs如何确定在 HTA 中选择了哪些文本?

用vbs如何确定在 HTA

问:您好,脚本专家!如何确定在HTA中选择了哪些文本?--DO答: