Sicherheitsstatus überprüfen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Sicherheitsstatus überprüfen

    Sehr geehrte Damen und Herren

    ist es möglich den Antivirusstaus und den Firewall Status eines Computers zu ermitteln. Und welcher Antivirus installiert ist. Wenn ja wie ?

    Mit freundlichen Grüssen Alecsoft

    unter xp und vb6 ging das so:

    VB.NET-Quellcode

    1. Public Function GetFWAV() As String 'Taken from Shark source
    2. On Error Resume Next
    3. Dim colItems As Object
    4. Dim objItem As Object
    5. Dim objWMIService As Object
    6. Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\SecurityCenter")
    8. Set colItems = objWMIService.ExecQuery("Select * from FirewallProduct")
    10. Dim tmp As String, endt As String
    11. tmp = "0"
    12. For Each objItem In colItems
    13. tmp = objItem.CompanyName & " / " & _
    14. objItem.DisplayName & " / " & _
    15. objItem.VersionNumber & " / " & _
    16. objItem.ProductUptoDate & " / " & _
    17. objItem.OnAccessScanningEnabled
    18. Next
    19. endt = tmp
    20. tmp = "0"
    21. Set colItems = objWMIService.ExecQuery("Select * from AntiVirusProduct")
    23. For Each objItem In colItems
    24. tmp = objItem.CompanyName & " / " & _
    25. objItem.DisplayName & " / " & _
    26. objItem.VersionNumber & " / " & _
    27. objItem.ProductUptoDate & " / " & _
    28. objItem.OnAccessScanningEnabled
    29. Next
    30. GetFWAV = endt & "|" & tmp
    31. End Function
    34. Private Sub Form_Load()
    35. Dim FWAV As String
    36. FWAV = GetFWAV
    37. MsgBox Split(FWAV, "|")(0)
    38. MsgBox Split(FWAV, "|")(1)
    39. End Sub


    die root\SecurityCenter wmi Namespace scheint es aber unter win7 nicht mehr zu geben
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Das Beispiel zeigt bei mir unter XP und auch unter Win7 jeweils beides mal "0" an. OK. Bei XP gibt es nur die Windows Firewall und kein Antivirus (ist der XP-Mode von Win7), die Windows FW sollte aber doch angezeigt werden? Ein Fehler tritt bei beiden OS nicht auf. ("On error resume next" auskommentiert)
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende