[..] Firewall & antivirus

[Ghost911]

bonjour j'aimerai savoir comment récupéré le nom de l'antivirus utilisé par Default sur un ordinateur & le nom du firewall utilisé possible ?

[TommyDDR]

Pourrait-on connaître le but de cette demande ?

À part pour la création d'un programme malveillant, je ne vois pas d'autre utilité

Merci.

[Tlem]

Pas forcément. Cela peut avoir d'autres applications non hostiles.

Pour répondre à Ghost911, je dirait qu'il n'y à pas de réponse à cette question. En fait chaque solution est une application à part entière, donc à moins de faire une liste des applications les plus connues et de tester leur présence ou non, on ne peut pas dire que tel antivirus ou tel autre est celui par défaut (idem pour le part-feu).

Il m'est arrivé de voir des PC équipés de plusieurs solutions simultanément (bien que cela ne soit pas recommandé).
Hé, oui, parfois on voit des gens qui ont tel antivirus installé et fonctionnel pendant un an qui ce retrouve après la période de validité avec un fabuleux message "Vous n'êtes plus protégé" et qui choisissent d'installer un autre antivirus (gratuit ou non) sans prendre le soins de désinstaller l’ancien (idem pour le part-feu).

[TT22]

faire une liste des applications les plus connues et de tester leur présence ou non

Tien, voila la liste

[Ghost911]

c'est pas inscrit dans un registre ? vu que Windows marque l'antivirus installé sur l'ordinateur ?

[Tlem]

Évidement que c'est inscrit dans la base de registre, mais entre Windows XP, Vista et Seven, la méthode sera probablement différente.
Et qu'en est-il si vous avez deux antivirus en même temps ?

[mikell]

Tiens essaye donc ça

► Afficher le texte

Code : Tout sélectionner

Dim $Obj_WMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\SecurityCenter')
If (IsObj($Obj_WMIService)) And (Not @error) Then
    Dim $Col_Items = $Obj_WMIService.ExecQuery('Select * from AntivirusProduct')
    Local $Obj_Item
    For $Obj_Item In $Col_Items
        $AVcomp = "Compagnie : " & $Obj_Item.companyName
        $AVname = "Produit : " & $Obj_Item.displayName
        $AVnbr = "Version : " & $Obj_Item.versionNumber
    Next
    Dim $Col_Items = $Obj_WMIService.ExecQuery('Select * from FirewallProduct')
    Local $Obj_Item
    For $Obj_Item In $Col_Items
        $FWcomp = "Compagnie : " & $Obj_Item.companyName
        $FWname = "Produit : " & $Obj_Item.displayName
        $FWnbr = "Version : " & $Obj_Item.versionNumber
    Next
EndIf

$text = "Produits installés" & @CRLF
$text &= "-------------------------------------------" & @CRLF
$text &= "Antivirus : " & @CRLF
$text &= $AVcomp & @CRLF & $AVname & @CRLF & $AVnbr & @CRLF & @CRLF
$text &= "Firewall : " & @CRLF
$text &= $FWcomp & @CRLF & $FWname & @CRLF & $FWnbr & @CRLF

MsgBox(0,"", $text)
 

Edit :
- fonctionne sur toutes versions de windows >= XP
- pour vista et w7 il faut mettre SecurityCenter2 et il existe une 3ème classe : AntiSpywareProduct
- pour connexion wmi avec d'autres pc d'un réseau : http://msdn.microsoft.com/en-us/library/aa389290.aspx

[Alex74]

Sympa le script
Il détecte bien mon antivirus correctement, par contre erreur sur le pare-feu. Il me détecte Comodo, qui est désinstallé depuis longtemps (mais qui a installé tellement de trucs à droite et à gauche que malgré ce que j'ai nettoyé il y en reste apparemment... )

Pour info, sous XP Home sp3.

[mikell]

Ben oui, ces softs laissent des crasses derrière eux, faut faire le ménage...
Si tu veux le faire classe avec ton xp sp3 :

► Afficher le texte

Démarrer => Exécuter => wbemtest => OK
Fenêtre "Testeur WMI", => Connexion
Dans l'input, mettre : root\SecurityCenter => Connexion
Groupe "WbemServices" => bouton Requête...
Fenêtre "Requête", mettre : Select * from FirewallProduct => Appliquer
Fenêtre "Résultat", double-clique sur l'instanceGuid affiché
Fenêtre "Editeur..." : vérifie dans les propriétés que c'est bien l'entrée à virer (Comodo...)
Si ok, ferme et reviens sur l'instanceGuid => Supprimer
Ferme tout et reboote

[Alex74]

Yeah ! Simple, efficace, bye-bye Comodo
Merci pour l'astuce

[mikell]

Ouais bon j'aurais pu te faire le script correspondant...

► Afficher le texte

Code : Tout sélectionner

Dim $Obj_WMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\SecurityCenter")
Dim $Obj_Instances = $Obj_WMIService.InstancesOf("FirewallProduct",48)

Local $Obj_Item
For $Obj_Item In $Obj_Instances
    $text =  $Obj_Item.getObjectText_
    If StringInStr($text, "COMODO") Then 
           $Obj_WMIService.Delete $Obj_Item
           MsgBox(0,"", "COMODO viré")
           Exitloop
    EndIf
Next
 

[TT22]

En touts cas (je sais, je suis curieux ) ça ne nous dit toujours pas pourquoi Ghost911 veut savoir quel est l'antivirus installé

[Ghost911]

j'ai une erreur je doit faire comment pour que sa marche sur Windows 7 ?

Nouveau AutoIt v3 Script (2).au3 (7) : ==> The requested action with this object has failed.:
$AVcomp = "Compagnie : " & $Obj_Item.companyName
$AVcomp = "Compagnie : " & $Obj_Item.companyName^ ERROR
->15:57:25 AutoIT3.exe ended.rc:1

[TT22]

Moi aussi, ça ne fonctionne pas sous 7

[mikell]

► Afficher le texte

Code : Tout sélectionner

Dim $Obj_WMIService = ObjGet('winmgmts:\\' & "localhost" & '\root\SecurityCenter')
If (IsObj($Obj_WMIService)) And (Not @error) Then
    Dim $Col_Items = $Obj_WMIService.ExecQuery('Select * from AntivirusProduct')
    If $Col_Items.Count = 0 Then
    MsgBox(0,"", "antivirus non recensé")
    Else
    MsgBox(0,"", "antivirus présent")
    EndIf
Else
    MsgBox(0,"", "problème avec WMI")
EndIf
 

teste ça, si ça marche pas essaye en mettant '\root\SecurityCenter2' dans le script
après pour du 64bits, je ne sais pas...

[TT22]

Non, ça ne marche pas sous 64 bits

[mikell]

je viens d'éditer, essaye le test

[TT22]

J'utilise Avast mais

antivirus non recensé

[mikell]

Eh bien, certains antivirus ne prennent pas la peine de s'enregistrer dans WMI et préfèrent leurs API personnelles

We no longer support writing directly to the root\securitycenter WMI namespace, and instead vendors must use our API. This API is not published and is only made available for those vendors that meet the criteria.

[Tlem]

On en revient donc à : http://www.autoitscript.fr/forum/viewto ... 035#p51035