<html>
<head>
<title>磁盘空间查看脚本</title>
<HTA：アプリケーション
ApplicationName = "磁盘空间查看脚"
border = "ダイアログ"
BORDERSTYLE = "正常"
キャプション= "はい"
contextmenu = "no"
MaximizeButton = "no"
minimizebutton = "yes"
navigable = "no"
scroll = "yes"
選択=「いいえ」
showintaskbar = "yes"
singleInstance = "はい"
sysmenu = "yes"
version = "1.0"
window -state = "normal"
>
<scriptlanguage = "vbscript">
<！ - 挿入コード、サブルーチン、およびファンクションHere->
window.resizeto500,420
ileft =（window.screen.width-500）/2
itop =（window.screen.height-420）/2
window.movetoileft、itop
subwindow_onload
getDiskspace
Endingub
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>"