Anti Virtual Using WMI

Main

Option Strict Off

Public Class Form1

Dim osInfo As New FindOSInfo

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If osInfo.Manufacturer = “VMware, Inc.” Or osInfo.Model = “VMware Virtual Platform” Then

MessageBox.Show(“U are Using Vmware”)

Me.Close()

ElseIf osInfo.Manufacturer = “innotek GmbH” Or osInfo.Model = “VirtualBox” Then

MessageBox.Show(“U are using VirtualBox”)

Me.Close()

End If

End Sub

End Class