[VB.NET] Anti - Virtual Machine

Bueno Estoy Codeando una serie de class de Monitoramiento Async . entre ellas ya termine mi ANTI - VM.
asi que la comparto con ustedes :



Como usar :
       -Agregar 1 timer  , Enabled = True , Interval = 1

         Pegar el siguiente Codigo :

     

Dim VMDetection As Boolean = ProtectVM.IsVirtualMachinePresent
        Dim VMDescription As String = ProtectVM.DescriptcionVM

        If VMDetection = True Then
            Msgbox("Detect : " & VMDescription)
            Timer1.Enabled = False
        End If

Class - AntiVM

No tienes permitido ver enlaces. Registrate o Entra a tu cuenta

HOLA!!!

buen aporte, copio el contenido del archivo subido para preservar el codigo en caso de baja del mismo.

[code=vbnet]Imports System.Runtime.InteropServices

' ***********************************************************************
' Author           : **Aincrad**
' Last Modified On : 09-05-2019
' ***********************************************************************
' <copyright file="AntiVM.vb" company="S4Lsalsoft">
'     Copyright (c) S4Lsalsoft. All rights reserved.
' </copyright>
' ***

Public Class AntiVM

#Region " Declarations "

    Shared DetectVM As Boolean = False
    Shared DesCriptVM As String = String.Empty

#End Region

#Region "Propiertes"

    Public Function IsVirtualMachinePresent() As Boolean
        Return DetectVM
    End Function

    Public Function DescriptcionVM() As String
        Return DesCriptVM
    End Function

#End Region

#Region " Public Methods  "

    Public Sub VM_Start()

        Dim ScanAsyncEngine As New Task(StarScan, TaskCreationOptions.LongRunning)

        ScanAsyncEngine.Start()

    End Sub

    Dim StarScan As New Action(
Sub()
     StartProcessScan()
End Sub)

    Private Sub StartProcessScan()

        If LoadLibrary("SbieDll.dll") = True Then
            DesCriptVM = "Sandboxie Detected"
            DetectVM = True
        End If

        If Not AntiVM() = "False" Then
            DesCriptVM = AntiVM()
            DetectVM = True
        End If

    End Sub

#End Region

