PandoraAgentWindows: Added latest scripts & configuration
This commit is contained in:
fbsanchez
parent
9c64dfdc5a
commit
30afa2a135
|
|
@ -1,6 +1,6 @@
|
|||
# Base config file for Pandora FMS Windows Agent
|
||||
# (c) 2006-2014 Artica Soluciones Tecnologicas
|
||||
# Version 5.1SP3
|
||||
# Version 5.1SP3
|
||||
|
||||
# This program is Free Software, you can redistribute it and/or modify it
|
||||
# under the terms of the GNU General Public Licence as published by the Free Software
|
||||
|
|
@ -183,94 +183,100 @@ module_end
|
|||
#Antivirus monitoring
|
||||
#This modules checks the antivirus is running on your system, if there is and antivirus
|
||||
#This module gets the last date the signature file was updated and send this date to pandora.
|
||||
module_begin
|
||||
module_name Antivirus Last Update
|
||||
module_type async_string
|
||||
module_precondition =~ avguard.exe cmd.exe /c tasklist | grep avguard.exe | gawk "{print $1}"
|
||||
module_exec dir "%ProgramFiles%\Avira\AntiVir Desktop\aevdf.dat" | grep aevdf.dat | gawk "{print $1\" \"$2}"
|
||||
module_description Last update for Antivirus Signature file
|
||||
module_end
|
||||
#module_begin
|
||||
#module_name Antivirus Last Update
|
||||
#module_type async_string
|
||||
#module_precondition =~ avguard.exe cmd.exe /c tasklist | grep avguard.exe | gawk "{print $1}"
|
||||
#module_exec dir "%ProgramFiles%\Avira\AntiVir Desktop\aevdf.dat" | grep aevdf.dat | gawk "{print $1\" \"$2}"
|
||||
#module_description Last update for Antivirus Signature file
|
||||
#module_end
|
||||
|
||||
# Windows inventory module (This information will be displayed only in enterprise version)
|
||||
|
||||
# Windows inventory module (This information will be displayed only in enterprise version)^M
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\cpuinfo.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\moboinfo.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\diskdrives.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\cdromdrives.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\videocardinfo.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\ifaces.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\monitors.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\printers.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\raminfo.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\software_installed.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\userslogged.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\productkey.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\productID.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\architecture.vbs"
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\win_cf.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_timeout 50
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\domain.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_end
|
||||
|
||||
module_begin
|
||||
module_plugin cscript.exe //B "%PROGRAMFILES%\Pandora_Agent\util\osversion.vbs"
|
||||
module_crontab * 12-15 * * 1
|
||||
module_end
|
||||
|
||||
# ----------------------------------------------------------------------------------------------------
|
||||
# This samples below need to be reconfigured and uncommented. Please read documentation
|
||||
|
|
|
|||
|
|
@ -2,7 +2,8 @@
|
|||
' (c) 2015 Sancho Lerena <slerena@artica.es>
|
||||
' (c) 2015 Borja Sanchez <fborja.sanchez@artica.es>
|
||||
' This plugin extends agent inventory feature. Only enterprise version
|
||||
' --------------------------------------------------------------------------
|
||||
' Warning: If the system has the WMI corrupted, call this script with nowmi argument
|
||||
' ------------------------------------------------------------------------------------
|
||||
on error resume next
|
||||
|
||||
Class ObjectList
|
||||
|
|
@ -31,7 +32,7 @@ Class ObjectList
|
|||
End Class
|
||||
|
||||
class AppClass
|
||||
dim InstallDate,Caption,Version,Vendor
|
||||
dim InstallDate,Caption,Version,Vendor
|
||||
end class
|
||||
|
||||
' Print the XML structure
|
||||
|
|
@ -43,46 +44,50 @@ Wscript.StdOut.WriteLine "<datalist>"
|
|||
|
||||
'------ Checks if an item exists on the main collection
|
||||
function isItemInArray(objeto,coleccion)
|
||||
for each id in coleccion.List
|
||||
if (strComp(objeto,coleccion.List(id).caption) = 0) then
|
||||
isItemInArray=true
|
||||
exit function
|
||||
end if
|
||||
next
|
||||
isItemInArray=false
|
||||
for each id in coleccion.List
|
||||
if (strComp(objeto,coleccion.List(id).caption) = 0) then
|
||||
isItemInArray=true
|
||||
exit function
|
||||
end if
|
||||
next
|
||||
isItemInArray=false
|
||||
end function
|
||||
|
||||
'------ main collection definition
|
||||
dim colObjSW : set colObjSW = new ObjectList
|
||||
strComputer = "."
|
||||
|
||||
'------ Retrieve the WMI registers first
|
||||
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
|
||||
Set colSoftware = objWMIService.ExecQuery ("SELECT installstate,caption,installdate,Version,vendor FROM Win32_Product")
|
||||
' Disable by arguments WMI queries - corrupted WMI host
|
||||
|
||||
If (not WScript.Arguments(0) = "nowmi") Then
|
||||
'------ Retrieve the WMI registers first
|
||||
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
|
||||
Set colSoftware = objWMIService.ExecQuery ("SELECT installstate,caption,installdate,Version,vendor FROM Win32_Product",,48)
|
||||
|
||||
|
||||
'------ Check all
|
||||
'-- first) add all unique WMI (unique) entries to main collector
|
||||
'-- second) add all unique REGISTRY items to main collector
|
||||
'------ Check all
|
||||
'-- first) add all unique WMI (unique) entries to main collector
|
||||
'-- second) add all unique REGISTRY items to main collector
|
||||
|
||||
for each objSoftware in colSoftware
|
||||
if ( objSoftware.installstate = 5 ) then
|
||||
if ( isItemInArray(objSoftware.caption, colObjSW) = false ) then
|
||||
' It doesn't exists, added.
|
||||
With colObjSW.Append(New AppClass)
|
||||
.caption = objSoftware.caption
|
||||
.InstallDate = objSoftware.InstallDate
|
||||
.version = objSoftware.version
|
||||
.vendor = objSoftware.vendor
|
||||
End with
|
||||
' Add to XML the verified ones
|
||||
Wscript.StdOut.WriteLine "<data><![CDATA[" _
|
||||
& objSoftware.caption & ";" _
|
||||
& objSoftware.version _
|
||||
& "]]></data>"
|
||||
end if
|
||||
end if
|
||||
next
|
||||
for each objSoftware in colSoftware
|
||||
if ( objSoftware.installstate = 5 ) then
|
||||
if ( isItemInArray(objSoftware.caption, colObjSW) = false ) then
|
||||
' It doesn't exists, added.
|
||||
With colObjSW.Append(New AppClass)
|
||||
.caption = objSoftware.caption
|
||||
.InstallDate = objSoftware.InstallDate
|
||||
.version = objSoftware.version
|
||||
.vendor = objSoftware.vendor
|
||||
End with
|
||||
' Add to XML the verified ones
|
||||
Wscript.StdOut.WriteLine "<data><![CDATA[" _
|
||||
& objSoftware.caption & ";" _
|
||||
& objSoftware.version _
|
||||
& "]]></data>"
|
||||
end if
|
||||
end if
|
||||
next
|
||||
End If
|
||||
|
||||
' ------ Getting the REGISTRY
|
||||
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
|
||||
|
|
@ -123,12 +128,12 @@ For Each strSubkey In arrSubkeys
|
|||
' foreach registry item, check if exists in the main collector
|
||||
' it it exists, it doesn't be added.
|
||||
if ( isItemInArray(appname, colObjSW) = false ) then
|
||||
' as item doesn't exist, we add it to main collector and to XML
|
||||
With colObjSW.Append(New AppClass)
|
||||
.caption = appname
|
||||
.version = appversion
|
||||
End with
|
||||
Wscript.StdOut.WriteLine "<data><![CDATA[" & appname & ";" & appversion & "]]></data>"
|
||||
' as item doesn't exist, we add it to main collector and to XML
|
||||
With colObjSW.Append(New AppClass)
|
||||
.caption = appname
|
||||
.version = appversion
|
||||
End with
|
||||
Wscript.StdOut.WriteLine "<data><![CDATA[" & appname & ";" & appversion & "]]></data>"
|
||||
end if
|
||||
end if
|
||||
next
|
||||
|
|
|
|||
|
|
@ -0,0 +1,292 @@
|
|||
' Pandora FMS Agent Custom Field Plugin for Microsoft Windows (All platfforms)
|
||||
' (c) 2015 Borja Sanchez <fborja.sanchez@artica.es>
|
||||
' This plugin extends agent inventory feature. Only enterprise version
|
||||
' -------------------------------------------
|
||||
' Custom fields information generator
|
||||
'
|
||||
' Basic structure:
|
||||
' <custom_fields>
|
||||
' <field>
|
||||
' <name><![CDATA[]></name>
|
||||
' <value><![CDATA[]></value>
|
||||
' </field>
|
||||
' </custom_fields>
|
||||
'
|
||||
' --------------------------------------------------------------------------
|
||||
' Custom Fields: Windows Agent
|
||||
|
||||
' SET CORRECT BASE_DIR!!
|
||||
Set WshShell = WScript.CreateObject("WScript.Shell")
|
||||
AGENT_HOME_DIR = wshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\pandora_agent\"
|
||||
|
||||
Function BASE_DIR (subitem)
|
||||
BASE_DIR = chr(34) & AGENT_HOME_DIR & subitem & chr(34)
|
||||
End Function
|
||||
|
||||
randomize
|
||||
|
||||
strComputer = "."
|
||||
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
|
||||
|
||||
'---------------------------------------------------------------------
|
||||
' Parses the pandora_agent configuration file to extract the
|
||||
' fields agent_name, parent_agent_name and group
|
||||
'---------------------------------------------------------------------
|
||||
Sub parse_conf_file ()
|
||||
|
||||
If WScript.Arguments.Count = 0 Then
|
||||
pandora_agent_base_path = AGENT_HOME_DIR
|
||||
Else
|
||||
pandora_agent_base_path = WScript.Arguments(0)
|
||||
End If
|
||||
|
||||
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
||||
|
||||
If (Not objFSO.FileExists(pandora_agent_base_path & "pandora_agent.conf" ) ) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Set objFile = objFSO.OpenTextFile(pandora_agent_base_path & "pandora_agent.conf", 1)
|
||||
|
||||
name_flag = 1
|
||||
do until objFile.AtEndOfStream
|
||||
|
||||
'"agent_name", "agent_name"
|
||||
'"parent", "parent_agent_name"
|
||||
'"group", "group"
|
||||
line = objFile.ReadLine
|
||||
If (Not "#" = Left(line, 1) ) Then
|
||||
|
||||
lc = InStr(4, line," ")
|
||||
If (lc > 0 ) Then
|
||||
field = Left(line, lc -1)
|
||||
value = Mid(line, lc +1, Len(line))
|
||||
|
||||
Select Case field
|
||||
Case "agent_name"
|
||||
If (Not value = "") Then
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[" & field & "]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & replace (value,"""", "") &"]]></value>"
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
name_flag = 0
|
||||
End If
|
||||
|
||||
Case "parent_agent_name","group"
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[" & field & "]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & replace (value,"""", "") &"]]></value>"
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
loop
|
||||
|
||||
If (name_flag = 1) Then
|
||||
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[agent_name]]></name>"
|
||||
Set cols = objWMIService.ExecQuery("SELECT caption FROM Win32_ComputerSystem")
|
||||
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
If (NOT flag) Then
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.caption & "]]></value>"
|
||||
Next
|
||||
End If
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
objFile.Close
|
||||
|
||||
If objFSO.FileExists(OUT_FILE) Then
|
||||
objFSO.DeleteFile OUT_FILE
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' FILE STARTS
|
||||
WScript.StdOut.WriteLine "<custom_fields>"
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: os_version
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[os_version]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT version from win32_operatingsystem")
|
||||
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.version & "]]></value>"
|
||||
Next
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: Domain
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[Domain]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT Domain FROM Win32_ComputerSystem")
|
||||
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.Domain & "]]></value>"
|
||||
Next
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
'--------------------------------
|
||||
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: Architecture
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[Architecture]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT osarchitecture FROM Win32_OperatingSystem")
|
||||
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
|
||||
If flag Then
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[32 bits]]></value>"
|
||||
Else
|
||||
For Each data In cols
|
||||
If ( NOT IsNull(data.osarchitecture) ) Then
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.osarchitecture & "]]></value>"
|
||||
Else
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[32 bits]]></value>"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Extract info
|
||||
'--------------------------------
|
||||
parse_conf_file
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'----------------------------------------------------
|
||||
' Custom Field: IP, IPv6 AND MAC -> XXX First found.
|
||||
'----------------------------------------------------
|
||||
Set cols = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter " & _
|
||||
"Where not PNPDeviceID like 'ROOT%%' " & _
|
||||
"and not PNPDeviceID like 'SW%%' " & _
|
||||
"and not ServiceName is null " & _
|
||||
"and not ServiceName like 'vwifimp' ")
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
|
||||
If (NOT flag) Then
|
||||
For Each iface In cols
|
||||
' return model MACAddress IPAddress
|
||||
set ifaces_cfg = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where Caption='" & iface.caption & "'")
|
||||
for each iface_cfg in ifaces_cfg
|
||||
if ( NOT IsNull(iface_cfg.IPAddress) ) then
|
||||
on error resume next
|
||||
IP = trim(iface_cfg.IPAddress(0))
|
||||
If ( err.number <> 0 ) Then
|
||||
IP = NULL
|
||||
End If
|
||||
MAC = iface.MACAddress
|
||||
If ( err.number <> 0 ) Then
|
||||
MAC = NULL
|
||||
End If
|
||||
IPv6 = trim(iface_cfg.IPAddress(1))
|
||||
If ( err.number <> 0 ) Then
|
||||
IPv6 = NULL
|
||||
End If
|
||||
on error goto 0
|
||||
end if
|
||||
next
|
||||
Next
|
||||
End If
|
||||
If (NOT IsNull(IP)) Then
|
||||
WScript.StdOut.WriteLine "<field>"
|
||||
WScript.StdOut.WriteLine "<name><![CDATA[IP]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & IP & "]]></value>"
|
||||
WScript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
If (NOT IsNull(IPv6)) Then
|
||||
WScript.StdOut.WriteLine "<field>"
|
||||
WScript.StdOut.WriteLine "<name><![CDATA[IPv6]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & IPv6 & "]]></value>"
|
||||
WScript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
If (NOT IsNull(MAC)) Then
|
||||
WScript.StdOut.WriteLine "<field>"
|
||||
WScript.StdOut.WriteLine "<name><![CDATA[MAC]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & MAC & "]]></value>"
|
||||
WScript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: Hostname
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[hostname]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT caption FROM Win32_ComputerSystem")
|
||||
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
If (NOT flag) Then
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.caption & "]]></value>"
|
||||
Next
|
||||
End If
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
|
||||
|
||||
'--------------------------------
|
||||
|
||||
WScript.StdOut.WriteLine "</custom_fields>"
|
||||
|
||||
' FILE ENDS
|
||||
|
|
@ -0,0 +1,281 @@
|
|||
' Pandora FMS Agent Custom Field Plugin for Microsoft Windows Xp
|
||||
' (c) 2015 Borja Sanchez <fborja.sanchez@artica.es>
|
||||
' This plugin extends agent inventory feature. Only enterprise version
|
||||
' -------------------------------------------
|
||||
' Custom fields information generator
|
||||
'
|
||||
' Basic structure:
|
||||
' <custom_fields>
|
||||
' <field>
|
||||
' <name><![CDATA[]></name>
|
||||
' <value><![CDATA[]></value>
|
||||
' </field>
|
||||
' </custom_fields>
|
||||
'
|
||||
' --------------------------------------------------------------------------
|
||||
' Custom Fields: Windows Agent
|
||||
|
||||
' SET CORRECT BASE_DIR!!
|
||||
Set WshShell = WScript.CreateObject("WScript.Shell")
|
||||
AGENT_HOME_DIR = wshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\pandora_agent\"
|
||||
|
||||
Function BASE_DIR (subitem)
|
||||
BASE_DIR = chr(34) & AGENT_HOME_DIR & subitem & chr(34)
|
||||
End Function
|
||||
|
||||
randomize
|
||||
|
||||
strComputer = "."
|
||||
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
|
||||
|
||||
'---------------------------------------------------------------------
|
||||
' Parses the pandora_agent configuration file to extract the
|
||||
' fields agent_name, parent_agent_name and group
|
||||
'---------------------------------------------------------------------
|
||||
Sub parse_conf_file ()
|
||||
|
||||
If WScript.Arguments.Count = 0 Then
|
||||
pandora_agent_base_path = AGENT_HOME_DIR
|
||||
Else
|
||||
pandora_agent_base_path = WScript.Arguments(0)
|
||||
End If
|
||||
|
||||
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
||||
|
||||
If (Not objFSO.FileExists(pandora_agent_base_path & "pandora_agent.conf" ) ) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Set objFile = objFSO.OpenTextFile(pandora_agent_base_path & "pandora_agent.conf", 1)
|
||||
|
||||
name_flag = 1
|
||||
do until objFile.AtEndOfStream
|
||||
|
||||
'"agent_name", "agent_name"
|
||||
'"parent", "parent_agent_name"
|
||||
'"group", "group"
|
||||
line = objFile.ReadLine
|
||||
If (Not "#" = Left(line, 1) ) Then
|
||||
|
||||
lc = InStr(4, line," ")
|
||||
If (lc > 0 ) Then
|
||||
field = Left(line, lc -1)
|
||||
value = Mid(line, lc +1, Len(line))
|
||||
|
||||
Select Case field
|
||||
Case "agent_name"
|
||||
If (Not value = "") Then
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[" & field & "]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & replace (value,"""", "") &"]]></value>"
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
name_flag = 0
|
||||
End If
|
||||
|
||||
Case "parent_agent_name","group"
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[" & field & "]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & replace (value,"""", "") &"]]></value>"
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
loop
|
||||
|
||||
If (name_flag = 1) Then
|
||||
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[agent_name]]></name>"
|
||||
Set cols = objWMIService.ExecQuery("SELECT caption FROM Win32_ComputerSystem")
|
||||
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
If (NOT flag) Then
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.caption & "]]></value>"
|
||||
Next
|
||||
End If
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
objFile.Close
|
||||
|
||||
If objFSO.FileExists(OUT_FILE) Then
|
||||
objFSO.DeleteFile OUT_FILE
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' FILE STARTS
|
||||
WScript.StdOut.WriteLine "<custom_fields>"
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: os_version
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[os_version]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT version from win32_operatingsystem")
|
||||
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.version & "]]></value>"
|
||||
Next
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: Domain
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[Domain]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT Domain FROM Win32_ComputerSystem")
|
||||
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.Domain & "]]></value>"
|
||||
Next
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
'--------------------------------
|
||||
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: Architecture
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[Architecture]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT osarchitecture FROM Win32_OperatingSystem")
|
||||
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
|
||||
If flag Then
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[32 bits]]></value>"
|
||||
Else
|
||||
For Each data In cols
|
||||
If ( NOT IsNull(data.osarchitecture) ) Then
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.osarchitecture & "]]></value>"
|
||||
Else
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[32 bits]]></value>"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Extract info
|
||||
'--------------------------------
|
||||
parse_conf_file
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'----------------------------------------------------
|
||||
' Custom Field: IP, IPv6 AND MAC -> XXX First found.
|
||||
'----------------------------------------------------
|
||||
Set cols = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter " & _
|
||||
"Where not PNPDeviceID like 'ROOT%%' " & _
|
||||
"and not PNPDeviceID like 'SW%%' " & _
|
||||
"and not ServiceName is null " & _
|
||||
"and not ServiceName like 'vwifimp' ")
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
|
||||
If (NOT flag) Then
|
||||
For Each iface In cols
|
||||
' return model MACAddress IPAddress
|
||||
set ifaces_cfg = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where Caption='" & iface.caption & "'")
|
||||
for each iface_cfg in ifaces_cfg
|
||||
if ( NOT IsNull(iface_cfg.IPAddress) ) then
|
||||
on error resume next
|
||||
IP = trim(iface_cfg.IPAddress(0))
|
||||
If ( err.number <> 0 ) Then
|
||||
IP = NULL
|
||||
End If
|
||||
MAC = iface.MACAddress
|
||||
If ( err.number <> 0 ) Then
|
||||
MAC = NULL
|
||||
End If
|
||||
on error goto 0
|
||||
end if
|
||||
next
|
||||
Next
|
||||
End If
|
||||
If (NOT IsNull(IP)) Then
|
||||
WScript.StdOut.WriteLine "<field>"
|
||||
WScript.StdOut.WriteLine "<name><![CDATA[IP]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & IP & "]]></value>"
|
||||
WScript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
If (NOT IsNull(MAC)) Then
|
||||
WScript.StdOut.WriteLine "<field>"
|
||||
WScript.StdOut.WriteLine "<name><![CDATA[MAC]]></name>"
|
||||
WScript.StdOut.WriteLine "<value><![CDATA[" & MAC & "]]></value>"
|
||||
WScript.StdOut.WriteLine "</field>"
|
||||
End If
|
||||
|
||||
'--------------------------------
|
||||
|
||||
|
||||
'--------------------------------
|
||||
' Custom Field: Hostname
|
||||
'--------------------------------
|
||||
Wscript.StdOut.WriteLine "<field>"
|
||||
Wscript.StdOut.WriteLine "<name><![CDATA[hostname]]></name>"
|
||||
|
||||
Set cols = objWMIService.ExecQuery("SELECT caption FROM Win32_ComputerSystem")
|
||||
|
||||
on error resume next
|
||||
flag = cols.Count
|
||||
If (err.number <> 0) Then
|
||||
flag = true
|
||||
Else
|
||||
flag = false
|
||||
End If
|
||||
on error goto 0
|
||||
|
||||
If (NOT flag) Then
|
||||
For Each data In cols
|
||||
Wscript.StdOut.WriteLine "<value><![CDATA[" & data.caption & "]]></value>"
|
||||
Next
|
||||
End If
|
||||
|
||||
Wscript.StdOut.WriteLine "</field>"
|
||||
|
||||
|
||||
'--------------------------------
|
||||
|
||||
WScript.StdOut.WriteLine "</custom_fields>"
|
||||
|
||||
' FILE ENDS
|
||||
Loading…
Reference in New Issue