Get RAM and HDD sapce info.

[ashley]

urm do anybody know any ready made code that i can adapt that shows the RAM and HDD info. also if possible is the RAM over 85%, the text turns red. and if the hdd sapce is over 85% used then it goes red too.

thanks.

[James]

Check out my Disk Manager. I am not sure about RAM info, I am working on that

[ashley]

its confusing too much code that i have no idea about code u just post same info here.

[James]

Oh my god Ashley. Even I can understand it.

Look at the Drive functions in the helpfile. Urgh, your...

[ashley]

kk

[covaks]

MsgBox(1,"",PercentMemoryFree() & "% Free physical memory")
MsgBox(1,"",PercentHardDriveFree() & "% Free space on C:")

Func PercentMemoryFree()
    Local $objWMI = ObjGet("winmgmts:\\.\root\cimv2")
    Local $collection = $objWMI.ExecQuery("Select * from Win32_OperatingSystem")
    Local $FreeMemory
    Local $TotalMemory
    Local $obj

    For $obj In $collection
        $FreeMemory = $obj.FreePhysicalMemory
    Next

    $collection = $objWMI.ExecQuery("Select * from Win32_ComputerSystem")
    For $obj In $collection
        $TotalMemory = $obj.TotalPhysicalMemory
    Next
    
    Return Int((($FreeMemory*1024) / $TotalMemory) * 100)
EndFunc


Func PercentHardDriveFree()
Return Int((DriveSpaceFree("C:") / DriveSpaceTotal("C:")) * 100)
EndFunc

Edited December 30, 2007 by covaks

[James]

Covaks, is it ok if I use your free memory function in my program please?

[covaks]

Sure, go ahead. :-)

[James]

Have you seen MemGetStats in the helpfile by any chance Ashley?

[covaks]

Wel, I sure didn't. lol. That would have helped.

[ashley]

yes i have but on my oldpc, im currently on my new lkaptop, which don't have autoit yet... so all the program script(including all-in-one protection center) have been written in notepad lol.

ill check that scrip out thta u posted 2moz

thanks.

[James]

But you have internet access?

[ashley]

yes i do. but im getting an Anti-virus before i download anything...

i trust autoit not to have any in, but when i download one thing i get obsessed and download 100's of things lol... so it best to wait... anyways im getting virus protection 2day so,so ill have in n time.