Set colItems = wbemServices.ExecQuery("Select * from Win32_OperatingSystem",,48)
if Err.Number Then
WScript.Echo vbCrLf & "Error # " & _
" " & Err.Description
End If
On Error GoTo 0
For Each objItem in colItems
WScript.Echo "FreePhysicalMemory" & vbTab & objItem.FreePhysicalMemory
WScript.Echo "FreeVirtualMemory" & vbTab & objItem.FreeVirtualMemory
WScript.Echo "TotalVirtualMemory" & vbTab & objItem.TotalVirtualMemorySize
WScript.Echo "PercentFreeVirtMem" & vbTab & CStr(Round(((objItem.FreeVirtualMemory / objItem.TotalVirtualMemorySize) * 100),0))
Next
WScript.Quit(0)
<CATEGORY ID="WMIVirtualMemory" command="vmem.vbs" parseAll="true" description="WMI Virtual Memory statistics">
<ENTITY ID="FreeVirtualMemory" storeValue="Value2" storeHistory="true" units="Bytes">
<PARSE line="4" token="2" name="Value2"/>
</ENTITY>
<ENTITY ID="TotalVirtualMemory" storeValue="Value3" storeHistory="true" units="Bytes">
<PARSE line="5" token="2" name="Value3"/>
</ENTITY>
<ENTITY ID="PercentVirtualMemoryFree" storeValue="Value4" storeHistory="true" units="%">
<PARSE line="6" token="2" name="Value4"/>
</ENTITY>
</CATEGORY>
<DEFAULTGRAPH Name="WMIVirtualMemory">
<YAXISTEXT>Percentage</YAXISTEXT>
<DISPLAYNAME>WMI virtual memory statistics</DISPLAYNAME>
<name>WMIVirtualMemory</name>
<Vendor>WMI</Vendor>
<Description>Monitors virtual memory statistics</Description>
<oid>WMIVirtualMemory</oid>
<Provider>WMI</Provider>
<Monitor>Resource</Monitor>
<type>multiple</type>
<interval>5</interval>
<THRESHOLDENABLED>false</THRESHOLDENABLED>
</DEFAULTGRAPH>