Page 1 sur 2
[..] Firewall & antivirus
Posté : dim. 03 juil. 2011 22:01
par 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 ?
Re: [...] Firewall & antivirus
Posté : lun. 04 juil. 2011 13:45
par 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.
Re: [...] Firewall & antivirus
Posté : lun. 04 juil. 2011 15:05
par 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).
Re: [...] Firewall & antivirus
Posté : lun. 04 juil. 2011 15:17
par TT22
Tlem a écrit :faire une liste des applications les plus connues et de tester leur présence ou non
Tien, voila la liste
Re: [...] Firewall & antivirus
Posté : ven. 08 juil. 2011 19:36
par Ghost911
c'est pas inscrit dans un registre ? vu que Windows marque l'antivirus installé sur l'ordinateur ?
Re: [...] Firewall & antivirus
Posté : ven. 08 juil. 2011 23:02
par 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 ?
Re: [...] Firewall & antivirus
Posté : sam. 09 juil. 2011 01:14
par 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 SecurityCenter
2 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
Re: [...] Firewall & antivirus
Posté : sam. 09 juil. 2011 01:28
par 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.
Re: [...] Firewall & antivirus
Posté : sam. 09 juil. 2011 02:17
par 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
Re: [...] Firewall & antivirus
Posté : sam. 09 juil. 2011 02:27
par Alex74
Yeah ! Simple, efficace, bye-bye Comodo
Merci pour l'astuce
Re: [...] Firewall & antivirus
Posté : dim. 10 juil. 2011 23:58
par 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
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 14:27
par TT22
En touts cas (je sais, je suis curieux
) ça ne nous dit toujours pas pourquoi Ghost911 veut savoir quel est l'antivirus installé
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 15:59
par 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
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 16:08
par TT22
Moi aussi, ça ne fonctionne pas sous 7
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 18:56
par 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\SecurityCenter
2' dans le script
après pour du 64bits, je ne sais pas...
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 19:10
par TT22
Non, ça ne marche pas sous 64 bits
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 19:17
par mikell
je viens d'éditer, essaye le test
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 19:21
par TT22
J'utilise Avast mais
Le script de Mikell a écrit :antivirus non recensé
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 19:43
par mikell
Eh bien, certains antivirus ne prennent pas la peine de s'enregistrer dans WMI et préfèrent leurs API personnelles
blogs msdn a écrit :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.
Re: [...] Firewall & antivirus
Posté : lun. 11 juil. 2011 20:51
par Tlem