Mostrando informações do Antivirus

[CzarSuvorov]

Um script simples pra mostrar informações sobre o antivirus =)

Private Sub Form_Load()
Dim oWMI As Object
Dim colItems As Object
Dim objAntiVirusProduct As Object

Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")
For Each objAntiVirusProduct In colItems

company.Text = objAntiVirusProduct.CompanyName
antivirus.Text = objAntiVirusProduct.DisplayName & " " & objAntiVirusProduct.versionNumber '& vbCrLf
Next

End Sub

Demonstração

[Azurus]

Vlw Capiroto, muito massa, nem sabia que dava pra fazer isso em VB, vo tenta converte pra delphi agora. Sem conta que pelo que eu vi funfa pra todos os avs, ótimo

[Milorde]

Muito bom caipiroto

Pena que não codo em VB

[ReeN]

tpo.. muito bom saber qe da para fazr isso. mas precisa colocar dizr qe vce colocou alguns objetos né?
como as textbox e falar qe renomeou para company e antivirus
asho qe aqueles qe nao tem mjuito conhecimento nao saberiam disso se nao diser.

muito obrigado HUAhuhuA vlww ²
adorei

[CzarSuvorov]

tpo.. muito bom saber qe da para fazr isso. mas precisa colocar dizr qe vce colocou alguns objetos né?
como as textbox e falar qe renomeou para company e antivirus
asho qe aqueles qe nao tem mjuito conhecimento nao saberiam disso se nao diser.

muito obrigado HUAhuhuA vlww ²
adorei

Tá bem simples acho q até quem não programa entende, não tem mistério nesse script. é oq vc disse se achar melhor deixa o padrão Text1 e Text2 e troca na source Oo'.. .abçs

[=[ DiLLuViUM ]=]

ei mano vc coloco so as duas textbox?
quando executo aki nao aparece nada
to usando o vb 2008

[andersonkislla]

Cara estou usando o Vb 6

eu fiz assim e está dando erro confira a source:

Private Sub Form_Load()
Dim oWMI As Object
Dim colItems As Object
Dim objAntiVirusProduct As Object

Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")
For Each objAntiVirusProduct In colItems

Text1.Text = objAntiVirusProduct.CompanyName
Text2.Text = objAntiVirusProduct.DisplayName & " " & objAntiVirusProduct.versionNumber '& vbCrLf
Next
End Sub