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

WinXP，Win7,Win8

代碼如下:

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

硬盤(pán)讀寫(xiě)統(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  硬盤(pán)讀寫(xiě)統(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

               Next

               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

        End Select

    Next

Next

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 "↑請(qǐng)輸入要監(jiān)控的硬盤(pán)編號(hào)，并按回車(chē)鍵"

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

Do

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

Next

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

Next

Set A = Nothing

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

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

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

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

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

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

      &"開(kāi)機(jī)累計(jì)寫(xiě)入：" & 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ū)讀寫(xiě)統(tǒng)計(jì).vbs

代碼如下:

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

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ū)讀寫(xiě)統(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

               Next

               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

        End Select

    Next

Next

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&"請(qǐng)輸入"&DskP&"中任意一個(gè)盤(pán)符"

stdInput = WScript.StdIn.Readline

stdInput=Left(UCase(stdInput),1)

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

Sub Network(DskPs)

sNow=Now

Do

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

Next

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

Next

Set A = Nothing

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

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

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

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

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

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

      &"開(kāi)機(jī)累計(jì)寫(xiě)入：" & 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