| 标题 | hta查看磁盘空间的脚本 |
| 范文 | <html> <head> <title>磁盘空间查看脚本</title> <hta:application applicationname="磁盘空间查看脚" border="dialog" borderstyle="normal" caption="yes" contextmenu="no" maximizebutton="no" minimizebutton="yes" navigable="no" scroll="yes" selection="no" showintaskbar="yes" singleinstance="yes" sysmenu="yes" version="1.0" windowstate="normal" > <script language="vbscript"> <!-- Insert code, subroutines, and functions here --> window.resizeTo 500, 420 ileft=(window.screen.width-500)/2 itop=(window.screen.height-420)/2 window.moveTo ileft,itop Sub Window_onLoad GetDiskSpace End Sub Sub GetDiskSpace Const HARD_DISK = 3 Const Size = 1048576 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "") strHTML = "<table align=center width=95% borderColor=#698cc2 border='1' cellSpacing='0' cellpadding='1'>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "分区" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "容量" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "已用" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "未用" & "</b></td>" strHTML = strHTML & "<td width=110px align=center><font size=2><b>" & "空闲" & "</b></td>" For Each objDisk In colDisks intFreeSpace = objDisk.FreeSpace/Size intTotalSpace = objDisk.Size/Size pctFreeSpace = intFreeSpace/Size/ intTotalSpace/Size infFuLin = intTotalSpace-intFreeSpace DeviceID = objDisk.DeviceID strHTML = strHTML & "<tr>" strHTML = strHTML & "<td width=110px align=center>" & DeviceID & "</td>" strHTML = strHTML & "<td width=110px align=right>" & FormatNumber(intTotalSpace,2,-1,-1,0) & "</td>" strHTML = strHTML & "<td width=110px align=right><font color=#DB2C00>" & FormatNumber(infFuLin,2,-1,-1,0) & "</td>" strHTML = strHTML & "<td width=110px align=right><font color=#008080>" & FormatNumber(intFreeSpace,2,-1,-1,0) & "</td>" strHTML = strHTML & "<td width=110px align=right>" & FormatPercent(intFreeSpace/intTotalSpace) & "</td>" Next strHTML = strHTML & "</table>" DataArea.InnerHTML = strHTML End Sub </script> </head> <body> <!-- HTML goes here --> <table align=center width=95%><font color="#C63358"><b>磁盘空间查看脚本</b></font><br> <font size="2">显示各磁盘分区使用情况（<font color="#FF0000">/MB</font>）</font></font></table> <body bgcolor="#99CCFF"> <span id = "DataArea"></span> </body> </html> 保存为hta文件. |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。