<html>
<Evista>
<title> 磁盘空间查看脚本 </title>
<HTA: aplicación
ApplicationName = "磁盘空间查看脚"
border = "diálogo"
BorderStyle = "Normal"
subtítulos = "Sí"
contextMenu = "no"
maximizeButton = "no"
minimizeButton = "Sí"
navegable = "no"
Scroll = "Sí"
selección = "no"
showInTaskBar = "Sí"
singleInstance = "Sí"
sysmenu = "sí"
versión = "1.0"
WindowState = "Normal"
>
<scriptLanguage = "vBscript">
<!-InsertCode, Subrutines y FunctionShere->
ventana.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}! //" & strcomuter & "/root/cimv2")
SetColdisks = objwmiservice.execquery_
("Seleccione*fromWin32_LogicalDiskwheredRiveType =" & Hard_disk & "")
strhtml = "<TableAlign = CenterWidth = 95%BorderColor =#698CC2Border = '1'CellSpacing =' 0'CellPadding = '1'>"
strhtml = strhtml y "<tr>"
strhtml = strhtml & "<tdwidth = 110pxalign = center> <fontSize = 2> <b>" & "分区" & "</b> </td>"
strhtml = strhtml & "<tdwidth = 110pxalign = center> <fontSize = 2> <b>" & "容量" & "</b> </td>"