Re: Script to search for Antivirus loading locally on a PC..

Il giorno Fri, 15 Sep 2006 11:13:02 -0700, =?Utf-8?B?a2Fyc29u?=
<karson@xxxxxxxxxxxxxxxxxxxxxxxxx> ha scritto:
I'm reachin here, but I thought I would ask anyways. Does anyone know of a
script that can search a PC and report if any Antivirus programs have been
installed? If they need to search for each and every antivirus product that
exists fi soemone can point me in the right direction to searching for one I
can do the rest.. TIA for any help..

I check if the antivirus is currently running on the pc's of my office searching in the
acrive tasks with the dos NET START command..


SvcName(1)= "McAfee Framework Service"
SvcName(2)= "Network Associates McShield"
SvcName(3)= "Network Associates Task Manager"

' Elenca in un file i windows services attivi
WSHShell.Run "%comspec% /c net start >c:\dati\Services.tmp", 0, True
' E controlla che ci siano i tre servizi di antivirus che cerco
for i=1 to 3 'Scrive se i servizi sono attivi
if len(FindInFileR ( "c:\dati\Services.tmp", SvcName(i) ))>0 then svc(i)=true
next

Function FindInFileR( sFileName, stringa )
const ForReading=1
Dim fso, fp, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.OpenTextFile( sFileName, ForReading, False)
FindInFileR = ""
Do While fp.AtEndOfStream <> True
strdata = fp.ReadLine
if instr(strdata, stringa) then
FindInFileR = strdata
'fp.Close
'exit function
End If
Loop
fp.Close
End Function


Then I found it was simpler to check active tasks with WMI.

Giovanni.

--
Giovanni Cenati (Aosta, Italy)
Write to user "Reventlov" and domain at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--
.

Relevant Pages

  • Re: Cant receive mail
    ... Problems in Windows Mail caused by antivirus programs are often slow ... A recent version of the Trend antivirus program tends to cause assorted ...
    (microsoft.public.windows.vista.mail)
  • Re: Rogue Spyware Programs
    ... Can anyone help me figure out which of by antivirus programs are ok ... I have downloaded the following programs to my comp ... AVast anti-virus is a good product if kept properly updated. ...
    (microsoft.public.windowsxp.security_admin)
  • [NT] AntiVirus Filename Bypassing
    ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... Several AntiVirus programs do not scan filesnames that contain ... Several AntiVirus programs do not scan files that contain extended ASCII ... Alt + "some numbers" generate specials ASCII characters. ...
    (Securiteam)
  • Hhelpp!! File not available after MSOffice & Windows XP SP2 Update
    ... Office 2003 and reinstalled MSOffice XP SP3, ... I updated my Symantec Antivirus definitions, and when that didn't work, used ... MSConfig to disable all antivirus programs, then rebooted, but the problem ... it, and then try to open it immediately, I get the same error message. ...
    (microsoft.public.office.misc)