VBS 硬盤讀寫統(tǒng)計(分區(qū)讀寫統(tǒng)計)
WinXP，Win7,Win8
'原創(chuàng)內容轉載、引用代碼核心部分請注明出處
硬盤讀寫統(tǒng)計.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)計.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&"分區(qū)狀態(tài)："&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&"分區(qū)狀態(tài)："&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&"分區(qū)狀態(tài)："&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&"分區(qū)狀態(tài)："&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&"分區(qū)狀態(tài)："&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&"分區(qū)狀態(tài)："&Right(DskP5,Len(DskP5)-2)
WScript.Echo "↑請輸入要監(jiān)控的硬盤編號，并按回車鍵"
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
分區(qū)讀寫統(tǒng)計.vbs
'原創(chuà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)計.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&"分區(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 _
&vbCrLf&vbTab&"分區(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 _
&vbCrLf&vbTab&"分區(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 _
&vbCrLf&vbTab&"分區(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 _
&vbCrLf&vbTab&"分區(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 _
&vbCrLf&vbTab&"分區(qū)狀態(tài)："&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 "監(jiān)控分區(qū)：" &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
相關文章
這篇文章專為想通過腳本修改ip地址的朋友準備的，第一個bat是測試通過的也比較實用，vbs一般也是通過netsh命令實現(xiàn)，當然也可以不通過netsh實現(xiàn)，具體的大家自行參考下吧2006-09-09
VBS編程教程 (第2篇)...2007-07-07
VBS控制Excel常見方法，需要的朋友可以參考下。2009-11-11
RCLS.vbs使用幫助...2007-02-02
WMI IE代理 切換或改變(Use WMI Change IE Proxy)
把你弄到的代理都寫在一個文本文件里（IP.txt），格式是一行一個： ip:端口2008-12-12
vbscript 調用WebService實現(xiàn)代碼
vbscript 調用WebService實現(xiàn)代碼，需要的朋友可以參考下。2009-11-11
UNIX時間，或稱POSIX時間是UNIX或類UNIX系統(tǒng)使用的時間表示方式：從協(xié)調世界時1970年1月1日0時0分0秒起至現(xiàn)在的總秒數(shù)，不包括閏秒。2011-01-01
這篇文章主要介紹了asp+fso創(chuàng)建指定文件并返回 TextStream 對象，該對象可用于讀或寫創(chuàng)建的文件，為了方便使用腳本之家特為大家分享了一個函數(shù)，方便大家學習與理解2006-11-11
vbscript logparser的ISA2004 Web流量報告
由于ISA2004自帶的report不能滿足他們的要求，所以我寫了這個腳本，用來生成報告。使用前請先閱讀readme.txt2009-03-03
VBS中通過調用CAPICOM對象實現(xiàn)SHA1&MD5加密
MD5算法的VBS代碼在網上可以找到很多，這些代碼都是按照“算法”寫出來的，所以都很長，更重要的是，找不到SHA1算法的VBS實現(xiàn)。2011-01-01