Talisman skins and wallpapers
Only 2 GB?
Published on January 15, 2009 By PuterDudeJim In Object Desktop

I just added a 4 GB package of RAM to my system and the system sees it, but DesktopX meters only sees 2 GB. Can this be fixed? 


Comments
on Jan 15, 2009

What OS?

Check and make sure they are in correctly, but don't push to hard. 

Are all the memory chips good?  (yeah, how do you tell)

Try another meter, maybe the one your are using only sees 2GB. (that can't be right)

What does the OS show installed?

 

on Jan 15, 2009

What OS?    Vista

Check and make sure they are in correctly, but don't push to hard.

Are all the memory chips good? (yeah, how do you tell)   Yes.

Try another meter, maybe the one your are using only sees 2GB. (that can't be right)   Exactly.

What does the OS show installed?
  see above---I just added a 4 GB package of RAM to my system and the system sees it, but DesktopX meters only sees 2 GB. Can this be fixed?

 

Just giving you a hard time, Philly...lol.  

on Jan 15, 2009

Which meter?  Try my digital clear meter or most of my recent meters. The memory in them is of scripted nature and should pick it all up..I have 8 gb's and it picks it up..

on Jan 15, 2009

'// Multi-Gig Memory Meter
'// Xander 'rabidrobot' Lih Jan 2007
'// http://feebdack.com
'// Please feel free to reuse in any form.


' Set Up Meter Refresher Object
Dim objWMIService, objRefresher, objRefreshItem
Set objWMIService = GetObject("winmgmts:root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set objRefreshItem = objRefresher.AddEnum(objWMIService, "Win32_PerfRawData_PerfOS_Memory").ObjectSet
objRefresher.Refresh

' Important DX-Objects
Dim dxViewbox, dxPercentText

' How often to update the meter in milliseconds.
Const REFRESH_RATE = 1000

' This is good to know - total PC RAM
Dim totalMemory
' Adjust these to fit custom graphics
Const MARG_left = 0' Margin to left of zero on meter
Const MAX_width = 150 ' Total width of bar 100% used

'Called when the script is executed
Sub Object_OnScriptEnter
    ' I find it handy to nickname some objects - you can easily change these here.
    Set dxViewbox = DesktopX.Object("rr_RAM_Viewbox")
    Set dxPercentText = DesktopX.Object("rr_RAM_Percent_Text")
    ' Gather total memory available information
    Dim colItems, objItem
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    totalMemory = 0
    For Each objItem In colItems
        totalMemory = totalMemory + objItem.TotalPhysicalMemory
    Next
    Set colItems = Nothing


    ' Start Monitor
    Object.SetTimer 111, REFRESH_RATE

End Sub

Sub Object_OnTimer111
    ' Update information in the refresher object
    objRefresher.Refresh
    ' The refresher is an enumeration, or list
    ' So we loop through it, even if it might have only one member
    Dim availableMemory, objItem, percentUsed
    availableMemory = 0
    For Each objItem In objRefreshItem
        ' Gather info - I only get AvailableBytes, but you could
        ' get any of the info listed in the OnLButtonUp sub too.
        availableMemory = availableMemory + objItem.AvailableBytes
    Next
    percentUsed = (totalMemory - availableMemory) / totalMemory
    ' Use handy nicknames
    dxViewbox.width = CInt(percentUsed * MAX_width + MARG_left)
    dxPercentText.Text = FormatNumber(percentUsed * 100, 0) & "%"
    ' Update other text objects you may have, e.g.
    ' DeaktopX.Object("FreeMemoryText").Text = FormatNumber(availableMemory / 1024^2, 1) & "MB Free"
   
End Sub



'Called when the script is terminated
Sub Object_OnScriptExit
    Set objWMIService = Nothing
    Set objRefresher = Nothing
    Set dxViewbox = Nothing
    Set dxPercentText = Nothing
End Sub

 

 

U can use this sript from Rabidrobot.

on Jan 15, 2009

Which meter? Try my digital clear meter or most of my recent meters. The memory in them is of scripted nature and should pick it all up..I have 8 gb's and it picks it up..

OK. I was using one of mine with DX's plugins. May I have permission to use your script to make my own?

on Jan 15, 2009

U can use this sript from Rabidrobot.

Cool!!