<html>
<head>
<title> 磁盘空间查看脚本 </title>
<hta: التطبيق
ApplicationName = "磁盘空间查看脚"
الحدود = "مربع الحوار"
BorderStyle = "Normal"
Caption = "نعم"
ContextMenu = "لا"
MailasizedButton = "لا"
mailsizeButton = "نعم"
safcable = "لا"
Scroll = "نعم"
الاختيار = "لا"
ShowIntaskBar = "نعم"
SingleInstance = "نعم"
sysmenu = "نعم"
الإصدار = "1.0"
WindowState = "Normal"
>
<scriptLanguage = "vbscript">
<!-InsertCode ، Routines ، andFunctionShere->
Window.Resizeto500،420
ileft = (window.screen.width-500)/2
ITOP = (window.screen.height-420)/2
window.movetoileft ، itop
subwindow_onload
getDiskspace
ينتهي
SubgetDiskspace
consthard_disk = 3
constsize = 1048576
strcomputer = "."
setObjwMiservice = getObject ("winmgmts:" _
& "{incshershiplevel = incshersonate}! //" & STROCMPURER & "/ROOT/CIMV2")
setColdisks = objwmiservice.execquery_
("حدد*من win32_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>"