国产午夜精品理论片A级A片91,嫩草文化传媒(上海)有限公司,大肚孕play高H孕期双性

主頁(yè) > 知識(shí)庫(kù) > VBS 硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))

VBS 硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))

WinXP，Win7,Win8

復(fù)制代碼代碼如下:

'原創(chuàng)內(nèi)容轉(zhuǎn)載、引用代碼核心部分請(qǐng)注明出處
硬盤讀寫統(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 硬盤讀寫統(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 _
                  vbCrLfvbTab"廠商容量："Round(Size0/1000000000) "GB" _
                  vbCrLfvbTab"實(shí)際容量："Round(Size0/1073741824,2) "GB" _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP0,Len(DskP0)-2)
If Disk1 > "" Then WScript.Echo Left(DskP1,1)":"vbTab Disk1 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size1/1000000000) "GB" _
                  vbCrLfvbTab"實(shí)際容量："Round(Size1/1073741824,2) "GB" _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP1,Len(DskP1)-2)
If Disk2 > "" Then WScript.Echo Left(DskP2,1)":"vbTab Disk2 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size2/1000000000) "GB" _
                  vbCrLfvbTab"實(shí)際容量："Round(Size2/1073741824,2) "GB" _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP2,Len(DskP2)-2)
If Disk3 > "" Then WScript.Echo Left(DskP3,1)":"vbTab Disk3 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size3/1000000000) "GB" _
                  vbCrLfvbTab"實(shí)際容量："Round(Size3/1073741824,2) "GB" _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP3,Len(DskP3)-2)
If Disk4 > "" Then WScript.Echo Left(DskP4,1)":"vbTab Disk4 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size4/1000000000) "GB" _
                  vbCrLfvbTab"實(shí)際容量："Round(Size4/1073741824,2) "GB" _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP4,Len(DskP4)-2)
If Disk5 > "" Then WScript.Echo Left(DskP5,1)":"vbTab Disk5 vbTab _
                  vbCrLfvbTab"廠商容量："Round(Size5/1000000000) "GB" _
                  vbCrLfvbTab"實(shí)際容量："Round(Size5/1073741824,2) "GB" _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP5,Len(DskP5)-2)
WScript.Echo "↑請(qǐng)輸入要監(jiān)控的硬盤編號(hào)，并按回車鍵"
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í)寫人：" CheckSize((W2-W1)/Input) "/s"vbCrLf _
      "腳本累計(jì)讀取：" CheckSize(RA1-RA0) vbCrLf _
      "腳本累計(jì)寫入：" CheckSize(WA1-WA0) vbCrLf _
      "開機(jī)累計(jì)讀取：" CheckSize(R1) vbCrLf _
      "開機(jī)累計(jì)寫入：" CheckSize(W1) vbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLf _
      "已運(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ū)讀寫統(tǒng)計(jì).vbs

復(fù)制代碼代碼如下:

'原創(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ū)讀寫統(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 _
                  vbCrLfvbTab"分區(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 _
                  vbCrLfvbTab"分區(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 _
                  vbCrLfvbTab"分區(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 _
                  vbCrLfvbTab"分區(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 _
                  vbCrLfvbTab"分區(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 _
                  vbCrLfvbTab"分區(qū)狀態(tài)："Right(DskP5,Len(DskP5)-2)
WScript.Echo vbCrLf"請(qǐng)輸入"DskP"中任意一個(gè)盤符"
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í)寫人：" CheckSize((W2-W1)/Input) "/s"vbCrLf _
      "腳本累計(jì)讀取：" CheckSize(RA1-RA0) vbCrLf _
      "腳本累計(jì)寫入：" CheckSize(WA1-WA0) vbCrLf _
      "開機(jī)累計(jì)讀取：" CheckSize(R1) vbCrLf _
      "開機(jī)累計(jì)寫入：" CheckSize(W1) vbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLfvbCrLf _
      "已運(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

標(biāo)簽：文山銅川西安四平海口邢臺(tái) 鶴壁湖州

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBS 硬盤讀寫統(tǒng)計(jì)(分區(qū)讀寫統(tǒng)計(jì))》，本文關(guān)鍵詞 VBS,硬盤,讀寫,統(tǒng)計(jì),分區(qū),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。