VBS 硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))

當(dāng)前位置：首頁 > 范文|應(yīng)用文 > IT技術(shù)專欄 > 腳本欄目

來源：易賢網(wǎng) 閱讀：1177 次日期：2016-06-30 11:31:15

溫馨提示：易賢網(wǎng)小編為您整理了“VBS 硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))”,方便廣大網(wǎng)友查閱！

用vbs實(shí)現(xiàn)的硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))的實(shí)現(xiàn)代碼，想學(xué)習(xí)vbs的朋友可以參考下

WinXP，Win7,Win8

代碼如下:

'原創(chuàng)內(nèi)容轉(zhuǎn)載、引用代碼核心部分請注明出處

硬盤讀寫統(tǒng)計(jì).vbs

If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then

CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=52 lines=22" &"&Title 硬盤讀寫統(tǒng)計(jì).vbs By: FastSLZ PCEVA Or BatHome &&Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34)&Chr(34)),3:Set WMI = Nothing:Wscript.Quit

End If

Dim WMI,vName,IDE,cPPP,sNow

Input = 1:InputS = Input*980

On Error Resume Next

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set IDE = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")

Set cPPP = WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk WHERE Name <> '_Total'")

For Each oIDE In IDE

For i = 0 To IDE.Count

Select Case oIDE.Index

Case i

For Each oPPP In cPPP

If InStr(oPPP.Name, i) Then vName = oPPP.Name

Select Case i

Case 0 Disk0=oIDE.Caption&" "&oIDE.FirmwareRevision:Size0=oIDE.Size:DskP0=vName

Case 1 Disk1=oIDE.Caption&" "&oIDE.FirmwareRevision:Size1=oIDE.Size:DskP1=vName

Case 2 Disk2=oIDE.Caption&" "&oIDE.FirmwareRevision:Size2=oIDE.Size:DskP2=vName

Case 3 Disk3=oIDE.Caption&" "&oIDE.FirmwareRevision:Size3=oIDE.Size:DskP3=vName

Case 4 Disk4=oIDE.Caption&" "&oIDE.FirmwareRevision:Size4=oIDE.Size:DskP4=vName

Case 5 Disk5=oIDE.Caption&" "&oIDE.FirmwareRevision:Size5=oIDE.Size:DskP5=vName

End Select

Set cPPP = Nothing:Set IDE= Nothing

If Disk0 <> "" Then WScript.Echo Left(DskP0,1)&":"&vbTab& Disk0 &vbTab _

&vbCrLf&vbTab&"廠商容量："&Round(Size0/1000000000) &"GB" _

&vbCrLf&vbTab&"實(shí)際容量："&Round(Size0/1073741824,2) &"GB" _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP0,Len(DskP0)-2)

If Disk1 <> "" Then WScript.Echo Left(DskP1,1)&":"&vbTab& Disk1 &vbTab _

&vbCrLf&vbTab&"廠商容量："&Round(Size1/1000000000) &"GB" _

&vbCrLf&vbTab&"實(shí)際容量："&Round(Size1/1073741824,2) &"GB" _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP1,Len(DskP1)-2)

If Disk2 <> "" Then WScript.Echo Left(DskP2,1)&":"&vbTab& Disk2 &vbTab _

&vbCrLf&vbTab&"廠商容量："&Round(Size2/1000000000) &"GB" _

&vbCrLf&vbTab&"實(shí)際容量："&Round(Size2/1073741824,2) &"GB" _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP2,Len(DskP2)-2)

If Disk3 <> "" Then WScript.Echo Left(DskP3,1)&":"&vbTab& Disk3 &vbTab _

&vbCrLf&vbTab&"廠商容量："&Round(Size3/1000000000) &"GB" _

&vbCrLf&vbTab&"實(shí)際容量："&Round(Size3/1073741824,2) &"GB" _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP3,Len(DskP3)-2)

If Disk4 <> "" Then WScript.Echo Left(DskP4,1)&":"&vbTab& Disk4 &vbTab _

