Reply to thread

Message

<blockquote data-quote="Herry Markowitz" data-source="post: 171315" data-attributes="member: 51556">Hi beautiful people,Following Console Application code checks if any antivirus program installed or not in your computer. [CODE]Imports System.ManagementNamespace ConsoleApplication1&nbsp; &nbsp; Class Program&nbsp; &nbsp; &nbsp; &nbsp; Public Shared Function AntivirusInstalled() As Boolean&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim wmipathstr As String = &quot;\\&quot; + Environment.MachineName + &quot;\root\SecurityCenter2&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim searcher As New ManagementObjectSearcher(wmipathstr, &quot;SELECT * FROM AntivirusProduct&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim instances As ManagementObjectCollection = searcher.[Get]()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return instances.Count &gt; 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Catch e As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(e.Message)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return False&nbsp; &nbsp; &nbsp; &nbsp; End Function&nbsp; &nbsp; &nbsp; &nbsp; Public Shared Sub Main(args As String())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim returnCode As Boolean = AntivirusInstalled()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine(&quot;Antivirus Installed &quot; + returnCode.ToString())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.WriteLine()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Console.Read()&nbsp; &nbsp; &nbsp; &nbsp; End Sub&nbsp; &nbsp; End ClassEnd Namespace[/CODE]How to convert above code to Windows Form Application Code?Thanks in advance...</blockquote>

[QUOTE="Herry Markowitz, post: 171315, member: 51556"] Hi beautiful people, Following Console Application code checks if any antivirus program installed or not in your computer. [CODE]Imports System.Management Namespace ConsoleApplication1 Class Program Public Shared Function AntivirusInstalled() As Boolean Dim wmipathstr As String = "\\" + Environment.MachineName + "\root\SecurityCenter2" Try Dim searcher As New ManagementObjectSearcher(wmipathstr, "SELECT * FROM AntivirusProduct") Dim instances As ManagementObjectCollection = searcher.[Get]() Return instances.Count > 0 Catch e As Exception Console.WriteLine(e.Message) End Try Return False End Function Public Shared Sub Main(args As String()) Dim returnCode As Boolean = AntivirusInstalled() Console.WriteLine("Antivirus Installed " + returnCode.ToString()) Console.WriteLine() Console.Read() End Sub End Class End Namespace[/CODE] How to convert above code to Windows Form Application Code? Thanks in advance... [/QUOTE]

Verification