VBS hard disk read / write Statistics (partition read / write Statistics)

Time:2022-5-11

WinXP,Win7,Win8

Copy codeThe code is as follows:


‘please indicate the source of the core part of the original content reprinted and quoted code
Hard disk read / write statistics 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” hard disk read / write statistics. 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 & “vendor capacity:” & round (size0 / 1000000000) & “GB”_
& vbcrlf & vbtab & “actual capacity:” & round (size0 / 1073741824,2) & “GB”_
& vbcrlf & vbtab & “partition status:” & right (dskp0, len (dskp0) – 2)
If Disk1 <> “” Then WScript.Echo Left(DskP1,1)&”:”&vbTab& Disk1 &vbTab _
& vbcrlf & vbtab & “vendor capacity:” & round (Size1 / 1000000000) & “GB”_
& vbcrlf & vbtab & “actual capacity:” & round (Size1 / 1073741824,2) & “GB”_
& vbcrlf & vbtab & “partition status:” & right (dskp1, len (dskp1) – 2)
If Disk2 <> “” Then WScript.Echo Left(DskP2,1)&”:”&vbTab& Disk2 &vbTab _
& vbcrlf & vbtab & “vendor capacity:” & round (size2 / 1000000000) & “GB”_
& vbcrlf & vbtab & “actual capacity:” & round (size2 / 1073741824,2) & “GB”_
& vbcrlf & vbtab & “partition status:” & right (dskp2, len (dskp2) – 2)
If Disk3 <> “” Then WScript.Echo Left(DskP3,1)&”:”&vbTab& Disk3 &vbTab _
& vbcrlf & vbtab & “vendor capacity:” & round (size3 / 1000000000) & “GB”_
& vbcrlf & vbtab & “actual capacity:” & round (size3 / 1073741824,2) & “GB”_
& vbcrlf & vbtab & “partition status:” & right (dskp3, len (dskp3) – 2)
If Disk4 <> “” Then WScript.Echo Left(DskP4,1)&”:”&vbTab& Disk4 &vbTab _
& vbcrlf & vbtab & “vendor capacity:” & round (size4 / 1000000000) & “GB”_
& vbcrlf & vbtab & “actual capacity:” & round (size4 / 1073741824,2) & “GB”_
& vbcrlf & vbtab & “partition status:” & right (dskp4, len (dskp4) – 2)
If Disk5 <> “” Then WScript.Echo Left(DskP5,1)&”:”&vbTab& Disk5 &vbTab _
& vbcrlf & vbtab & “vendor capacity:” & round (SIZE5 / 1000000000) & “GB”_
& vbcrlf & vbtab & “actual capacity:” & round (SIZE5 / 1073741824,2) & “GB”_
& vbcrlf & vbtab & “partition status:” & right (dskp5, len (dskp5) – 2)
WScript. Echo “↑ please enter the hard disk number to be monitored and press enter”
stdInput = WScript.StdIn.Readline
stdInput=Left(UCase(stdInput),1)
If stdinput > “5” or stdinput < “0” then msgbox “input error”: 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 “run” & TS \ 3600 & “hours” & (TS mod 3600) \ 60 & “minutes” & (TS mod 3600) mod 60 & “seconds”
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 _
& real time read: & checksize ((r2-r1) / input) & “/ s” & vbcrlf_
& real time writer: & checksize ((w2-w1) / input) & “/ s” & vbcrlf_
& script cumulative read: & checksize (ra1-ra0) & vbcrlf_
& script cumulative write: & checksize (wa1-wa0) & vbcrlf_
& startup cumulative read: & checksize (R1) & vbcrlf_
& startup cumulative write: & checksize (W1) & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf_
& “run” & TS \ 3600 & “hours” & (TS mod 3600) \ 60 & “minutes” & (TS mod 3600) mod 60 & “seconds”
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


Partition read / write statistics vbs

Copy codeThe code is as follows:


‘please indicate the source of the core part of the original content reprinted and quoted code
If (Lcase(Right(Wscript.FullName,11)) = “wscript.exe”) Then
   CreateObject(“WScript.Shell”). Run (“% COMSPEC% / C” & Chr (34) & “mode con cols = 52 lines = 22” & “& Title” partition read and write statistics. 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 & “partition status:” & 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 & “partition status:” & 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 & “partition status:” & 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 & “partition status:” & 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 & “partition status:” & 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 & “partition status:” & right (dskp5, len (dskp5) – 2)
WScript. Echo vbcrlf & “please enter any drive letter in” & dskp & “
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 “monitoring partition:” & dskps & vbcrlf_
& real time read: & checksize ((r2-r1) / input) & “/ s” & vbcrlf_
& real time writer: & checksize ((w2-w1) / input) & “/ s” & vbcrlf_
& script cumulative read: & checksize (ra1-ra0) & vbcrlf_
& script cumulative write: & checksize (wa1-wa0) & vbcrlf_
& startup cumulative read: & checksize (R1) & vbcrlf_
& startup cumulative write: & checksize (W1) & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf_
& “run” & TS \ 3600 & “hours” & (TS mod 3600) \ 60 & “minutes” & (TS mod 3600) mod 60 & “seconds”
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