<html>
<헤드>
<title> </title>
<HTA : 응용 프로그램
ApplicationName = "" "
Border = "대화"
Borderstyle = "정상"
캡션 = "예"
ContextMenu = "아니요"
maximizebutton = "no"
MinimizeButton = "예"
탐색 가능 = "아니요"
스크롤 = "예"
선택 = "아니요"
Showintaskbar = "예"
SingleInstance = "예"
sysmenu = "예"
버전 = "1.0"
Windowstate = "정상"
>
<scriptLanguage = "vbscript">
<!-삽입 코드, 서브 루틴 및 기능->
Window.Resizeto500,420
Ileft = (Window.Screen.width-500)/2
itop = (window.screen.height-420)/2
Window.movetoileft, Itop
subwindow_onload
getDiskSpace
Endsub
분식 디스크 스페이스
consthard_disk = 3
constsize = 1048576
strcomputer = "."
setobjwmiservice = getObject ( "winmgmts :"_
& "{issersonationlevel = 가장 친한}! //"& 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>"