Ile jest wolnej pamięci fizycznej możemy sprawdzić za pomocą WMI :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
Wscript.Echo "Dostępna fizyczna pamięć: " & _
objOperatingSystem.FreePhysicalMemory
Next
w strComputer wpisujemy nazwę sprawdzanego komputera.
















