dotNETportal.cz

Ahoj, potřebuju s něčím pomoct. Mám script co zjistí využití RAM v kB, ae potřeboval bych aby to vedle toho zobrazovalo kolik % ta aplikace využíva RAM z celé RAMky.

Předem díky za odpovědi.

Ještě sem zapoměl

Kód:

    Private Function GetProcessMemory(ByVal app_name As String) As String

        Dim Process As Object
        Dim dMemory As Double

        For Each Process In GetObject("winmgmts:").ExecQuery("Select WorkingSetSize from Win32_Process Where Name = '" & app_name & "'")
            dMemory = Process.WorkingSetSize
        Next

        If dMemory > 0 Then
            GetProcessMemory = ResizeKb(dMemory)
        Else
            GetProcessMemory = "0 Bytes"
        End If

    End Function

Toto patří ještě k tomu

    Private Function ResizeKb(ByVal b As Double) As String

        Dim bSize(8) As String, i As Integer
        bSize(0) = "Bytes"
        bSize(1) = "kB" 'Kilobytes
        bSize(2) = "MB" 'Megabytes
        bSize(3) = "GB" 'Gigabytes
        bSize(4) = "TB" 'Terabytes
        bSize(5) = "PB" 'Petabytes
        bSize(6) = "EB" 'Exabytes
        bSize(7) = "ZB" 'Zettabytes
        bSize(8) = "YB" 'Yottabytes

        For i = bSize.Length - 1 To 0 Step -1
            If b >= (1024 ^ i) Then
                Return ThreeNonZeroDigits(b / (1024 ^ i)) & " " & bSize(i)
            End If
        Next
        Return "0 kB"
    End Function


    Private Function ThreeNonZeroDigits(ByVal value As Double) As Double

        If value >= 100 Then
            Return FormatNumber(value)
        ElseIf value >= 10 Then
            Return FormatNumber(value, 1)
        Else
            Return FormatNumber(value, 2)
        End If

    End Function

chtěl bych mít xPetabytovou ramku...

 For Each Process In GetObject("winmgmts:").ExecQuery("Select WorkingSetSize from Win32_Process Where Name = 'SumTotal'")
            dMemory = Process.WorkingSetSize
        Next