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

时间： 2024-09-19 11:33:54

VBS 硬盘读写统计(分区读写统计)_vbs的相关文章

在Win8系统中如何对GPT硬盘创建OEM分区

  现在预装Win8的电脑大多是采用新版 UEFI 固件 + GPT 格式磁盘,这样的好处是可以实现安全启动等更多新特性,和支持更多的硬盘分区.更大的分区容量.下面我们主要介绍在Win8系统中如何对GPT硬盘创建OEM分区. 创建OEM分区的步骤: 1.在Diskpart 命令中,对选中的分区执行"create partition primary id=xx size=xx",其中 id 标识了 OEM 厂商. 2.对于GPT格式的磁盘,上面那条命令已经不管用了,我们可以在创建一个主分

新硬盘使用DiskGenius分区工具4K对齐

什么是"4K对齐",其实"4K对齐"相关联的是一个叫做 "高级格式化" 的分区技术."高级格式化"是国际硬盘设备与材料协会为新型数据结构格式所采用的名称.这是主要鉴于目前的硬盘容量不断扩展,使得之前定义的每个扇区512字节不再是那么的合理,于是将每个扇区512字节改为每个扇区4096 个字节,也就是现在常说的"4K扇区". 新硬盘分区对齐4K的方法: 一块硬盘,怎么分区才能4K对齐呢?方法有很多,不过,首先

流量统计市场再起风云 统计啦今起公测

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 北京时间12月1日讯:记者从统计啦(tongji.la)官方获悉,经过一个多月的测试调整,今起正式公开测试,并预计于元旦正式发布. 对于站长而言,流量是其价值的核心根本.而选择一款优秀的流量统计及分析系统,会使站长更加了解自己网站的运营情况和用户访问回馈.善于分析网站流量统计的分析报表,会让站长了解自己网站访客们的行为习惯,从而可以进一步改善

怎么在程序中包含图形统计报表，统计数据需要从数据库中读出。

问题描述 怎么在winform程序中包含图形统计报表,统计数据需要从数据库中读出. 解决方案 解决方案二:zedgraph你去网上搜搜看解决方案三:找过,不过没有找到.

R一个用于统计计算和统计制图的优秀工具

R是属于GNU系统的一个自由.免费.源代码开放的软件,它是一个用于统计计算和统计制图的优秀工具. R是S语言的一种实现.S语言是由AT&Thttp://www.aliyun.com/zixun/aggregation/13467.html">贝尔实验室开发的一种用来进行数据探索.统计分析.作图的解释型语言.最初S语言的实现版本主要是 S-PLUS.S-PLUS是一个商业软件,它基于S语言,并由MathSoft公司的统计科学部进一步完善.后来Auckland大学的 Robert Ge

CNZZ全景统计巩固商业统计领域第一优势

中介交易 SEO诊断 淘宝客 云主机 技术大厅 CNZZ作为国内知名的独立第三访数据统计分析服务提供商,多年致力于网站流量统计领域,为广大站长提供了免费的流量统计工具.与此同时,CNZZ在提供多年统计服务的基础上,了解用户之所需,不断的完善统计产品.使用户在进行数据统计的同时更为人性化,数据更为精准有效,从而博得了广大站长的欢迎,并与CNZZ建立了长久的合作关系,从而使CNZZ在个人站长统计领域占据了大量市场份额. 近期,全景统计http://quanjing.cnzz.com 的发布,短短半个

流量统计市场再起风云统计啦今起公测

&http://www.aliyun.com/zixun/aggregation/37954.html">nbsp;       北京时间12月1日消息,记者从统计啦(tongji.la)官方获悉, 经过一个多月的测试调整,今起正式公开测试,并 预计于元旦正式发布. 对于站长而言,流量是其价值的核心根本.而选择一款优秀的流量统计及分析系统,会使站长更加了解自己网站的运营情况和用户访问回馈.善于分析网站流量统计的分析报表,会让站长了解自己网站访客们的行为习惯,从而可以进一步改善网站的

delphi-Delphi 获取电脑多少个硬盘，每个硬盘多少个分区

问题描述 Delphi 获取电脑多少个硬盘,每个硬盘多少个分区 代码的主要作用是获取当前哪个硬盘 每个硬盘对应的分区 并获取分区ID 如: 我这里有段WMI的代码 但我的电脑获取失败,有个F盘是我存放一般文件的 获取失败了!http://bbs.csdn.net/topics/391026306?page=1#post-399163774 解决方案 看看是不是权限不足,或者分区没有识别 解决方案二: wmi对这些支持有限.最好是调研系统API来做. 解决方案三: windows 7下,也可以通过

lba-读取硬盘LBA扩展分区的起始柱面(StartCylinder)信息以十进制输出

问题描述 读取硬盘LBA扩展分区的起始柱面(StartCylinder)信息以十进制输出 怎样读取硬盘各分区(包括LBA扩展分区)的起始柱面(StartCylinder)信息 然后以十进制输出, 并计算通过绝对路径指定的文件所在的柱面.