&vbCrLf&vbTab&"廠商容量："&Round(Size4/1000000000) &"GB" _

&vbCrLf&vbTab&"實(shí)際容量："&Round(Size4/1073741824,2) &"GB" _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP4,Len(DskP4)-2)

If Disk5 <> "" Then WScript.Echo Left(DskP5,1)&":"&vbTab& Disk5 &vbTab _

&vbCrLf&vbTab&"廠商容量："&Round(Size5/1000000000) &"GB" _

&vbCrLf&vbTab&"實(shí)際容量："&Round(Size5/1073741824,2) &"GB" _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP5,Len(DskP5)-2)

WScript.Echo "↑請輸入要監(jiān)控的硬盤編號(hào)，并按回車鍵"

stdInput = WScript.StdIn.Readline

stdInput=Left(UCase(stdInput),1)

If stdInput > "5" Or stdInput < "0" Then MsgBox "輸入錯(cuò)誤" :WScript.Quit

If InStr(DskP0, stdInput) Then Call Network(Disk0,Size0,DskP0)

If InStr(DskP1, stdInput) Then Call Network(Disk1,Size1,DskP1)

If InStr(DskP2, stdInput) Then Call Network(Disk2,Size2,DskP2)

If InStr(DskP3, stdInput) Then Call Network(Disk3,Size3,DskP3)

If InStr(DskP4, stdInput) Then Call Network(Disk4,Size4,DskP4)

If InStr(DskP5, stdInput) Then Call Network(Disk5,Size5,DskP5)

Sub Network(Disks,Sizes,DskPs)

sNow=Now

Dim A

'WScript.Echo "已運(yùn)行"&Ts\3600&"小時(shí)"&(Ts mod 3600)\60&"分鐘"&(Ts mod 3600) mod 60&"秒"

Set A = WMI.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_PhysicalDisk Where Name='"&DskPs&"'")

For Each B In A

R1 = B.DiskReadBytesPersec

W1 = B.DiskWriteBytesPersec

If RA0 = "" Then RA0 = B.DiskReadBytesPersec Else RA1 = R1 End If

If WA0 = "" Then WA0 = B.DiskWriteBytesPersec Else WA1 = W1 End If

Set A = Nothing

WScript.Sleep(InputS)

Set A = WMI.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_PhysicalDisk Where Name='"&DskPs&"'")

For Each B In A

R2 = B.DiskReadBytesPersec

W2 = B.DiskWriteBytesPersec

Set A = Nothing

WScript.Echo Disks &" " &Round(Sizes/1073741824) &"GB" &vbCrLf _

&"實(shí)時(shí)讀取：" & CheckSize((R2-R1)/Input) &"/s" &vbCrLf _

&"實(shí)時(shí)寫人：" & CheckSize((W2-W1)/Input) &"/s"&vbCrLf _

&"腳本累計(jì)讀?。? & CheckSize(RA1-RA0) &vbCrLf _

&"腳本累計(jì)寫入：" & CheckSize(WA1-WA0) &vbCrLf _

&"開機(jī)累計(jì)讀?。? & CheckSize(R1) &vbCrLf _

&"開機(jī)累計(jì)寫入：" & CheckSize(W1) &vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf _

&"已運(yùn)行"&Ts\3600&"小時(shí)"&(Ts mod 3600)\60&"分鐘"&(Ts mod 3600) mod 60&"秒"

Ts=DateDiff("s", sNow, Now)'Ts=TS+1

Loop

End Sub

Function CheckSize(SZ)

On Error Resume Next

If SZ => 1073741824 Then

SZ = FormatNumber(Round(SZ/1073741824,2))&" GB"

ElseIf SZ => 1048576 Then

SZ = FormatNumber(Round(SZ/1048576,2))&" MB"

ElseIf SZ => 1024 Then

SZ = FormatNumber(Round(SZ/1024,2))&" KB"

Else

SZ = "0"&FormatNumber(Round(SZ/1024,2)) & " KB"

End If

CheckSize=Right(" " & SZ,10)

End Function

