网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料：

　

标题 VBS 硬盘读写统计(分区读写统计)
内容
    用vbs实现的硬盘读写统计(分区读写统计)的实现代码，想学习vbs的朋友可以参考下
    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)
    Sub Network(Disks,Sizes,DskPs)
    sNow=Now
    Do
    Dim A
    'WScript.Echo "已运行"&Ts\3600&"小时"&(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 _
          &"实时读取：" & CheckSize((R2-R1)/Input) &"/s" &vbCrLf _
          &"实时写人：" & CheckSize((W2-W1)/Input) &"/s"&vbCrLf _
          &"脚本累计读取：" & CheckSize(RA1-RA0) &vbCrLf _
          &"脚本累计写入：" & CheckSize(WA1-WA0) &vbCrLf _
          &"开机累计读取：" & CheckSize(R1) &vbCrLf _
          &"开机累计写入：" & CheckSize(W1) &vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf _
          &"已运行"&Ts\3600&"小时"&(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
    代码如下:
    '原创内容转载、引用代码核心部分请注明出处
    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
    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&"分区状态："&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&"分区状态："&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&"分区状态："&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&"分区状态："&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&"分区状态："&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&"分区状态："&Right(DskP5,Len(DskP5)-2)
    WScript.Echo vbCrLf&"请输入"&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 "监控分区：" &DskPs &vbCrLf _
          &"实时读取：" & CheckSize((R2-R1)/Input) &"/s" &vbCrLf _
          &"实时写人：" & CheckSize((W2-W1)/Input) &"/s"&vbCrLf _
          &"脚本累计读取：" & CheckSize(RA1-RA0) &vbCrLf _
          &"脚本累计写入：" & CheckSize(WA1-WA0) &vbCrLf _
          &"开机累计读取：" & CheckSize(R1) &vbCrLf _
          &"开机累计写入：" & CheckSize(W1) &vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf _
          &"已运行"&Ts\3600&"小时"&(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
随便看

　

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

　

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间：2025/5/20 22:30:09