#Region "Funcs"

    Private Function AntiVM() As String
        Dim oItem
        With GetObject("winmgmts:\\.\root\cimv2")
            For Each oItem In .ExecQuery("Select * from Win32_ComputerSystem")
                Debug.Print(oItem.Model, CBool(InStr(1, oItem.Model, "Virtual", vbTextCompare)))
                If CBool(InStr(1, oItem.Model, "Virtual", vbTextCompare)) = True Then
                    Return "Win32_ComputerSystem"
                End If

            Next

            For Each oItem In .ExecQuery("Select * from Win32_VideoController")
                If CBool(InStr(1, oItem.Caption, "VMWare", vbTextCompare)) = True Then
                    Return "Win32_VideoController"
                End If
            Next

            For Each Nic In .ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")

                If Not IsDBNull(Nic.MACAddress) And Not IsDBNull(Nic.Description) Then
                    Dim MacAddress = LCase(CStr(Nic.MACAddress))
                    Dim Description = LCase(CStr(Nic.Description))
                    If InStr(1, MacAddress, "08:00:27:") = 1 And InStr(1, Description, "virtualbox") = 0 Then
                        Return "NetworkAdapterConfiguration"
                    End If
                End If

            Next


            For Each SysDrv In .ExecQuery("SELECT * FROM Win32_SystemDriver")
                Dim DescSysDrv = SysDrv.Description
                Dim DispSysDrv = SysDrv.DisplayName
                Dim NameSysDrv = No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                Dim PathSysDrv = SysDrv.PathName
                If Not IsDBNull(DescSysDrv) Then
                    If DescSysDrv = "VirtualBox Guest Driver" Or DescSysDrv = "VirtualBox Guest Mouse Service" Or DescSysDrv = "VirtualBox Shared Folders" Or DescSysDrv = "VBoxVideo" Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.Description ==> " & DescSysDrv
                    End If
                End If

                If Not IsDBNull(DispSysDrv) Then
                    If DispSysDrv = "VirtualBox Guest Driver" Or DispSysDrv = "VirtualBox Guest Mouse Service" Or DispSysDrv = "VirtualBox Shared Folders" Or DispSysDrv = "VBoxVideo" Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.DisplayName ==> " & DispSysDrv
                    End If
                End If

                If Not IsDBNull(NameSysDrv) Then
                    If NameSysDrv = "VBoxGuest" Or NameSysDrv = "VBoxMouse" Or NameSysDrv = "VBoxSF" Or NameSysDrv = "VBoxVideo" Then
                        'test
                        Return "Win32_SystemDriver ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & NameSysDrv
                    End If
                End If

                If Not IsDBNull(PathSysDrv) Then
                    Dim PathSysDrv_l = LCase(PathSysDrv)
                    If InStr(1, PathSysDrv_l, "vboxguest.sys") > 0 Or InStr(1, PathSysDrv_l, "vboxmouse.sys") > 0 Or InStr(1, PathSysDrv_l, "vboxsf.sys") > 0 Or InStr(1, PathSysDrv_l, "vboxvideo.sys") > 0 Then
                        'test
                        Return "Win32_SystemDriver ==> SysDrv.PathName ==> " & PathSysDrv
                    End If
                End If
            Next

            For Each EvtLogX In .ExecQuery("SELECT * FROM Win32_NTEventlogFile")
                If Not IsDBNull(EvtLogX) Then
                    Dim FileNameEvtX = CStr(EvtLogX.FileName)
                    Dim FileNameEvtX_l = LCase(FileNameEvtX)
                    If FileNameEvtX_l = "sysevent" Or FileNameEvtX_l = "system" Then
                        Dim SourcesEvtX = EvtLogX.Sources
                        For Each SourceEvtX In SourcesEvtX
                            Dim SourceEvtX_l = LCase(CStr(SourceEvtX))
                            If SourceEvtX_l = "vboxvideo" Then
                                'test
                                Return "Win32_NTEventlogFile ==> EvtLogX.Sources ==> " & SourceEvtX
                            End If
                        Next
                    End If
                End If
            Next


            For Each Bios In .ExecQuery("SELECT * FROM Win32_BIOS")
                If Not IsDBNull(Bios) Then
                    If Not IsDBNull(Bios.Manufacturer) Then
                        Dim ManufacturerBios = LCase(CStr(Bios.Manufacturer))
                        If InStr(1, ManufacturerBios, "innotek gmbh") > 0 Then
                            'test
                            Return "Win32_BIOS ==> Bios.Manufacturer ==> " & Bios.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(Bios.SMBIOSBIOSVersion) Then
                        Dim SMBIOSBIOSVersionBios = LCase(CStr(Bios.SMBIOSBIOSVersion))
                        If InStr(1, SMBIOSBIOSVersionBios, "virtualbox") > 0 Then

                            Return "Win32_BIOS ==> Bios.SMBIOSBIOSVersion ==> " & Bios.SMBIOSBIOSVersion
                        End If
                    End If
                    If Not IsDBNull(Bios.Version) Then
                        Dim VersionBios = LCase(CStr(Bios.Version))
                        If InStr(1, VersionBios, "vbox   - 1") > 0 Then
                            'test
                            Return "Win32_BIOS ==> Bios.Version ==> " & Bios.Version
                        End If
                    End If
                End If
            Next

            For Each DiskDrive In .ExecQuery("SELECT * FROM Win32_DiskDrive")
                If Not IsDBNull(DiskDrive) Then
                    If Not IsDBNull(DiskDrive.Model) Then
                        Dim ModelDskDrv = LCase(DiskDrive.Model)
                        If ModelDskDrv = "vbox harddisk" Then
                            'test
                            Return "Win32_DiskDrive ==> DiskDrive.Model ==> " & DiskDrive.Model
                        End If
                    End If
                    If Not IsDBNull(DiskDrive.PNPDeviceID) Then
                        Dim PNPDeviceIDDskDrv = LCase(DiskDrive.PNPDeviceID)
                        If InStr(1, PNPDeviceIDDskDrv, "diskvbox") > 0 Then
                            'test
                            Return "Win32_DiskDrive ==> DiskDrive.PNPDeviceID ==> " & DiskDrive.PNPDeviceID
                        End If
                    End If
                End If
            Next

            For Each Startup In .ExecQuery("SELECT * FROM Win32_StartupCommand")
                If Not IsDBNull(Startup) Then
                    If Not IsDBNull(Startup.Caption) Then
                        Dim CaptionStartup = LCase(CStr(Startup.Caption))
                        If CaptionStartup = "vboxtray" Then
                            'test
                            Return "Win32_StartupCommand ==> Startup.Caption ==> " & Startup.Caption
                        End If
                    End If
                    If Not IsDBNull(Startup.Command) Then
                        Dim CommandStartup = LCase(CStr(Startup.Command))
                        If InStr(1, CommandStartup, "vboxtray.exe") > 0 Then
                            'test
                            Return "Win32_StartupCommand ==> Startup.Command ==> " & Startup.Command
                        End If
                    End If
                    If Not IsDBNull(Startup.Description) Then
                        Dim DescStartup = LCase(CStr(Startup.Description))
                        If DescStartup = "vboxtray" Then

                            Return "Win32_StartupCommand ==> Startup.Description ==> " & Startup.Description
                        End If
                    End If
                End If
            Next

            For Each ComputerSystem In .ExecQuery("SELECT * FROM Win32_ComputerSystem")
                If Not IsDBNull(ComputerSystem) Then
                    If Not IsDBNull(ComputerSystem.Manufacturer) Then
                        Dim ManufacturerComputerSystem = LCase(CStr(ComputerSystem.Manufacturer))
                        If ManufacturerComputerSystem = "innotek gmbh" Then
                            'test
                            Return "Win32_ComputerSystem ==> ComputerSystem.Manufacturer ==> " & ComputerSystem.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(ComputerSystem.Model) Then
                        Dim ModelComputerSystem = LCase(CStr(ComputerSystem.Model))
                        If ModelComputerSystem = "virtualbox" Then

                            Return "Win32_ComputerSystem ==> ComputerSystem.Model ==> " & ComputerSystem.Model
                        End If
                    End If
                    If Not IsDBNull(ComputerSystem.OEMStringArray) Then
                        Dim OEMStringArrayComputerSystem = ComputerSystem.OEMStringArray
                        For Each OEM In OEMStringArrayComputerSystem
                            Dim OEM_l = LCase(OEM)
                            If InStr(1, OEM_l, "vboxver_") > 0 Or InStr(1, OEM_l, "vboxrev_") > 0 Then
                                'test
                                Return "Win32_ComputerSystem ==> ComputerSystem.OEMStringArray ==> " & OEM
                            End If
                        Next
                    End If
                End If
            Next


            For Each Service In .ExecQuery("SELECT * FROM Win32_Service")
                If Not IsDBNull(Service) Then
                    If Not IsDBNull(Service.Caption) Then
                        Dim CaptionService = LCase(CStr(Service.Caption))
                        If CaptionService = "virtualbox guest additions service" Then
                            'test
                            Return "Win32_Service ==> Service.Caption ==> " & Service.Caption
                        End If
                    End If
                    If Not IsDBNull(Service.DisplayName) Then
                        Dim DisplayNameService = LCase(CStr(Service.DisplayName))
                        If DisplayNameService = "virtualbox guest additions service" Then
                            'test
                            Return "Win32_Service ==> Service.DisplayName ==> " & Service.DisplayName
                        End If
                    End If
                    If Not IsDBNull(Service.Name) Then
                        Dim NameService = LCase(CStr(Service.Name))
                        If NameService = "vboxservice" Then
                            'test
                            Return "Win32_Service ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                    If Not IsDBNull(Service.PathName) Then
                        Dim PathNameService = LCase(CStr(Service.PathName))
                        If InStr(1, PathNameService, "vboxservice.exe") > 0 Then
                            'test
                            Return "Win32_Service ==> Service.PathName ==> " & Service.PathName
                        End If
                    End If
                End If
            Next


            For Each LogicalDisk In .ExecQuery("SELECT * FROM Win32_LogicalDisk")
                If Not IsDBNull(LogicalDisk) Then
                    If Not IsDBNull(LogicalDisk.DriveType) Then
                        If LogicalDisk.DriveType = 3 Then
                            If Not IsDBNull(LogicalDisk.VolumeSerialNumber) Then
                                Dim VolumeSerialNumberLogicalDisk = LCase(LogicalDisk.VolumeSerialNumber)
                                If VolumeSerialNumberLogicalDisk = "fceae0a3" Then
                                    'test
                                    Return "Win32_LogicalDisk ==> LogicalDisk.VolumeSerialNumber ==> " & LogicalDisk.VolumeSerialNumber
                                End If
                            End If
                        ElseIf LogicalDisk.DriveType = 5 Then
                            If Not IsDBNull(LogicalDisk.VolumeName) Then
                                Dim VolumeNameLogicalDisk = LCase(LogicalDisk.VolumeName)
                                'Volume name should be "VBOXADDITIONS_4."
                                If InStr(1, VolumeNameLogicalDisk, "vboxadditions") > 0 Then

                                    Return "Win32_LogicalDisk ==> LogicalDisk.VolumeName ==> " & LogicalDisk.VolumeName
                                End If
                            End If
                        End If
                    End If
                End If
            Next

            '//////////////////////////////////////////////////////////////////////////


            For Each LocalProgramGroup In .ExecQuery("SELECT * FROM Win32_LogicalProgramGroup")
                If Not IsDBNull(LocalProgramGroup) Then
                    Dim NameLocalProgramGroup = LCase(LocalProgramGroup.Name)
                    If InStr(1, NameLocalProgramGroup, "oracle vm virtualbox guest additions") > 0 Then
                        'test
                        Return "Win32_LogicalProgramGroup ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                    End If
                End If
            Next



            'Win32_NetworkAdapter aka NIC
            For Each NIC_x In .ExecQuery("SELECT * FROM Win32_NetworkAdapter")
                If Not IsDBNull(NIC_x.MACAddress) And Not IsDBNull(NIC_x.Description) Then
                    Dim MacAddress_x = LCase(CStr(NIC_x.MACAddress))
                    Dim Description_x = LCase(CStr(NIC_x.Description))
                    'We want to detect the VirtualBox guest, not the host
                    If InStr(1, MacAddress_x, "08:00:27:") = 1 And InStr(1, Description_x, "virtualbox") = 0 Then
                        'test
                        Return "Wow: Win32_NetworkAdapter ==> NIC.MacAddress: " & NIC_x.MACAddress
                    End If
                End If
            Next


            'Win32_Process aka process
            For Each Process In .ExecQuery("SELECT * FROM Win32_Process")
                If Not IsDBNull(Process) Then
                    If Not IsDBNull(Process.Description) Then
                        Dim DescProcess = LCase(Process.Description)
                        If DescProcess = "vboxservice.exe" Or DescProcess = "vboxtray.exe" Then
                            'test
                            Return "Win32_Process ==> Process.Description ==> " & Process.Description
                        End If
                    End If
                    If Not IsDBNull(Process.Name) Then
                        Dim NameProcess = LCase(Process.Name)
                        If NameProcess = "vboxservice.exe" Or NameProcess = "vboxtray.exe" Then
                            ''test "Win32_Process ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                            Return True
                        End If
                    End If
                    If Not IsDBNull(Process.CommandLine) Then
                        Dim CmdProcess = LCase(Process.CommandLine)
                        If InStr(1, CmdProcess, "vboxservice.exe") > 0 Or InStr(1, CmdProcess, "vboxtray.exe") > 0 Then
                            'test
                            Return "Win32_Service ==> Process.CommandLine ==> " & Process.CommandLine
                        End If
                    End If
                    If Not IsDBNull(Process.ExecutablePath) Then
                        Dim ExePathProcess = LCase(Process.ExecutablePath)
                        If InStr(1, ExePathProcess, "vboxservice.exe") > 0 Or InStr(1, ExePathProcess, "vboxtray.exe") > 0 Then
                            ''test
                            Return "Win32_Service ==> Process.ExecutablePath ==> " & Process.ExecutablePath
                        End If
                    End If
                End If
            Next

            'Win32_BaseBoard aka BaseBoard

            For Each BaseBoard In .ExecQuery("SELECT * FROM Win32_BaseBoard")
                If Not IsDBNull(BaseBoard) Then
                    If Not IsDBNull(BaseBoard.Manufacturer) Then
                        Dim ManufacturerBaseBoard = LCase(BaseBoard.Manufacturer)
                        If ManufacturerBaseBoard = "oracle corporation" Then
                            ''test
                            Return "Win32_BaseBoard ==> BaseBoard.Manufacturer ==> " & BaseBoard.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(BaseBoard.Product) Then
                        Dim ProductBaseBoard = LCase(BaseBoard.Product)
                        If ProductBaseBoard = "virtualbox" Then
                            ''test
                            Return "Win32_BaseBoard ==> BaseBoard.Product ==> " & BaseBoard.Product
                        End If
                    End If
                End If
            Next

            'Win32_SystemEnclosure aka SystemEnclosure

            For Each SystemEnclosure In .ExecQuery("SELECT * FROM Win32_SystemEnclosure")
                If Not IsDBNull(SystemEnclosure) Then
                    If Not IsDBNull(SystemEnclosure.Manufacturer) Then
                        Dim ManufacturerSystemEnclosure = LCase(SystemEnclosure.Manufacturer)
                        If ManufacturerSystemEnclosure = "oracle corporation" Then
                            'test
                            Return "Win32_SystemEnclosure ==> SystemEnclosure.Manufacturer ==> " & SystemEnclosure.Manufacturer
                        End If
                    End If
                End If
            Next

            'Win32_CDROMDrive aka cdrom
            For Each CDRom In .ExecQuery("SELECT * FROM Win32_CDROMDrive")
                If Not IsDBNull(CDRom) Then
                    If Not IsDBNull(CDRom.Name) Then
                        Dim NameCDRom = LCase(CDRom.Name)
                        If NameCDRom = "vbox cd-rom" Then
                            'test
                            Return "Win32_CDROMDrive ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                    If Not IsDBNull(CDRom.VolumeName) Then
                        Dim VolumeNameCDRom = LCase(CDRom.VolumeName)
                        'Volume name should be "VBOXADDITIONS_4."
                        If InStr(1, VolumeNameCDRom, "vboxadditions") > 0 Then
                            'test
                            Return "Win32_CDROMDrive ==> CDRom.VolumeName ==> " & CDRom.VolumeName
                        End If
                    End If
                    If Not IsDBNull(CDRom.DeviceID) Then
                        Dim DeviceIDCDRom = LCase(CDRom.DeviceID)
                        If InStr(1, DeviceIDCDRom, "cdromvbox") > 0 Then
                            'test
                            Return "Win32_CDROMDrive ==> CDRom.DeviceID ==> " & CDRom.DeviceID
                        End If
                    End If
                    If Not IsDBNull(CDRom.PNPDeviceID) Then
                        Dim PNPDeviceIDCDRom = LCase(CDRom.PNPDeviceID)
                        If InStr(1, PNPDeviceIDCDRom, "cdromvbox") > 0 Then

                            Return "Win32_CDROMDrive ==> CDRom.PNPDeviceID ==> " & CDRom.PNPDeviceID
                        End If
                    End If
                End If
            Next


            'WIN32_NetworkClient aka netclient
            For Each NetClient In .ExecQuery("SELECT * FROM WIN32_NetworkClient")
                If Not IsDBNull(NetClient) Then
                    If Not IsDBNull(NetClient.Description) Then
                        Dim DescNetClient = LCase(NetClient.Description)
                        If DescNetClient = "vboxsf" Then
                            'test
                            Return "WIN32_NetworkClient ==> NetClient.Description ==> " & NetClient.Description
                        End If
                    End If
                    If Not IsDBNull(NetClient.Manufacturer) Then
                        Dim ManufacturerNetClient = LCase(NetClient.Manufacturer)
                        If ManufacturerNetClient = "oracle corporation" Then
                            'test
                            Return "WIN32_NetworkClient ==> NetClient.Manufacturer ==> " & NetClient.Manufacturer
                        End If
                    End If
                    If Not IsDBNull(NetClient.Name) Then
                        Dim NameNetClient = LCase(NetClient.Name)
                        If NameNetClient = "virtualbox shared folders" Then
                            'test
                            Return "WIN32_NetworkClient ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                End If
            Next

            'Win32_ComputerSystemProduct aka csproduct

            For Each CSProduct In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
                If Not IsDBNull(CSProduct) Then
                    If Not IsDBNull(CSProduct.Name) Then
                        Dim NameCSProduct = LCase(CSProduct.Name)
                        If NameCSProduct = "virtualbox" Then
                            'test
                            Return "Win32_ComputerSystemProduct ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                    If Not IsDBNull(CSProduct.Vendor) Then
                        Dim VendorCSProduct = LCase(CSProduct.Vendor)
                        If VendorCSProduct = "innotek gmbh" Then
                            'test
                            Return "Win32_ComputerSystemProduct ==> CSProduct.Vendor ==> " & CSProduct.Vendor
                        End If
                    End If
                End If
            Next

            'Win32_VideoController

            For Each VideoController In .ExecQuery("SELECT * FROM Win32_VideoController")
                If Not IsDBNull(VideoController) Then
                    If Not IsDBNull(VideoController.Name) Then
                        Dim NameVideoController = LCase(VideoController.Name)
                        If NameVideoController = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_VideoController ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                    If Not IsDBNull(VideoController.Description) Then
                        Dim DescVideoController = LCase(VideoController.Description)
                        If DescVideoController = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.Description ==> " & VideoController.Description
                        End If
                    End If
                    If Not IsDBNull(VideoController.Caption) Then
                        Dim CaptionVideoController = LCase(VideoController.Caption)
                        If CaptionVideoController = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.Caption ==> " & VideoController.Caption
                        End If
                    End If
                    If Not IsDBNull(VideoController.VideoProcessor) Then
                        Dim VideoProcessorVideoController = LCase(VideoController.VideoProcessor)
                        If VideoProcessorVideoController = "vbox" Then

                            Return "Win32_VideoController ==> VideoController.VideoProcessor ==> " & VideoController.VideoProcessor
                        End If
                    End If
                    If Not IsDBNull(VideoController.InstalledDisplayDrivers) Then
                        Dim InstalledDisplayDriversVideoController = LCase(VideoController.InstalledDisplayDrivers)
                        If InstalledDisplayDriversVideoController = "vboxdisp.sys" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.InstalledDisplayDrivers ==> " & VideoController.InstalledDisplayDrivers
                        End If
                    End If
                    If Not IsDBNull(VideoController.InfSection) Then
                        Dim InfSectionVideoController = LCase(VideoController.InfSection)
                        If InfSectionVideoController = "vboxvideo" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.InfSection ==> " & VideoController.InfSection
                        End If
                    End If
                    If Not IsDBNull(VideoController.AdapterCompatibility) Then
                        Dim AdapterCompatibilityVideoController = LCase(VideoController.AdapterCompatibility)
                        If AdapterCompatibilityVideoController = "oracle corporation" Then
                            'test
                            Return "Win32_VideoController ==> VideoController.AdapterCompatibility ==> " & VideoController.AdapterCompatibility
                        End If
                    End If
                End If
            Next


            'Win32_PnPEntity

            For Each PnPEntity In .ExecQuery("SELECT * FROM Win32_PnPEntity")
                If Not IsDBNull(PnPEntity) Then
                    If Not IsDBNull(PnPEntity.Name) Then
                        Dim NamePnPEntity = LCase(PnPEntity.Name)
                        If NamePnPEntity = "virtualbox device" Or NamePnPEntity = "vbox harddisk" Or NamePnPEntity = "vbox cd-rom" Or NamePnPEntity = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_PnPEntity ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.Caption) Then
                        Dim CaptionPnPEntity = LCase(PnPEntity.Caption)
                        If CaptionPnPEntity = "virtualbox device" Or CaptionPnPEntity = "vbox harddisk" Or CaptionPnPEntity = "vbox cd-rom" Or CaptionPnPEntity = "virtualbox graphics adapter" Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.Caption ==> " & PnPEntity.Caption
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.Description) Then
                        Dim DescPnPEntity = LCase(PnPEntity.Description)
                        If DescPnPEntity = "virtualbox device" Or DescPnPEntity = "virtualbox graphics adapter" Then

                            Return "Win32_PnPEntity ==> PnPEntity.Description ==> " & PnPEntity.Description
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.Service) Then
                        Dim SrvPnPEntity = LCase(PnPEntity.Service)
                        If SrvPnPEntity = "vboxguest" Or SrvPnPEntity = "vboxvideo" Then

                            Return "Win32_PnPEntity ==> PnPEntity.Service ==> " & PnPEntity.Service
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.DeviceID) Then
                        Dim DeviceIDPnPEntity = LCase(PnPEntity.DeviceID)
                        If InStr(1, DeviceIDPnPEntity, "diskvbox_") > 0 Or InStr(1, DeviceIDPnPEntity, "cdromvbox_") > 0 Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.DeviceID ==> " & PnPEntity.DeviceID
                        End If
                    End If
                    If Not IsDBNull(PnPEntity.PNPDeviceID) Then
                        Dim PNPDeviceIDPnPEntity = LCase(PnPEntity.PNPDeviceID)
                        If InStr(1, PNPDeviceIDPnPEntity, "diskvbox_") > 0 Or InStr(1, PNPDeviceIDPnPEntity, "cdromvbox_") > 0 Then
                            'test
                            Return "Win32_PnPEntity ==> PnPEntity.PNPDeviceID ==> " & PnPEntity.PNPDeviceID
                        End If
                    End If
                End If
            Next

            'Win32_NetworkConnection aka NetUse

            For Each NetUse In .ExecQuery("SELECT * FROM Win32_NetworkConnection")
                If Not IsDBNull(NetUse) Then
                    If Not IsDBNull(NetUse.Name) Then
                        Dim NameNetUse = LCase(NetUse.Name)
                        If InStr(1, NameNetUse, "vboxsvr") > 0 Then
                            'test
                            Return "Win32_NetworkConnection ==> No tienes permitido ver enlaces. Registrate o Entra a tu cuenta ==> " & No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
                        End If
                    End If
                    If Not IsDBNull(NetUse.Description) Then
                        Dim DescNetUse = LCase(NetUse.Description)
                        If InStr(1, DescNetUse, "virtualbox shared folders") > 0 Then
                            'test
                            Return "Win32_NetworkConnection ==> NetUse.Description ==> " & NetUse.Description
                        End If
                    End If
                    If Not IsDBNull(NetUse.ProviderName) Then
                        Dim PrvNameNetUse = LCase(NetUse.ProviderName)
                        If PrvNameNetUse = "virtualbox shared folders" Then
                            'test
                            Return "Win32_NetworkConnection ==> NetUse.ProviderName ==> " & NetUse.ProviderName
                        End If
                    End If

                    If Not IsDBNull(NetUse.RemoteName) Then
                        Dim RemoteNameNetUse = LCase(NetUse.RemoteName)
                        If InStr(1, RemoteNameNetUse, "vboxsvr") > 0 Then
                            'test
    &