欧美国产一区视频在线观看,欧美一区欧美二区,欧美福利一区二区三区

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)江濟南邯鄲棗莊新余克拉瑪依

巨人網(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)。

欧美阿v视频在线大全_亚洲欧美中文日韩V在线观看_www性欧美日韩欧美91_亚洲欧美日韩久久精品

hta查看磁盤空間的腳本