<Html>
<head>
<title> 磁盘空间查看脚本 </iteme>
<HTA: Aplikasi
ApplicationName = "磁盘空间查看脚"
Border = "Dialog"
Borderstyle = "Normal"
Keterangan = "Ya"
ContextMenu = "Tidak"
MaximizeButton = "Tidak"
MinimizeButton = "Ya"
navigable = "no"
gulir = "ya"
seleksi = "tidak"
showInkBar = "ya"
SingleInstance = "Ya"
sysmenu = "ya"
Versi = "1.0"
WindowState = "Normal"
>
<scriptLanguage = "vbscript">
<!-insertCode, subrutin, dan fungsi dihere->
Window.Resizeto500.420
ileft = (window.screen.width-500)/2
ITOP = (Window.Screen.Height-420)/2
window.movetoileft, ITOP
Subwindow_onload
Getdiskspace
Endsub
SubgetDiskspace
Conshard_disk = 3
Constsize = 1048576
strcomputer = "."
Setobjwmiservice = getObject ("winmgmts:" _
& "{ImpersonationLevel = meniru}! //" & strcomputer & "/root/cimv2")
SetColdisks = objwmiservice.execquery_
("Pilih*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>"