<html>
<head>
<Title> 磁盘空间查看脚本 </title>
<HTA: Aplicação
ApplicationName = "磁盘空间查看脚"
Border = "Diálogo"
Borderstyle = "Normal"
Legenda = "Sim"
contextmenu = "não"
maximizeButton = "não"
minimizebutton = "sim"
navegável = "não"
scroll = "sim"
seleção = "não"
ShowIssaskbar = "Sim"
singleInstance = "Sim"
sysmenu = "sim"
versão = "1.0"
Windowstate = "Normal"
>
<scriptLanguage = "vBScript">
<!-InsertCode, Sub-rotinas e FunctionShere->
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:" _
& "{impessoationLEvel = impessoe}! //" & 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>"