WSH - Getting the system memory and hard disk space

Original - vb Code Set colRAM = objWMIService.ExecQuery _ ("Select TotalphysicalMemory from WIN32_ComputerSystem") For Each objRAM In colRAM RAM = Round(objRAM.TotalPhysicalMemory/(1024*1024), 2) 'Show memory in MB If RAM < 512 Then WScript.Echo "Insufficient memory for installation" Else Set colDiskSp = objWMIService.ExecQuery _ ("Select * From WIN32_LogicalDisk") For Each objDiskSp In colDiskSp If Not IsNull(objDiskSp.size) Then If objDiskSp.Description = "Local Fixed Disk" Then DiskSpace = Round(objDiskSp.Size/(1024*1024*1024), 2) 'Show size in GB DriveLetter = objDiskSp.DeviceID FreeSpace = Round(objDiskSp.FreeSpace/(1024*1024*1024), 2) 'Show freespace in GB If FreeSpace < <required amount of freespace> Then WScript.Echo "Insufficient free disk space for installation" Else <run script to install> End If End If End If End If

Set colRAM = objWMIService.ExecQuery _
    ("Select TotalphysicalMemory from WIN32_ComputerSystem")
    For Each objRAM In colRAM
    RAM = Round(objRAM.TotalPhysicalMemory/(1024*1024), 2) 'Show memory in MB
If RAM < 512 Then
WScript.Echo "Insufficient memory for installation"
Else
Set colDiskSp = objWMIService.ExecQuery _
    ("Select * From WIN32_LogicalDisk")
    For Each objDiskSp In colDiskSp
    If Not IsNull(objDiskSp.size) Then
    If objDiskSp.Description = "Local Fixed Disk" Then
        DiskSpace = Round(objDiskSp.Size/(1024*1024*1024), 2) 'Show size in GB
        DriveLetter = objDiskSp.DeviceID
        FreeSpace = Round(objDiskSp.FreeSpace/(1024*1024*1024), 2) 'Show freespace in GB
If FreeSpace < <required amount of freespace> Then
WScript.Echo "Insufficient free disk space for installation"
Else
<run script to install>
End If
End If
End If
End If 

Original - vb Code On Error Resume Next Dim colRAM, colDiskSp, objRAM, RAM, objDiskSp Dim FreeSpace, objWMIService, strComputer strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 'Find the amount of physical memory Set colRAM = objWMIService.ExecQuery _ ("Select TotalphysicalMemory from WIN32_ComputerSystem") For Each objRAM In colRAM RAM = Round(objRAM.TotalPhysicalMemory/(1024*1024), 2) 'Show memory in MB Next If RAM < 512 Then WScript.Echo "Insufficient memory to install application" Else Set colDiskSp = objWMIService.ExecQuery _ ("Select * From WIN32_LogicalDisk") For Each objDiskSp In colDiskSp If objDiskSp.DeviceID = "C:" Then FreeSpace = Round(objDiskSp.FreeSpace/(1024*1024*1024), 2) 'Show freespace in GB If FreeSpace < 2 Then 'You would put the minimum amount of free space in GB here WScript.Echo "Insufficient free space to install appliction" Else WScript.Echo "The application can be installed" End If End If Next End If

On Error Resume Next
 
Dim colRAM, colDiskSp, objRAM, RAM, objDiskSp
Dim FreeSpace, objWMIService, strComputer
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
    'Find the amount of physical memory
Set colRAM = objWMIService.ExecQuery _
    ("Select TotalphysicalMemory from WIN32_ComputerSystem")
    For Each objRAM In colRAM
    RAM = Round(objRAM.TotalPhysicalMemory/(1024*1024), 2) 'Show memory in MB
Next
If RAM < 512 Then
WScript.Echo "Insufficient memory to install application"
Else
 
Set colDiskSp = objWMIService.ExecQuery _
    ("Select * From WIN32_LogicalDisk")
    For Each objDiskSp In colDiskSp
    If objDiskSp.DeviceID = "C:" Then
        FreeSpace = Round(objDiskSp.FreeSpace/(1024*1024*1024), 2) 'Show freespace in GB
        If FreeSpace < 2 Then 'You would put the minimum amount of free space in GB here
        WScript.Echo "Insufficient free space to install appliction"
        Else
        WScript.Echo "The application can be installed"
    End If
End If
Next
End If