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

最新资讯
法国总统马克龙警告谷歌和微软 要遵守欧盟法规

法国总统马克龙警告谷

据报道,法国总统埃马纽埃尔·马克龙(Emmanuel Macron)日
特斯拉和宝马等获得欧盟35亿美元的电池项目援助

特斯拉和宝马等获得欧

据报道,欧盟为特斯拉和宝马等公司获得约29亿欧元(约合35
Twitter收购荷兰时事通讯出版公司Revue 拓展营收源

Twitter收购荷兰时事

Twitter今日宣布,已收购荷兰时事通讯出版公司Revue,旨在
中消协提示:经营者销售盲盒当规范 消费者购买勿盲目

中消协提示:经营者销售

中国消费者协会今天(26日)发布消费提示,提醒经营者销售盲
手机使用与回收报告:隐私问题成为手机回收利用的首要障碍

手机使用与回收报告:隐

无论是手机回收平台,还是电子废弃产品加工处理的企业,都
撕标签、忙出海,“再无爆款”的元气森林慌了?

撕标签、忙出海,“再无

想从“伪日系”到“新国潮”?
最新文章
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答: