Vb.net get windows defender status

Question

0.00/5 (No votes)

See more:

Guys, I need to get the status of windows defender, but I don't know how to do this with vb.net, can you help me with this?
I'm using this code, but it's not quite how I want it.

What I have tried:

Dim av_searcher As New ManagementObjectSearcher("root\SecurityCenter2", "SELECT * FROM AntivirusProduct")

       For Each info As ManagementObject In av_searcher.Get()
           MsgBox(info.Properties("displayName").Value.ToString())

           Dim AvStatus = Hex(info.Properties("ProductState").Value.ToString())
           If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11" Then
               MsgBox("AntiVirus enabled")
           ElseIf Mid(AvStatus, 2, 2) = "00" Or Mid(AvStatus, 2, 2) = "01" Then
               MsgBox("AntiVirus disabled")
           End If

       Next info

Posted 12-Mar-20 10:45am

RafaelFranckilin

Updated 12-Mar-20 10:58am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dave Kreskowiak · Answer 1 · 2020-03-12T10:58:00

Solution 1

Your problem is here:

VB.NET

Dim AvStatus = Hex(info.Properties("ProductState").Value.ToString())

You're converting the ProductState value to a string, which will be a decimal number string, not a decimal NUMBER, which is what the Hex function wants.

You're nesting method calls together, making it more difficult to debug the code. Break the line out into individual statements so you can see what you're really dealing with in the debugger.

VB.NET

Dim productStateValue As Integer = DirectCast(info.Properties("ProductState").Value, Integer)
Dim productState As String = Hex(productStateValue)

My VB is quite rusty, so this may not work as written, but you get the idea.

Posted 12-Mar-20 10:58am

Dave Kreskowiak

Updated 13-Mar-20 2:38am

v2

Comments

Maciej Los 13-Mar-20 7:28am

5ed!

RafaelFranckilin 13-Mar-20 7:41am

I would like to get only the status of windows defender, my current code takes the status of any installed antivirus.

phil.o 13-Mar-20 7:51am

You could use a WHERE clause to further filter the results:

Dim av_searcher As New ManagementObjectSearcher("root\SecurityCenter2", "SELECT * FROM AntivirusProduct WHERE displayName=""Windows Defender""")

RafaelFranckilin 13-Mar-20 8:33am

It solved my problem, thank you very much.

phil.o 13-Mar-20 9:48am

You're welcome.

Richard Deeming 13-Mar-20 7:49am

One small correction - Cast should be either DirectCast or CType.

There's also a TryCast operator, but that only works with reference types.

Dave Kreskowiak 13-Mar-20 8:38am

Fixed. The VB.NET is really rusty.