用hta实现的可以查看磁盘剩余空间的脚本


磁盘空间查看脚本
 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"
>




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 = "
 strHTML = strHTML & ""
 strHTML = strHTML & " " & "分区" & ""
 strHTML = strHTML & " " & "容量" & ""
 strHTML = strHTML & " " & "已用" & ""
 strHTML = strHTML & " " & "未用" & ""
 strHTML = strHTML & " " & "空闲" & ""

 
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 & ""
 strHTML = strHTML & " " & DeviceID & ""
 strHTML = strHTML & " " & FormatNumber(intTotalSpace,2,-1,-1,0) & ""
 strHTML = strHTML & " " & FormatNumber(infFuLin,2,-1,-1,0) & ""
 strHTML = strHTML & " " & FormatNumber(intFreeSpace,2,-1,-1,0) & ""
 strHTML = strHTML & " " & FormatPercent(intFreeSpace/intTotalSpace) & ""

Next
strHTML = strHTML & ""
DataArea.InnerHTML = strHTML
End Sub








磁盘空间查看脚本

  显示各磁盘分区使用情况( /MB)

 

 
保存为hta文件.

最新资讯
AI+小学:通过AI捕捉孩子姿态 评估学习兴趣与效果

AI+小学:通过AI捕捉孩

该校正在构建智能课堂行为分析系统,运用如姿态评估、表
我在B站当老师

我在B站当老师

从ACG社区到正经学习网站,B站吸引了一批老师型UP主入驻
行业痛点凸显 用户简历倒卖产业链浮出水面

行业痛点凸显 用户简

随着互联网技术的发展,招聘行业也在利用更多的技术手段
咖啡领域竞争升级 跨界“饮茶”成新风向

咖啡领域竞争升级 跨

后起之秀疯狂扩张,倒逼行业龙头星巴克也在不断进行变革
新东方在线战略亏损:扩张提速

新东方在线战略亏损:扩

同时,新东方在线高层发生变动引发业内关注,原执行董事潘
戴森跨界造车大冒险:斥资20亿英镑 建工厂迁总部

戴森跨界造车大冒险:斥

以一封邮件宣布进军电动车领域的戴森公司,前不久又因一
最新文章
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答: