hta查看磁盘空间的脚本

admin hta

2023-12-08 0 413

<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\” > <scriptlanguage=\”vbscript\”> <!–Insertcode,subroutines,andfunctionshere–> window.resizeTo500,420 ileft=(window.screen.width-500)/2 itop=(window.screen.height-420)/2 window.moveToileft,itop SubWindow_onLoad GetDiskSpace EndSub SubGetDiskSpace ConstHARD_DISK=3 ConstSize=1048576 strComputer=\”.\” SetobjWMIService=GetObject(\”winmgmts:\”_ &\”{impersonationLevel=impersonate}!\\\\\”&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>\”&\”分区\”&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=center><fontsize=2>\”&\”容量\”&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=center><fontsize=2>\”&\”已用\”&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=center><fontsize=2>\”&\”未用\”&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=center><fontsize=2>\”&\”空闲\”&\”</td>\” ForEachobjDiskIncolDisks intFreeSpace=objDisk.FreeSpace/Size intTotalSpace=objDisk.Size/Size pctFreeSpace=intFreeSpace/Size/intTotalSpace/Size infFuLin=intTotalSpace-intFreeSpace DeviceID=objDisk.DeviceID strHTML=strHTML&\”<tr>\” strHTML=strHTML&\”<tdwidth=110pxalign=center>\”&DeviceID&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=right>\”&FormatNumber(intTotalSpace,2,-1,-1,0)&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=right><fontcolor=#DB2C00>\”&FormatNumber(infFuLin,2,-1,-1,0)&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=right><fontcolor=#008080>\”&FormatNumber(intFreeSpace,2,-1,-1,0)&\”</td>\” strHTML=strHTML&\”<tdwidth=110pxalign=right>\”&FormatPercent(intFreeSpace/intTotalSpace)&\”</td>\” Next strHTML=strHTML&\”</table>\” DataArea.InnerHTML=strHTML EndSub </script> </head> <body> <!–HTMLgoeshere–> <tablealign=centerwidth=95%><fontcolor=\”#C63358\”>磁盘空间查看脚本 <fontsize=\”2\”>显示各磁盘分区使用情况（<fontcolor=\”#FF0000\”>/MB）</table> <bodybgcolor=\”#99CCFF\”> <spanid=\”DataArea\”> </body> </html> 保存为hta文件.