hta查看磁盘空间的脚本

当前位置：首页 > 范文|应用文 > IT技术专栏 > 脚本栏目

hta查看磁盘空间的脚本

来源：易贤网阅读：856 次日期：2014-08-12 17:47:12

温馨提示：易贤网小编为您整理了“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"

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>"

strHTML = strHTML & "</table>"

DataArea.InnerHTML = strHTML

End Sub

</script>

</head>

<body>

<table align=center width=95%><font color="#C63358"><b>磁盘空间查看脚本</b></font><br>

<font size="2">显示各磁盘分区使用情况（<font color="#FF0000">/MB</font>）</font></font></table>

</body>

</html>

保存为hta文件.

更多信息请查看IT技术专栏

上一篇：适用于hta的Sleep函数

下一篇：HTA编辑HOST文件的脚本

易贤网手机网站地址：hta查看磁盘空间的脚本

由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！