pcl_test

1、不知道具体类名，使用遍历排序输出最大值
2、

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Disks = objWMIService.ExecQuery("Select * From Win32_DiskDrive")
For Each Item In Disks
    s = s & Item.Caption & vbCrLf
Next
Msgbox Trim(s)
复制代码

pcl_test

回复 3# 437153
1、

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Items = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
max = 0
For Each Item In Items
If CLng(Item.BytesReceivedPerSec) >= max Then
    max = CLng(Item.BytesReceivedPerSec)
End If
Next
Msgbox max
复制代码

2、s不是变量？要先补下基础知识呀

pcl_test

回复 5# 437153

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Disks = objWMIService.ExecQuery("Select * From Win32_DiskDrive")
Dim arr()
i = 0
For Each Item In Disks
    ReDim Preserve arr(i)
    arr(i) = Item.Caption
    i = i + 1
Next
For j = 0 To UBound(arr)
    Msgbox arr(j)
Next
复制代码