<html>
<kopf>
<title> 磁盘空间查看脚本 </title>
<hta: Anwendung
applicationName = "磁盘空间查看脚"
Border = "Dialog"
BORDERSYLE = "Normal"
caption = "Ja"
contextMenu = "nein"
maximizeButton = "nein"
MinimizeButton = "Ja"
navigable = "nein"
scroll = "Ja"
Selection = "nein"
ShowIntaskbar = "Ja"
SingleInInstance = "Ja"
sysmenu = "Ja"
Version = "1.0"
windowState = "normal"
>
<scriptuBanguage = "vbscript">
<!-InsertCode, Unterprogramme und Funktionen->
Fenster.Resizeto500,420
ileft = (window.screen.width-500)/2
itop = (window.screen.height-420)/2
window.movetoileft, itop
Subwindow_onload
GetDiskspace
Ende
SubgetDiskspace
Consthard_disk = 3
Constrize = 1048576
strComputer = "."
SetObjwmiservice = getObject ("Winmgmts:" _
& "{ImpersonationLevel = Imitpersonate}! //" & strComputer & "/root/cimv2")
SetColdISS = objwmiservice.execQuery_
.
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>"