求所有分区已用/未用空间的精确值（hta脚本） - 中国DOS联盟论坛

今天从网上淘到的，原是GB，改为MB，并稍加修改了界面

hta脚本（扩展名为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 & "\root\cimv2")
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>

附件为原作者的代码文件

[ Last edited by zh159 on 2007-3-12 at 10:46 AM ]

第1楼　zh159	发表于 2007-03-12 06:07
金牌会员　发帖 1,467　积分 3,687
求所有分区已用/未用空间的精确值（hta脚本）今天从网上淘到的，原是GB，改为MB，并稍加修改了界面 hta脚本（扩展名为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 & "\root\cimv2") 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> 附件为原作者的代码文件 [ Last edited by zh159 on 2007-3-12 at 10:46 AM ] 附件自己修改的磁盘空间查看脚本界面.gif (18.58 KiB) 原磁盘空间查看脚本.rar (1.54 KiB)

第2楼　ccwan	发表于 2007-03-12 07:10
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
沙发！这是个好东西，谢谢分享。

第3楼　ccwan	发表于 2007-03-12 07:14
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
这是显示GB的。附件 snap.gif (38.03 KiB)

第4楼　zhoushijay	发表于 2007-03-12 07:20
高级用户　发帖 375　积分 845
不用vb 用DOS命令+html能做出这样的效果来吗？

第5楼　xycoordinate	发表于 2007-03-12 08:06
中级用户　发帖 228　积分 493　来自安徽
看看

第6楼　lxmxn	发表于 2007-03-12 09:51
版主　发帖 4,938　积分 11,386
弄一个简单的WMIC的吧：（适用Windows xp 以上系统） @echo off wmic /output:a.html logicaldisk where "DriveType=3" get DeviceID,Size,FreeSpace,Description,FileSystem /format:htable.xsl start a.html [ Last edited by lxmxn on 2007-3-11 at 08:53 PM ]

第7楼　anqing	发表于 2007-03-12 12:18
高级用户　发帖 413　积分 859
a.html在哪里呀？

第8楼　yishanju	发表于 2007-03-13 03:26
银牌会员　发帖 1,357　积分 1,488
Originally posted by lxmxn at 2007-3-12 09:51: 　　弄一个简单的WMIC的吧：（适用Windows xp 以上系统） @echo off wmic /output:a.html logicaldisk where "DriveType=3" get DeviceID,Size,FreeSp ... :)应该在system32 里面吧

第9楼　lxmxn	发表于 2007-03-13 03:30
版主　发帖 4,938　积分 11,386
Originally posted by anqing at 2007-3-11 23:18: a.html在哪里呀？　　在批处理文件所在的目录中。

第10楼　axi	发表于 2007-03-13 04:03
中级用户　发帖 93　积分 238　来自 GZ
我觉得原创的显示GB方式简洁好用。lxmxn 的方法更简单，真佩服你的脚本技术，能否把此信息创建到当前下的一个文本中呢？

第11楼　lxmxn	发表于 2007-03-13 04:11
版主　发帖 4,938　积分 11,386
Originally posted by axi at 2007-3-12 15:03: 我觉得原创的显示GB方式简洁好用。lxmxn 的方法更简单，真佩服你的脚本技术，能否把此信息创建到当前下的一个文本中呢？　　方法有多种：　　将所生成的信息定向到a.txt: 　　1、 wmic /output:a.txt logicaldisk where "DriveType=3" get DeviceID,Size,FreeSpace,Description,FileSystem 　　2、wmic logicaldisk where "DriveType=3" get DeviceID,Size,FreeSpace,Description,FileSystem>a.txt

第12楼　axi	发表于 2007-03-13 05:51
中级用户　发帖 93　积分 238　来自 GZ
能否使 ”磁盘空间查看脚本“ 的窗体高度根据内容自动调整。

第13楼　hapeacock	发表于 2007-08-22 20:59
新手上路　发帖 5　积分 10
支持多硬盘不\|\|？？

第14楼　Nickey	发表于 2007-08-25 14:28
初级用户　发帖 59　积分 132　来自 GuangZhou
29729.63MB 很不直观还是17.1GB 直观些毕竟现在的硬盘动辄数百GB级了

第15楼　wxhh12	发表于 2007-11-28 14:26
新手上路　发帖 1　积分 3
thanks