婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 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 _
                  vbCrLfvbTab"廠商容量："Round(Size0/1000000000) "GB" _
                  vbCrLfvbTab"實際容量："Round(Size0/1073741824,2) "GB" _
                  vbCrLfvbTab"分區狀態："Right(DskP0,Len(DskP0)-2)
If Disk1 > "" Then WScript.Echo Left(DskP1,1)":"vbTab Disk1 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size1/1000000000) "GB" _
                  vbCrLfvbTab"實際容量："Round(Size1/1073741824,2) "GB" _
                  vbCrLfvbTab"分區狀態："Right(DskP1,Len(DskP1)-2)
If Disk2 > "" Then WScript.Echo Left(DskP2,1)":"vbTab Disk2 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size2/1000000000) "GB" _
                  vbCrLfvbTab"實際容量："Round(Size2/1073741824,2) "GB" _
                  vbCrLfvbTab"分區狀態："Right(DskP2,Len(DskP2)-2)
If Disk3 > "" Then WScript.Echo Left(DskP3,1)":"vbTab Disk3 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size3/1000000000) "GB" _
                  vbCrLfvbTab"實際容量："Round(Size3/1073741824,2) "GB" _
                  vbCrLfvbTab"分區狀態："Right(DskP3,Len(DskP3)-2)
If Disk4 > "" Then WScript.Echo Left(DskP4,1)":"vbTab Disk4 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size4/1000000000) "GB" _
                  vbCrLfvbTab"實際容量："Round(Size4/1073741824,2) "GB" _
                  vbCrLfvbTab"分區狀態："Right(DskP4,Len(DskP4)-2)
If Disk5 > "" Then WScript.Echo Left(DskP5,1)":"vbTab Disk5 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size5/1000000000) "GB" _
                  vbCrLfvbTab"實際容量："Round(Size5/1073741824,2) "GB" _
                  vbCrLfvbTab"分區狀態："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) vbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLf _
      "已運行"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 _
                  vbCrLfvbTab"分區狀態："Right(DskP0,Len(DskP0)-2)
If Disk1 > "" Then DskP=DskP" "Right(DskP1,Len(DskP1)-2):WScript.Echo Left(DskP1,1)":"vbTab Disk1 vbTab _
                  vbCrLfvbTab"分區狀態："Right(DskP1,Len(DskP1)-2)
If Disk2 > "" Then DskP=DskP" "Right(DskP2,Len(DskP2)-2):WScript.Echo Left(DskP2,1)":"vbTab Disk2 vbTab _
                  vbCrLfvbTab"分區狀態："Right(DskP2,Len(DskP2)-2)
If Disk3 > "" Then DskP=DskP" "Right(DskP3,Len(DskP3)-2):WScript.Echo Left(DskP3,1)":"vbTab Disk3 vbTab _
                  vbCrLfvbTab"分區狀態："Right(DskP3,Len(DskP3)-2)
If Disk4 > "" Then DskP=DskP" "Right(DskP4,Len(DskP4)-2):WScript.Echo Left(DskP4,1)":"vbTab Disk4 vbTab _
                  vbCrLfvbTab"分區狀態："Right(DskP4,Len(DskP4)-2)
If Disk5 > "" Then DskP=DskP" "Right(DskP5,Len(DskP5)-2):WScript.Echo Left(DskP5,1)":"vbTab Disk5 vbTab _
                  vbCrLfvbTab"分區狀態："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) vbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLf _
      "已運行"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 硬盤讀寫統計(分區讀寫統計)》，本文關鍵詞  VBS,硬盤,讀寫,統計,分區,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《VBS 硬盤讀寫統計(分區讀寫統計)》相關的同類信息！
  • 本頁收集關于VBS 硬盤讀寫統計(分區讀寫統計)的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 柘城县| 类乌齐县| 寻甸| 定南县| 临安市| 年辖：市辖区| 合川市| 成都市| 江华| 新营市| 庆城县| 桑植县| 广灵县| 织金县| 平江县| 互助| 昭通市| 台中市| 竹溪县| 宕昌县| 黑龙江省| 金溪县| 鄂州市| 丹东市| 连云港市| 广昌县| 沙河市| 巴南区| 都匀市| 乌兰浩特市| 南城县| 资中县| 陵川县| 罗源县| 灵台县| 工布江达县| 南充市| 梁山县| 寻乌县| 兴和县| 龙岩市|