Powershell Get-service / perl getstatus ?

[EC2311]

Bonjour

le script antivirus.pm ne gere que le cas des antivirus type poste (avec donc centre securité) J'essaie de l'upgrader pour vérifier que l'antivirus de serveur (mcafee, ou autre) existe, mais surtout qu'il tourne ! Pour cela j'etais parti initialement sur un get-wmiobjects type query sur win32_product : ok mais l'antivirus peut etre installé et ne pas s'executer

du coup je me suis dit de réaliser un get-service pour rechercher les services de displayname contenant mcafee par exemple

autant en Powershell c'est simple, mais en Perl... j'ai bien vu un getwmiservice (dans la bib FI), mais je ne pense pas qu'il soit ecrit pour réaliser cette commande get-service... ;)

J'essaie de ce fait d'utiliser la commande my $ret = Win32::Service::GetStatus("", $svc, %status); mais lors de l'execution du script, j'ai un beau 'subroutine &win32::Service::gestatus non definie'

Ne connaissant pas l'architecture ni trop le perl : que dois je faire ? Merci

[ddurieux]

Il faudrait arriver à trouver ou ton get-service tape sur le WMI (sur quel élément)

[EC2311]

qu'entends tu par 'get-service tape sur le WMI quel element' ?

en mode debug [debug] unexpected error in FusionInventory::Agent::Task::Inventory::Win32::AntiVirus: Undefined subroutine &Win32::Service::GetStatus called at C:\Program Files (x86)\FusionInventory-Agent/perl/agent/FusionInventory/Agent/Task/Inventory/Win32/AntiVirus.pm line 601.

le source du script

[EC2311]

Pour info, j'ai reussi à recuperer les services ainsi que les programmes.

MAIS Je ne vois pas comment "lier" service et programme : Il est possible d'avoir 2 services (voire plus) par programme... J'ai recherché sur le net, mais pour le moment pas trouvé. Cela pourrait ainsi renseigner le champs 'ENABLED' ... Si des idées...