分區(qū)讀寫統(tǒng)計(jì).vbs

代碼如下:

'原創(chuàng)內(nèi)容轉(zhuǎn)載、引用代碼核心部分請注明出處

If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then

CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=52 lines=22" &"&Title 分區(qū)讀寫統(tǒng)計(jì).vbs By: FastSLZ PCEVA Or BatHome &&Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34)&Chr(34)),3:Set WMI = Nothing:Wscript.Quit

End If

Input = 1:InputS = Input*1000

Dim WMI,vName,IDE,cPPP,sNow

On Error Resume Next

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set IDE = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")

Set cPPP = WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk WHERE Name<>'_Total'")

For Each oIDE In IDE

For i = 0 To IDE.Count

Select Case oIDE.Index

Case i

For Each oPPP In cPPP

If InStr(oPPP.Name, i) Then vName = oPPP.Name

Select Case i

Case 0 Disk0=oIDE.Caption&" "&oIDE.FirmwareRevision:Size0=oIDE.Size:DskP0=vName

Case 1 Disk1=oIDE.Caption&" "&oIDE.FirmwareRevision:Size1=oIDE.Size:DskP1=vName

Case 2 Disk2=oIDE.Caption&" "&oIDE.FirmwareRevision:Size2=oIDE.Size:DskP2=vName

Case 3 Disk3=oIDE.Caption&" "&oIDE.FirmwareRevision:Size3=oIDE.Size:DskP3=vName

Case 4 Disk4=oIDE.Caption&" "&oIDE.FirmwareRevision:Size4=oIDE.Size:DskP4=vName

Case 5 Disk5=oIDE.Caption&" "&oIDE.FirmwareRevision:Size5=oIDE.Size:DskP5=vName

End Select

Set cPPP = Nothing:Set IDE= Nothing

If Disk0 <> "" Then DskP=Right(DskP0,Len(DskP0)-2):WScript.Echo Left(DskP0,1)&":"&vbTab& Disk0 &vbTab _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP0,Len(DskP0)-2)

If Disk1 <> "" Then DskP=DskP&" "&Right(DskP1,Len(DskP1)-2):WScript.Echo Left(DskP1,1)&":"&vbTab& Disk1 &vbTab _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP1,Len(DskP1)-2)

If Disk2 <> "" Then DskP=DskP&" "&Right(DskP2,Len(DskP2)-2):WScript.Echo Left(DskP2,1)&":"&vbTab& Disk2 &vbTab _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP2,Len(DskP2)-2)

If Disk3 <> "" Then DskP=DskP&" "&Right(DskP3,Len(DskP3)-2):WScript.Echo Left(DskP3,1)&":"&vbTab& Disk3 &vbTab _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP3,Len(DskP3)-2)

If Disk4 <> "" Then DskP=DskP&" "&Right(DskP4,Len(DskP4)-2):WScript.Echo Left(DskP4,1)&":"&vbTab& Disk4 &vbTab _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP4,Len(DskP4)-2)

If Disk5 <> "" Then DskP=DskP&" "&Right(DskP5,Len(DskP5)-2):WScript.Echo Left(DskP5,1)&":"&vbTab& Disk5 &vbTab _

&vbCrLf&vbTab&"分區(qū)狀態(tài)："&Right(DskP5,Len(DskP5)-2)

WScript.Echo vbCrLf&"請輸入"&DskP&"中任意一個(gè)盤符"

stdInput = WScript.StdIn.Readline

stdInput=Left(UCase(stdInput),1)

If InStr(DskP,stdInput) Then Call Network(stdInput&":")

Sub Network(DskPs)

sNow=Now

Dim A

Set A = WMI.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk Where Name = '"& DskPs &"'")

For Each B In A

R1 = B.DiskReadBytesPersec

W1 = B.DiskWriteBytesPersec

If RA0 = "" Then RA0 = B.DiskReadBytesPersec Else RA1 = R1 End If

If WA0 = "" Then WA0 = B.DiskWriteBytesPersec Else WA1 = W1 End If

Set A = Nothing

