[Source] Obtener nombre del antivirus y firewall instalado con Visual Basic 6.0

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

[Source] Obtener nombre del antivirus y firewall instalado con Visual Basic 6.0

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: [Source] Obtener nombre del antivirus y firewall instalado con Visual Basic 6.0 (Leído 6,728 veces)

drakolive

Desconectado

Mensajes: 141

[Source] Obtener nombre del antivirus y firewall instalado con Visual Basic 6.0

« en: 5 Junio 2008, 21:35 pm »

tengo la necesidad de saber como puedo obtener el nombre del antivirus instalado, estaba pensando mirar en el registro, pero no se donde debe estar ese nombrecesito, habia pensado en tambien detectar los procesos y saber asi que antivirus usa, porque por ejemplo el kaspersky: avg.exe, y asi....

editado:
Gracias por su ayuda, esta listo.


« Última modificación: 5 Junio 2008, 23:48 pm por drakolive »	En línea

Xerok1!

Desconectado

Mensajes: 228

Re: Obtener nombre del antivirus y firewall instalado en Visual Basic 6.0

« Respuesta #1 en: 5 Junio 2008, 21:49 pm »

Código:

Private Sub Form_Load()
    Set objSecurityCenter = GetObject("winmgmts:\\.\root\SecurityCenter")
    Set colFirewall = objSecurityCenter.ExecQuery("Select * From FirewallProduct", , 48)
    Set colAntiVirus = objSecurityCenter.ExecQuery("Select * From AntiVirusProduct", , 48)
    For Each objFirewall In colFirewall
        MsgBox objFirewall.DisplayName & " v" & objFirewall.VersionNumber & " - " & objFirewall.CompanyName
    Next
    For Each objAntiVirus In colAntiVirus
        MsgBox objAntiVirus.DisplayName & " v" & objAntiVirus.VersionNumber & " - " & objAntiVirus.CompanyName
    Next
End Sub

No me acuerdo donde lo encontré :rolleyes:

pero tiene su lógica..

Un saludo


	En línea

[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]

Mad Antrax

Colaborador

Desconectado

Mensajes: 2.166

Cheats y Trainers para todos!

Re: Obtener nombre del antivirus y firewall instalado en Visual Basic 6.0

« Respuesta #2 en: 5 Junio 2008, 22:41 pm »

I love WMI Scripts :rolleyes:


	En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.

Freeze.

Desconectado

Mensajes: 2.732

Re: Obtener nombre del antivirus y firewall instalado en Visual Basic 6.0

« Respuesta #3 en: 5 Junio 2008, 22:43 pm »

Ojala yo hubiese sabido eso hace tiempito :xD


	En línea

http://pssimo.wordpress.com

seba123neo

Moderador

Desconectado

Mensajes: 3.621

Re: Obtener nombre del antivirus y firewall instalado en Visual Basic 6.0

« Respuesta #4 en: 5 Junio 2008, 22:45 pm »

si,con WMI podes sacar todo,hasta si esta contenta o enojada la pc

,yo estoy haciendo algo asi,como un everest que te tire muchos datos sobre la pc,pero nunca lo termine,son como 100 clases WMI y ni me da ganas seguir jeej

.

EDIT:aca te dejo otro codigo que obtiene lo mismo que el otro mas 3 datos mas....

Código:

Private Sub Form_Load()
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")
For Each objAntiVirusProduct In colItems
msg = msg & "companyName: " & objAntiVirusProduct.CompanyName & vbCrLf
msg = msg & "displayName: " & objAntiVirusProduct.DisplayName & vbCrLf
msg = msg & "instanceGuid: " & objAntiVirusProduct.instanceGuid & vbCrLf
msg = msg & "onAccessScanningEnabled: " & objAntiVirusProduct.onAccessScanningEnabled & vbCrLf
msg = msg & "productUptoDate: " & objAntiVirusProduct.productUptoDate & vbCrLf
msg = msg & "versionNumber: " & objAntiVirusProduct.versionNumber & vbCrLf
msg = msg & vbCrLf
Next
MsgBox msg
End Sub

saludos.


« Última modificación: 5 Junio 2008, 23:22 pm por seba123neo »	En línea

drakolive

Desconectado

Mensajes: 141

Re: Obtener nombre del antivirus y firewall instalado en Visual Basic 6.0

« Respuesta #5 en: 5 Junio 2008, 23:47 pm »

Gracias, es increible esoo


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Obtener el AV / FW instalado Programación Visual Basic	STARZ	7	3,649	28 Septiembre 2012, 03:58 am por MrSatan
	ALERTAS CONTINUAS DE MI ANTIVIRUS CON UTORRENT INSTALADO Software	ftejada	9	1,732	25 Agosto 2014, 18:11 pm por ftejada
	ocultar virus con Visual Basic para que no lo detecte firewall Programación Visual Basic	Davidsaiz	5	4,423	27 Mayo 2017, 10:44 am por Davidsaiz
	Obtener datos de balanza usando Visual basic y ethernet Programación Visual Basic	Hervin	1	3,294	14 Junio 2017, 02:46 am por PalitroqueZ
	Se filtra el nombre de los 3 supuestos antivirus hackeados Noticias	wolfbcn	0	1,095	13 Mayo 2019, 21:42 pm por wolfbcn