Please clarify the specific content of the "hta script" mentioned. As the current information is relatively limited, I need more details about the specific code or context of the hta script related to obtaining the exact values of used/unused space of all partitions to accurately translate and handle it. Please provide more relevant content. - China DOS Union Forum

Today I found it online. Originally it was in GB, changed to MB, and the interface was slightly modified.

HTA script (with the extension hta)

<html>
<head>

<title>Disk Space View Script</title>

<hta:application
    applicationname="Disk Space View Script"    
    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>" & "Partition" & "</b></td>"
        strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Capacity" & "</b></td>"
        strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Used" & "</b></td>"
        strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Unused" & "</b></td>"
        strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Free" & "</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>Disk Space View Script</b></font><br>
    <font size="2">Display the usage of each disk partition (<font color="#FF0000">/MB</font>)</font></font></table>
<body bgcolor="#99CCFF">
    <span id = "DataArea"></span>
</body>
</html>

The attachment is the original author's code file

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

Floor1　zh159	Posted 2007-03-12 06:07
金牌会员　Posts 1,467　Credits 3,687
Today I found it online. Originally it was in GB, changed to MB, and the interface was slightly modified. HTA script (with the extension hta) <html> <head> <title>Disk Space View Script</title> <hta:application applicationname="Disk Space View Script" 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>" & "Partition" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Capacity" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Used" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Unused" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "Free" & "</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>Disk Space View Script</b></font><br> <font size="2">Display the usage of each disk partition (<font color="#FF0000">/MB</font>)</font></font></table> <body bgcolor="#99CCFF"> <span id = "DataArea"></span> </body> </html> The attachment is the original author's code file [ Last edited by zh159 on 2007-3-12 at 10:46 AM ] Attachments 自己修改的磁盘空间查看脚本界面.gif (18.58 KiB) 原磁盘空间查看脚本.rar (1.54 KiB)

Floor2　ccwan	Posted 2007-03-12 07:10
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
Sofa! This is a good thing, thank you for sharing.

Floor3　ccwan	Posted 2007-03-12 07:14
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
This is displaying GB. Attachments snap.gif (38.03 KiB)

Floor4　zhoushijay	Posted 2007-03-12 07:20
高级用户　Posts 375　Credits 845
Can such an effect be achieved using DOS commands + HTML instead of VB?

Floor5　xycoordinate	Posted 2007-03-12 08:06
中级用户　Posts 228　Credits 493　From 安徽
Let me take a look

Floor6　lxmxn	Posted 2007-03-12 09:51
版主　Posts 4,938　Credits 11,386
Make a simple WMIC one: (Applicable to Windows XP and above systems) @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 ]

Floor7　anqing	Posted 2007-03-12 12:18
高级用户　Posts 413　Credits 859
Where is the a.html?

Floor8　yishanju	Posted 2007-03-13 03:26
银牌会员　Posts 1,357　Credits 1,488
Originally posted by lxmxn at 2007-3-12 09:51: 　　Let's make a simple WMIC one: (for Windows XP and above systems) @echo off wmic /output:a.html logicaldisk where "DriveType=3" get DeviceID,Size,FreeSp ... :) It should be in the system32 folder, right?

Floor9　lxmxn	Posted 2007-03-13 03:30
版主　Posts 4,938　Credits 11,386
Originally posted by anqing at 2007-3-11 23:18: Where is a.html? 　　It is in the directory where the batch file is located.

Floor10　axi	Posted 2007-03-13 04:03
中级用户　Posts 93　Credits 238　From GZ
I think the original way of displaying GB is simple and easy to use. The method by lxmxn is simpler. I really admire your script technology. Can you create this information into a text in the current directory?

Floor11　lxmxn	Posted 2007-03-13 04:11
版主　Posts 4,938　Credits 11,386
Originally posted by axi at 2007-3-12 15:03: I think the original way of displaying GB is simple and easy to use. The method by lxmxn is simpler. I really admire your script technology. Can you create this information into a text in the current directory? 　　There are multiple methods: 　　Direct the generated information to 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

Floor12　axi	Posted 2007-03-13 05:51
中级用户　Posts 93　Credits 238　From GZ
Can the form height of the "disk space viewing script" be automatically adjusted according to the content?

Floor13　hapeacock	Posted 2007-08-22 20:59
新手上路　Posts 5　Credits 10
Does it support multiple hard drives?

Floor14　Nickey	Posted 2007-08-25 14:28
初级用户　Posts 59　Credits 132　From GuangZhou
29729.63MB is not very intuitive. It's more intuitive to be 17.1GB. After all, hard drives nowadays are often in the hundreds of GB range.

Floor15　wxhh12	Posted 2007-11-28 14:26
新手上路　Posts 1　Credits 3