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

最新资讯
“花总”悬赏十万元征集信息泄露源头线索

“花总”悬赏十万元征

网友“花总丢了金箍棒”在曝光多家酒店卫生问题后,个人
知乎被爆紧急大裁员 员工称只聊5分钟就让走人

知乎被爆紧急大裁员

“裁员上百人肯定是有的,一个业务线可能就会裁员几十人
抖音加速商业化:购物车功能开放 粉丝8000以上可申请

抖音加速商业化:购物

12月11日,抖音正式宣布购物车功能开放申请,商业化变现速
高通苹果专利之争:一场已上演多场的商业大戏

高通苹果专利之争:一场

临时禁令是一项较新的诉讼保全措施,初见于2000年专利法
重仓线下,竞争资本钱袋,二手车电商将迎来艰难一年

重仓线下,竞争资本钱袋

二手车电商走过了并不平静的一年。
2018星空压轴大戏:周五将迎来双子座流星雨大爆发

2018星空压轴大戏:周五

近日,据网友反映,从11月到现在,一直厄运缠身,翘首期待着“
最新文章
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答: