none
从MSDN脚本中心找到一段脚本,如何转为C#,困扰啊? RRS feed

  • 问题

  • strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
    Set colDiskDrives = objRefresher.AddEnum _
        (objWMIService, "Win32_PerfFormattedData_PerfDisk_LogicalDisk").objectSet
    objRefresher.Refresh
    For i = 1 to 500
        For Each objDiskDrive in colDiskDrives
        Wscript.Echo "Drive name: " & objDiskDrive.Name
        Wscript.Echo "Disk bytes per second: " & objDiskDrive.DiskBytesPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
        Next
    Next
    2010年5月11日 5:25

全部回复