Код:
Option Explicit
Dim objSWbemServicesEx
Dim objSWbemObjectEx
Dim lngFreePhysicalMemory
Set objSWbemServicesEx = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT FreePhysicalMemory FROM Win32_OperatingSystem")
lngFreePhysicalMemory = CLng(objSWbemObjectEx.FreePhysicalMemory)
If lngFreePhysicalMemory > 2 * 2^20 Then
'Если %freeram%>2GB - запускается program.exe и сценарий завершает работу без ожидания завершения выполнения команды
WScript.CreateObject("WScript.Shell").Run """%SystemRoot%\System32\notepad.exe""", 1, False
ElseIf lngFreePhysicalMemory > 2^20 Then
'Если %freeram%<2GB, но >1GB - ....
'…
ElseIf lngFreePhysicalMemory > 512 * 2^20 Then
'Если %freeram%<1GB, но >512 - ....
'…
Else
'Если %freeram%<512MB
'…
End If
Exit For
Next
Set objSWbemServicesEx = Nothing
WScript.Quit 0
