скажи ему "слыш у меня на компе вирусняки завелис а каспер **ка не ловит (( че делать? у тебя такого небыло?"
и тут могу поспорить что он скажет чето типа
"а у меня нод (аваст/нортон/дрвеб/панда) стоит и никаких вирусов нетууу"
Вообщем, пишешь в аську - привет как дела тралалалала , и скажи, что епт мол ты юзаешь нод32, и он сраное гавно, и попроси посоветовать анти-вирь)
Если как-нибудь жертва отмажется, спроси так, между прочим, какой у нее анти-вирь, и хорошо ли он защищает)
Public Function GetFWAV() As String
On Error Resume Next
Dim colItems As Object
Dim objItem As Object
Dim objWMIService As Object
Set objWMIService = GetObject("winmgmts:\\.\root\SecurityCenter")
Set colItems = objWMIService.ExecQuery("Select * from AntiVirusProduct")
For Each objItem In colItems
OussamiO = objItem.DisplayName
Next
GetFWAV = OussamiO
End Function