<html>
<head>
<title> 磁盘空间查看脚本 </title>
<HTA: แอปพลิเคชัน
ApplicationName = "磁盘空间查看脚"
Border = "Dialog"
Borderstyle = "ปกติ"
คำบรรยายภาพ = "ใช่"
ContextMenu = "ไม่"
MaximizeButton = "ไม่"
minimizeButton = "ใช่"
Navigable = "ไม่"
Scroll = "ใช่"
การเลือก = "ไม่"
showintaskBar = "ใช่"
singleinstance = "ใช่"
sysmenu = "ใช่"
เวอร์ชัน = "1.0"
WindowState = "ปกติ"
-
<scriptLanguage = "vbscript">
<!-InsertCode, Subroutines และ FunctionShere->
window.resizeto500,420
ileft = (window.screen.width-500)/2
itop = (window.screen.height-420)/2
window.movetoileft, itop
subwindow_onload
getDiskspace
enddub
SubgetDiskspace
consthard_disk = 3
Constsize = 1048576
strcomputer = "."
setObjwmiservice = getObject ("winmgmts:" _
& "{impersonationLevel = impersonate}! //" & strcomputer & "/root/cimv2")
setColdisks = objwmiservice.execQuery_
("เลือก*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>"