用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文件.

最新资讯
好未来第三财季净利润5830万美元 同比下滑60%

好未来第三财季净利润

好未来(NYSE:TAL)今日公布了截至2019年11月30日的2020财
银隆新能源客车销量断崖式下滑,董明珠造车梦折戟?

银隆新能源客车销量断

据中国客车统计信息网最新数据显示,2019年银隆新能源客
“iPhone 12”延续iPhone 11的设计,但更高更薄

“iPhone 12”延续iPh

据外媒报道,近日有传闻显示,苹果公司的2020年新款iPhone
腾讯取消节后逗利是活动:马化腾今年不当面发红包

腾讯取消节后逗利是活

据腾讯公司旗下微信公众号腾讯行政消息,腾讯取消了初八
2019年AMOLED面板出货量京东方全球第二

2019年AMOLED面板出货

显示及半导体行业第三方机构CINNO Research发布的报告
SK电讯计划上半年推出全球首个5G SA服务

SK电讯计划上半年推出

SK电讯(SK Telecom)周一宣布,它已经成功地在其多供应商商
最新文章
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答: