17-10-12, 02:22 PM
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله و بركاتهالكود يستعمل خدمات ال WMI
كود :
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