<html>
<голова>
<title> 磁盘空间查看脚本 </title>
<HTA: Приложение
ApplicationName = "磁盘空间查看脚"
border = "диалог"
BordersTyle = "Нормальный"
Подпись = "Да"
Contextmenu = "Нет"
MaximizeButton = "Нет"
Минимизируйте, что = "Да"
Навигал = "Нет"
Scroll = "Да"
Selection = "Нет"
Showintaskbar = "Да"
SingleInstance = "Да"
sysmenu = "Да"
версия = "1.0"
WindowState = "Нормальный"
>
<scriptlanguage = "vbscript">
<!-Вставьте код, подпрограммы, и функцию->
Window.Resizeto500,420
ilft = (window.screen.width-500)/2
itop = (window.screen.height-420)/2
window.movetoileft, itop
Subwindow_onload
GetDiskspace
Заканчивая
SubgetDiskspace
COSSTHARD_DISK = 3
Constsize = 1048576
strcomputer = "."
Setobjwmiservice = getObject ("winmgmts:" _
& "{ImpersationLevel = Operate}! //" & 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>"