VBS 硬盤讀寫統計(分區讀寫統計)

2019-10-26 18:05:38

字體：大中小

來源：轉載

供稿：網友

WinXP，Win7,Win8

復制代碼代碼如下:

'原創內容轉載、引用代碼核心部分請注明出處
硬盤讀寫統計.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 硬盤讀寫統計.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&"實際容量："&Round(Size0/1073741824,2) &"GB" _
                  &vbCrLf&vbTab&"分區狀態："&Right(DskP0,Len(DskP0)-2)
If Disk1 <> "" Then WScript.Echo Left(DskP1,1)&":"&vbTab& Disk1 &vbTab _
                  &vbCrLf&vbTab&"廠商容量："&Round(Size1/1000000000) &"GB" _
                  &vbCrLf&vbTab&"實際容量："&Round(Size1/1073741824,2) &"GB" _
                  &vbCrLf&vbTab&"分區狀態："&Right(DskP1,Len(DskP1)-2)
If Disk2 <> "" Then WScript.Echo Left(DskP2,1)&":"&vbTab& Disk2 &vbTab _
                  &vbCrLf&vbTab&"廠商容量："&Round(Size2/1000000000) &"GB" _
                  &vbCrLf&vbTab&"實際容量："&Round(Size2/1073741824,2) &"GB" _
                  &vbCrLf&vbTab&"分區狀態："&Right(DskP2,Len(DskP2)-2)
If Disk3 <> "" Then WScript.Echo Left(DskP3,1)&":"&vbTab& Disk3 &vbTab _
                  &vbCrLf&vbTab&"廠商容量："&Round(Size3/1000000000) &"GB" _
                  &vbCrLf&vbTab&"實際容量："&Round(Size3/1073741824,2) &"GB" _
                  &vbCrLf&vbTab&"分區狀態："&Right(DskP3,Len(DskP3)-2)
If Disk4 <> "" Then WScript.Echo Left(DskP4,1)&":"&vbTab& Disk4 &vbTab _
                  &vbCrLf&vbTab&"廠商容量："&Round(Size4/1000000000) &"GB" _
                  &vbCrLf&vbTab&"實際容量："&Round(Size4/1073741824,2) &"GB" _
                  &vbCrLf&vbTab&"分區狀態："&Right(DskP4,Len(DskP4)-2)
If Disk5 <> "" Then WScript.Echo Left(DskP5,1)&":"&vbTab& Disk5 &vbTab _
                  &vbCrLf&vbTab&"廠商容量："&Round(Size5/1000000000) &"GB" _
                  &vbCrLf&vbTab&"實際容量："&Round(Size5/1073741824,2) &"GB" _
                  &vbCrLf&vbTab&"分區狀態："&Right(DskP5,Len(DskP5)-2)
WScript.Echo "↑請輸入要監控的硬盤編號，并按回車鍵"
stdInput = WScript.StdIn.Readline
stdInput=Left(UCase(stdInput),1)
If stdInput > "5" Or stdInput < "0" Then MsgBox "輸入錯誤" :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)