mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-08-27 20:58:53 +02:00
2219ed336e
* bin/pandora_agent.conf: Updated sample conf with some examples of
inventory usage, and agent plugins (commented).
* bin/util/df.vbs, bin/util/ps.vbs: Added flush in the end of each module
* bin/util/logevent_log4x.vbs: New agent plugin to parse eventlog and
generate a Log4x format.
git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@2604 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
34 lines
1.1 KiB
Plaintext
34 lines
1.1 KiB
Plaintext
' df.vbs
|
|
' Returns free space for avaible drives.
|
|
' --------------------------------------
|
|
|
|
Option Explicit
|
|
On Error Resume Next
|
|
|
|
' Variables
|
|
Dim objWMIService, objItem, colItems, argc, argv, i
|
|
|
|
' Parse command line parameters
|
|
argc = Wscript.Arguments.Count
|
|
Set argv = CreateObject("Scripting.Dictionary")
|
|
For i = 0 To argc - 1
|
|
argv.Add Wscript.Arguments(i), i
|
|
Next
|
|
|
|
' Get drive information
|
|
Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
|
|
Set colItems = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")
|
|
|
|
For Each objItem in colItems
|
|
If argc = 0 Or argv.Exists(objItem.Name) Then
|
|
If objItem.FreeSpace <> "" Then
|
|
Wscript.StdOut.WriteLine "<module>"
|
|
Wscript.StdOut.WriteLine " <name><![CDATA[" & objItem.Name & "]]></name>"
|
|
Wscript.StdOut.WriteLine " <description><![CDATA[Drive " & objItem.Name & " free space in MB]]></description>"
|
|
Wscript.StdOut.WriteLine " <data><![CDATA[" & Int(objItem.FreeSpace /1048576) & "]]></data>"
|
|
Wscript.StdOut.WriteLine "</module>"
|
|
Wscript.StdOut.flush
|
|
End If
|
|
End If
|
|
Next
|