<html>
<adal>
<Title> 磁盘空间查看脚本 </TITAL>
<HTA: application
applicationName = "磁盘空间查看脚"
Border = "Dialog"
borderstyle = "normal"
Légende = "Oui"
contextMenu = "no"
maximiserbutton = "no"
minimiserbutton = "oui"
navigable = "non"
scroll = "oui"
sélection = "non"
showintaskbar = "Oui"
singleinstance = "Oui"
sysmenu = "Oui"
version = "1.0"
fenêtre = "normal"
>
<criptLanguage = "vbscript">
<! - INSERTCODE, SUBROUTINES et FONCTIONNEMENTSE ->
window.resizeto500,420
ileft = (window.screen.width-500) / 2
itop = (window.screen.height-420) / 2
window.movetoileft, itop
Subwindow_onload
GetDiskspace
Fin
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>" & "分区" & "</b> </td>"
strhtml = strhtml & "<tdwidth = 110pxalign = Center> <FonTSize = 2> <b>" & "容量" & "</b> </td>"