hta查看磁盤空間的腳本
發(fā)布日期：2021-12-23 00:29 | 文章來源：源碼之家
<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"
>
<scriptlanguage="vbscript">
<!--Insertcode,subroutines,andfunctionshere-->
window.resizeTo500,420
ileft=(window.screen.width-500)/2
itop=(window.screen.height-420)/2
window.moveToileft,itop SubWindow_onLoad
GetDiskSpace
EndSub
SubGetDiskSpace
ConstHARD_DISK=3
ConstSize=1048576
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolDisks=objWMIService.ExecQuery_
("Select*fromWin32_LogicalDiskWhereDriveType="&HARD_DISK&"")
strHTML="<tablealign=centerwidth=95%borderColor=#698cc2border='1'cellSpacing='0'cellpadding='1'>"
strHTML=strHTML&"<tr>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"分區(qū)"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"容量"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"已用"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"未用"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"空閑"&"</b></td>"
ForEachobjDiskIncolDisks
intFreeSpace=objDisk.FreeSpace/Size
intTotalSpace=objDisk.Size/Size
pctFreeSpace=intFreeSpace/Size/intTotalSpace/Size
infFuLin=intTotalSpace-intFreeSpace
DeviceID=objDisk.DeviceID
strHTML=strHTML&"<tr>"
strHTML=strHTML&"<tdwidth=110pxalign=center>"&DeviceID&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right>"&FormatNumber(intTotalSpace,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right><fontcolor=#DB2C00>"&FormatNumber(infFuLin,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right><fontcolor=#008080>"&FormatNumber(intFreeSpace,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right>"&FormatPercent(intFreeSpace/intTotalSpace)&"</td>" Next
strHTML=strHTML&"</table>"
DataArea.InnerHTML=strHTML
EndSub
</script>
</head>
<body>
<!--HTMLgoeshere-->
<tablealign=centerwidth=95%><fontcolor="#C63358"><b>磁盤空間查看腳本</b></font><br>
<fontsize="2">顯示各磁盤分區(qū)使用情況（<fontcolor="#FF0000">/MB</font>）</font></font></table>
<bodybgcolor="#99CCFF">
<spanid="DataArea"></span>
</body>
</html>
保存為hta文件.
<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"
>
<scriptlanguage="vbscript">
<!--Insertcode,subroutines,andfunctionshere-->
window.resizeTo500,420
ileft=(window.screen.width-500)/2
itop=(window.screen.height-420)/2
window.moveToileft,itop SubWindow_onLoad
GetDiskSpace
EndSub
SubGetDiskSpace
ConstHARD_DISK=3
ConstSize=1048576
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolDisks=objWMIService.ExecQuery_
("Select*fromWin32_LogicalDiskWhereDriveType="&HARD_DISK&"")
strHTML="<tablealign=centerwidth=95%borderColor=#698cc2border='1'cellSpacing='0'cellpadding='1'>"
strHTML=strHTML&"<tr>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"分區(qū)"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"容量"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"已用"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"未用"&"</b></td>"
strHTML=strHTML&"<tdwidth=110pxalign=center><fontsize=2><b>"&"空閑"&"</b></td>"
ForEachobjDiskIncolDisks
intFreeSpace=objDisk.FreeSpace/Size
intTotalSpace=objDisk.Size/Size
pctFreeSpace=intFreeSpace/Size/intTotalSpace/Size
infFuLin=intTotalSpace-intFreeSpace
DeviceID=objDisk.DeviceID
strHTML=strHTML&"<tr>"
strHTML=strHTML&"<tdwidth=110pxalign=center>"&DeviceID&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right>"&FormatNumber(intTotalSpace,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right><fontcolor=#DB2C00>"&FormatNumber(infFuLin,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right><fontcolor=#008080>"&FormatNumber(intFreeSpace,2,-1,-1,0)&"</td>"
strHTML=strHTML&"<tdwidth=110pxalign=right>"&FormatPercent(intFreeSpace/intTotalSpace)&"</td>" Next
strHTML=strHTML&"</table>"
DataArea.InnerHTML=strHTML
EndSub
</script>
</head>
<body>
<!--HTMLgoeshere-->
<tablealign=centerwidth=95%><fontcolor="#C63358"><b>磁盤空間查看腳本</b></font><br>
<fontsize="2">顯示各磁盤分區(qū)使用情況（<fontcolor="#FF0000">/MB</font>）</font></font></table>
<bodybgcolor="#99CCFF">
<spanid="DataArea"></span>
</body>
</html>
保存為hta文件.
版權(quán)聲明：本站文章來源標注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學(xué)習(xí)參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
相關(guān)文章
關(guān)注官方微信