Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("PCNAME1","PCNAME2","PCNAME3")
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
intTotalMemory = 0
For Each objItem In colItems
intTotalMemory = intTotalMemory + objItem.Capacity
Next
intTotalMegabytes = intTotalMemory / 1048576
WScript.Echo "Computer: " & strComputer & " " & "Total Memory: " & intTotalMegabytes & " MB"
Next