' Pandora FMS Agent Inventory Plugin for Microsoft Windows (All platfforms) ' (c) 2015 Borja Sanchez <fborja.sanchez@artica.es> ' This plugin extends agent inventory feature. Only enterprise version ' -------------------------------------------------------------------------- 'WMI raminfo strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colRAMs = objWMIService.ExecQuery("Select deviceLocator,capacity,speed from Win32_PhysicalMemory") on error resume next flag = colRAMs.Count If (err.number <> 0) Then flag = true Else flag = false End If on error goto 0 'Print only when there's results If (NOT flag) Then Wscript.StdOut.WriteLine "<inventory>" Wscript.StdOut.WriteLine "<inventory_module>" Wscript.StdOut.WriteLine "<name>RAM</name>" Wscript.StdOut.WriteLine "<type><![CDATA[generic_data_string]]></type>" Wscript.StdOut.WriteLine "<datalist>" For Each ram In colRAMs Wscript.StdOut.WriteLine "<data><![CDATA[" & ram.deviceLocator _ & ";" & Abs(Round((ram.capacity/(1024*1024)),2)) & " MB" _ & ";" & ram.speed & " MHz"_ & "]]></data>" Next Wscript.StdOut.WriteLine "</datalist>" Wscript.StdOut.WriteLine "</inventory_module>" Wscript.StdOut.WriteLine "</inventory>" End If