Discussion :

[GetsugaAa]

Bonjour à tous,


Etant néophyte dans les langages de programmation je viens requérir votre aide.
Je cherche à afficher en pourcentage la mémoire physique utilisée.
En parcourant divers forum j'ai trouvé un bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfOS_Memory",,48)
GB = 1024 *1024 * 1024
For Each objItem in colItems
    Wscript.Echo "MemoireDisponnible: " & Round(objItem.AvailableBytes / GB,3)
    Wscript.Echo "MemoireTotale: " & Round(objItem.CommitLimit / GB,3)
   Wscript.Echo "TotalMemoryUsage:" & round(objItem.CommittedBytes /GB,3) 
   Next

Du coup, ce qui m'intéresse c'est la dernière ligne.

J'ai essayé d'écrire : Wscript.Echo "TotalMemoryUsage:" ((100 * & round(objItem.CommittedBytes)) / & Round(objItem.CommitLimit) /GB,3)

Il doit y avoir des erreurs de syntaxe je pense, si je laisse juste la multiplication, j'ai un résultat, mais dès que j'essaye de rajouté la division j'ai un message d'erreur.
Je sais pas si vous voyez ma logique, si vous pouvez m'aiguillez sur le bon chemin, je vous en serais très reconnaissant.

A bientôt!

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Msg
Dim strComputer, colItems, objWMIService, objItem
Dim GB
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfOS_Memory", , 48)
GB = CDbl(1024) * 1024
GB = CDbl(CDbl(GB) * 1024)
For Each objItem In colItems
    Msg = "MemoireDisponnible: " & Round(objItem.AvailableBytes / GB, 3)
    Msg = Msg & vbCrLf & "MemoireTotale: " & Round(objItem.CommitLimit / GB, 3)
    Msg = Msg & vbCrLf & "TotalMemoryUsage: " & Round(objItem.CommittedBytes / GB, 3)
    Msg = Msg & vbCrLf & "TotalMemoryUsage: " & Round(((CDbl(objItem.CommittedBytes) / CDbl(objItem.CommitLimit)) * 100), 3) & "%"
    MsgBox Msg
Next

La variable GB n'est pas utile pour calculer le pourcentage.

[GetsugaAa]

Merci Beaucoup ProgElecT, ça fonctionne bien !