Comment détecter les applications Anti-Spyware installées sur XP en utilisant WMI

Question

J'ai besoin d'informations sur les logiciels espions installés sur une machine client en utilisant WMI? Est-ce possible?

Answer 1

J'ai trouvé cet exemple de code sur un site danois Udvikleren.dk, j'espère que c'est utile pour vous. Peut également être utilisé pour trouver un anti-virus en remplaçant "AntiSpywareProduct" par "AntiVirusProduct".

uses Windows, WbemScripting_TLB, ActiveX, ComObj; 

var 
Locator:ISWbemLocator; 
Services:ISWbemServices; 
ResultSet:ISWbemObjectSet; 
Enum :IEnumVariant; 
Item :OleVariant; 
Value:LongWord; 
begin 
CoInitializeEx(nil, 0); 

CoInitializeSecurity(nil, -1, nil, nil, 0, 3, nil, 0, 0); 

Locator:=CoSWbemLocator.Create as ISWbemLocator; 
Services:=Locator.ConnectServer('.', 'root\SecurityCenter', '', '', '', '', 0, nil); 
ResultSet:=Services.ExecQuery('SELECT * FROM AntiSpywareProduct', 'WQL', wbemFlagReturnImmediately or wbemFlagBidirectional,nil); 
Enum:=ResultSet._NewEnum as IEnumVariant; 

enum.Reset; 

while Enum.Next(1,item,value) = S_OK do 
    writeln(Item.displayName, '. Enabled: ',Item.productEnabled); 
end;