Changing virtual memory from code 2

[richrock316]

How can you change the virtual memory minimum and maximum using Visual Basic code?

Also how can you use code to find out how much RAM a computer has?

Thanks

 

[TomKane]

Hi,

To find out the answer to the RAM question - you could take a look at running MSINFO32 in /report mode

http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/msinfo.mspx?mfr=true

Regards,
Tom

 

[richrock316]

Thanks Tom,

that would indeed work. I was able to use a api function globalmemorystatus to get it.

Still havent had any luck with an way to cange the aging file size with code.

Richard

 

[strongm]

Haven't tried very hard then ... ;-)

Note: you take full responsibility for what may or may not happen on your PC whenmodifying virtual memory settings:

[blue]Public Sub Experiment()
    Dim objWMIService As Object
    Dim PageFiles As Object
    Dim PageFile As Object
    Dim WriteablePageFilesInfo As Object
    Dim WriteablePageFileInfo As Object

    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\." & "\root\cimv2")
            If Err = 0 Then
                Set PageFiles = objWMIService.ExecQuery("select * from Win32_PageFileUsage")
                For Each PageFile In PageFiles
                    Set WriteablePageFilesInfo = objWMIService.ExecQuery("select * from Win32_PageFileSetting")
                    For Each WriteablePageFileInfo In WriteablePageFilesInfo
                        If PageFile.Description = WriteablePageFileInfo.Name Then
                            Debug.Print "Pagefile: " & PageFile.Description
                            Debug.Print "Allocated (Mb): " & PageFile.allocatedbasesize
                            Debug.Print "Current (Mb): " & PageFile.currentusage
                            Debug.Print "Peak (Mb): " & PageFile.peakusage
                            ' If the following are both 0 then Windows is handling pagefile size
                            Debug.Print WriteablePageFileInfo.initialsize ' we can set these instead
                            Debug.Print WriteablePageFileInfo.maximumsize ' we can set these instead
                        End If
                    Next
                Next
            End If
End Sub[/blue]