天堂新版资源网8,2021最新国产精品网站,国产成人欧美精品视频APP

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>"  "分區(qū)"  "/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">顯示各磁盤分區(qū)使用情況（font color="#FF0000">/MB/font>）/font>/font>/table>
body bgcolor="#99CCFF">
     span id = "DataArea">/span>
/body>
/html>
保存為hta文件.

標(biāo)簽：清遠(yuǎn) 廣東內(nèi)江濟(jì)南邯鄲棗莊新余克拉瑪依

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《hta查看磁盤空間的腳本》，本文關(guān)鍵詞 hta,查看,磁盤,空,間的,腳本,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。