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> 
    保存为hta文件.