WScript.Sleep(InputS)

Set A = WMI.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk Where Name = '"& DskPs &"'")

For Each B In A

R2 = B.DiskReadBytesPersec

W2 = B.DiskWriteBytesPersec

Set A = Nothing

WScript.Echo "監(jiān)控分區(qū)：" &DskPs &vbCrLf _

&"實(shí)時(shí)讀取：" & CheckSize((R2-R1)/Input) &"/s" &vbCrLf _

&"實(shí)時(shí)寫人：" & CheckSize((W2-W1)/Input) &"/s"&vbCrLf _

&"腳本累計(jì)讀?。? & CheckSize(RA1-RA0) &vbCrLf _

&"腳本累計(jì)寫入：" & CheckSize(WA1-WA0) &vbCrLf _

&"開機(jī)累計(jì)讀取：" & CheckSize(R1) &vbCrLf _

&"開機(jī)累計(jì)寫入：" & CheckSize(W1) &vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf _

&"已運(yùn)行"&Ts\3600&"小時(shí)"&(Ts mod 3600)\60&"分鐘"&(Ts mod 3600) mod 60&"秒"

Ts=DateDiff("s", sNow, Now)'Ts=TS+1

Loop

End Sub

Function CheckSize(SZ)

On Error Resume Next

If SZ => 1073741824 Then

SZ = FormatNumber(Round(SZ/1073741824,2))&" GB"

ElseIf SZ => 1048576 Then

SZ = FormatNumber(Round(SZ/1048576,2))&" MB"

ElseIf SZ => 1024 Then

SZ = FormatNumber(Round(SZ/1024,2))&" KB"

Else

SZ = "0"&FormatNumber(Round(SZ/1024,2)) & " KB"

End If

CheckSize=Right(" " & SZ,10)

End Function

上一篇：VBS實(shí)現(xiàn)工作表按指定表頭自動(dòng)分表

下一篇：VBS合并一個(gè)文件夾里的TXT的實(shí)現(xiàn)代碼

易賢網(wǎng)手機(jī)網(wǎng)站地址：VBS 硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))

由于各方面情況的不斷調(diào)整與變化，易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考，敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)！

相關(guān)閱讀腳本欄目

Bottle框架中的裝飾器類和描述符應(yīng)用詳解10月30日

Python探索之SocketServer詳解10月30日

Python探索之實(shí)現(xiàn)一個(gè)簡單的HTTP服務(wù)器10月30日

python探索之BaseHTTPServer-實(shí)現(xiàn)Web服務(wù)器介紹10月30日

13個(gè)最常用的Python深度學(xué)習(xí)庫介紹10月30日

深入理解Python中的*重復(fù)運(yùn)算符10月30日

python logging日志模塊詳解10月30日

System表空間不足的報(bào)警問題淺析10月22日

Android開發(fā)自定義TextView省略號(hào)樣式的方法10月22日

MySQL 清除表空間碎片的實(shí)例詳解10月22日

Ubuntu下MySQL安裝及配置遠(yuǎn)程登錄教程10月22日

Python 2.x如何設(shè)置命令執(zhí)行的超時(shí)時(shí)間實(shí)例10月22日

windows 64位下redis安裝教程10月22日

Android 自定義 HorizontalScrollView 打造多圖片OOM 的橫向滑動(dòng)效果10月22日

淺談Node Inspector 代理實(shí)現(xiàn)10月22日

java web開發(fā)之購物車功能實(shí)現(xiàn)示例代碼10月22日

Android開發(fā)中GridView用法示例10月22日

Django ORM框架的定時(shí)任務(wù)如何使用詳解10月22日

SpringMail使用過程中的報(bào)錯(cuò)解決辦法10月22日

Android 使用自定義RecyclerView控件實(shí)現(xiàn)Gallery效果10月22日

易賢網(wǎng)移動(dòng)網(wǎng)站

2025國考·省考課程試聽報(bào)名

報(bào)班類型
姓名
手機(jī)號(hào)
驗(yàn)證碼

午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线