<html>
<頭>
<title>磁盤空間查看腳本</title>
<hta：應用程序
applicationName =“磁盤空間查看腳”
邊界=“對話”
borderstyle =“正常”
字幕=“是”
contextMenu =“否”
最大化布頓=“否”
最小化=“是”
可通道=“否”
滾動=“是”
選擇=“否”
ShowIntaskBar =“是”
singleSinstance =“是”
sysmenu =“是”
版本=“ 1.0”
WindowState =“正常”
>
<ScriptLanguage =“ VBScript”>
<！ - 插入碼，子例程和functions->
Window.Resizeto500,420
ileft =（window.screen.width-500）/2
itop =（window.screen.height-420）/2
window.movetoileft，itop
SupWindow_Onload
GetDiskSpace
endub
SubgetDiskSpace
cousthard_disk = 3
構成= 1048576
strcomputer =“。”。
setObjwmiservice = getObject（“ winmgmts：” _
＆“ {ImpersonationLevel = imponate}！//”＆strcomputer＆“/root/cimv2”）
setColdisks = objwmiservice.execquery_
（“選擇*fromwin32_logicaldiskwheredrivetype =”＆hard_disk＆“”）
strhtml =“ <tablealign = centerWidth = 95％bordercolor =＃698cc2border ='1'cellSpacing ='0'0'CellPadding ='1'1'>”
strhtml = strhtml＆“ <tr>”
strhtml = strhtml＆“ <tdwidth = 110pxalign = center> <fontsize = 2> <b>“＆”＆“分區”＆“ </b> </td>”
strhtml = strhtml＆“ <tdwidth = 110pxalign = center> <fontsize = 2> <b>“＆”＆“容量”＆“ </b> </td>”