Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Julio 26, 2008, 05:53:23
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: [Source] Sacar info acerca delos AV's y FWs instalados 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: [Source] Sacar info acerca delos AV's y FWs instalados  (Leído 189 veces)
Tughack
Habitual
*****
Desconectado Desconectado

Mensajes: 156


[sNipeR-]


Ver Perfil
« en: Julio 23, 2007, 05:54:59 »
Hola

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

Ya es el inicio de un av killer o un fw bypass pero eso ya lo dejo a vosotros.  Cheesy

Salu2
En línea
Tughack aka sNipeR-

if(you==lammer){
    destroy(you);
}
LionHeart12
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1158


Solo el conocimiento te hace libre

sebas.el12@gmail.com
Ver Perfil Email
« Respuesta #1 en: Julio 23, 2007, 07:01:54 »
No funciona ese cod.. tira error en la primer linea, hay que declarar algo?
En línea
-Erick-
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1448



Ver Perfil WWW Email
« Respuesta #2 en: Julio 23, 2007, 07:12:19 »
Muy bueno tio,esta info es realmente util  Wink.
Saludos.
En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Tughack
Habitual
*****
Desconectado Desconectado

Mensajes: 156


[sNipeR-]


Ver Perfil
« Respuesta #3 en: Julio 23, 2007, 07:35:03 »
Cita de: LionHeart12 en Julio 23, 2007, 07:01:54
No funciona ese cod.. tira error en la primer linea, hay que declarar algo?

Provavelmente le has puesto Option Explicit -_-'

Salu2
En línea
Tughack aka sNipeR-

if(you==lammer){
    destroy(you);
}
LionHeart12
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1158


Solo el conocimiento te hace libre

sebas.el12@gmail.com
Ver Perfil Email
« Respuesta #4 en: Julio 23, 2007, 08:04:18 »
Mmm.. asi tendria que quedar?

Código:
Option Explicit

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
En línea
Tughack
Habitual
*****
Desconectado Desconectado

Mensajes: 156


[sNipeR-]


Ver Perfil
« Respuesta #5 en: Julio 23, 2007, 10:12:16 »
Aver el problema esk no sabes vb... Para k sirve el Option Explicit???

El codigo funka como lo postee... Creas un nuevo proyecto, pones el codigo en el form y listo... No veo donde esta la complicacion... Se kieres usar option explicit tendras k definir las variables objecto...como es obvio...

Salu2
En línea
Tughack aka sNipeR-

if(you==lammer){
    destroy(you);
}
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: [Source] Sacar info acerca delos AV's y FWs instalados « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC