Show amount of RAM and Windows OS?

C

Charlotte E.

Is it possible to read and show the amount of system RAM and which version
of the Windows OS being used (98, ME, XP, Vista, etc...)??

Anyone who can cook up a VBA code for this?


Thanks...
 
R

ryguy7272

Are you familiar with VBA? Run this code:
Sub SysInfo()

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")


With Sheets(1)

Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem In colSettings

Cells(1, 1) = "OS Name: "
Cells(1, 2) = objOperatingSystem.Name

Cells(2, 1) = "Version: "
Cells(2, 2) = objOperatingSystem.Version

Cells(3, 1) = "Service Pack: "
Cells(3, 2) = objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion

Cells(4, 1) = "OS Manufacturer: "
Cells(4, 2) = objOperatingSystem.Manufacturer

Cells(5, 1) = "Windows Directory: "
Cells(5, 2) = objOperatingSystem.WindowsDirectory

Cells(6, 1) = "Locale: "
Cells(6, 2) = objOperatingSystem.Locale

Cells(7, 1) = "Available Physical Memory: "
Cells(7, 2) = objOperatingSystem.FreePhysicalMemory

Cells(8, 1) = "Total Virtual Memory: "
Cells(8, 2) = objOperatingSystem.TotalVirtualMemorySize

Cells(9, 1) = "Available Virtual Memory: "
Cells(9, 2) = objOperatingSystem.FreeVirtualMemory

Cells(10, 1) = "Size stored in paging files: "
Cells(10, 2) = objOperatingSystem.SizeStoredInPagingFiles

Next

Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer In colSettings

Cells(11, 1) = "System Name: "
Cells(11, 2) = objComputer.Name

Cells(12, 1) = "System Manufacturer: "
Cells(12, 2) = objComputer.Manufacturer

Cells(13, 1) = "System Model: "
Cells(13, 2) = objComputer.Model

Cells(14, 1) = "Total Physical Memory: "
Cells(14, 2) = objComputer.TotalPhysicalMemory

Next

End With

End Sub

Regards,
Ryan---
 
P

Peter T

It's a language code. Don't know what 406 is but 409 is US English

Just a heads up about winmgmts, it might fail (ie error) in win98 if not
installed, which it isn't by default as it is in later OS. If that's a
potential concern there are API methods.

Regards,
Peter T
 
C

Charlotte E.

It's a language code. Don't know what 406 is but 409 is US English

Anyone know where to find a list of those language codes???
406 must mean Danish then :)

If anyone uses another language version of Excel, please, post your Locale
code here - I'm particular interested in Dutch, Polish, Russian and
Ukrainian.


Just a heads up about winmgmts, it might fail (ie error) in win98 if
not installed, which it isn't by default as it is in later OS. If
that's a potential concern there are API methods.
Click to expand...

Thanks for the heads up - I'll re-write the code to handle if an error occur
when using "WiNMgmts" - thanks...
 
P

Peter T

I couldn't find an MS page with those language codes, I guess there must be
one, but see here
http://wiki.services.openoffice.org/wiki/Languages
It appears the codes are Hex numbers


Maybe Excel can return what you need, in help see
Application.International(constant)
with xlCountryCode and xlCountrySetting
AFAIK the returned code is same as the international telephone dial code
(not sure about all countries)


You could try the following to return memory. The GlobalMemoryStatus API
will fail in sytems with +2gig and GlobalMemoryStatusEx is n/a in Win98.
Hopefully one or the other will work!

Private Type MEMORYSTATUSEX
dwLength As Long
dwMemoryLoad As Long
ullTotalPhys As Currency
ullAvailPhys As Currency
ullTotalPageFile As Currency
ullAvailPageFile As Currency
ullTotalVirtual As Currency
ullAvailVirtual As Currency
ullAvailExtendedVirtual As Currency
End Type

Private Declare Function GlobalMemoryStatusEx _
Lib "kernel32" (mseStatus As MEMORYSTATUSEX) As Long

Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" ( _
lpBuffer As MEMORYSTATUS)


Sub Test()
Dim dTotPhys As Double, res As Long
Dim mem As MEMORYSTATUS
Dim MemStat As MEMORYSTATUSEX

' GlobalMemoryStatus is n/a in W98, calling it will error
On Error Resume Next
MemStat.dwLength = Len(MemStat)
'If Err.Number = 0 Then
res = GlobalMemoryStatusEx(MemStat)
If res Then
dTotPhys = MemStat.ullTotalPhys * 10000& '/ (1024& * 1024)
' don't assign 2+gig to a Long
Else
' this'll error in systems with 2+Gig memory due to Long overflow
' but unlikely in a W98 system
Call GlobalMemoryStatus(mem)
dTotPhys = mem.dwTotalPhys
End If

On Error GoTo 0

Debug.Print dTotPhys, Int(dTotPhys / (1024& * 1024)) & " Meg"

End Sub

Regards,
Peter T


Charlotte E. said:
Anyone know where to find a list of those language codes???
406 must mean Danish then :)

If anyone uses another language version of Excel, please, post your Locale
code here - I'm particular interested in Dutch, Polish, Russian and
Ukrainian.



Thanks for the heads up - I'll re-write the code to handle if an error
occur when using "WiNMgmts" - thanks...
Click to expand...
<snip>
 
Top