hta查看磁盘空间的脚本-巨人网络通讯

主页 > 知识库 > 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>
保存为hta文件.

标签：沧州新疆河南长治乐山红河沈阳上海

巨人网络通讯声明：本文标题《hta查看磁盘空间的脚本》，本文关键词；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。

hta查看磁盘空间的脚本

QQ咨询

电话咨询