Private Sub ListPhysicalMemory(ByRef aArray() As Double) On Local Error Resume Next Dim sComputerName As String, i As Integer sComputerName = Environ$("COMPUTERNAME") i = 1 Dim WMI_Obj As Object, WMI_ObjProps As Object, ObjClsItem As Object Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2") Set WMI_ObjProps = WMI_Obj.ExecQuery("Select * from Win32_PhysicalMemory", , 48) For Each ObjClsItem In WMI_ObjProps ReDim Preserve aArray(i) aArray(i) = ObjClsItem.Capacity i = i + 1 Next ObjClsItem aArray(i) = 0 For i = 1 To UBound(aArray) aArray(0) = aArray(0) + aArray(i) Next i Set ObjClsItem = Nothing Set WMI_ObjProps = Nothing Set WMI_Obj = Nothing End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.