Código: Seleccionar todo

;=============================
; Autor : M3
; Anti -  VMware - VirtualBox
; Base VB6 Ported to AutoIt
;=============================

sVirtuales()

Func sVirtuales()

Local $sWMI, $sFind ,$sProcess , $VM , $VBox

$VM = "VMwaretray.exe"

$VBox = "Vbox.exe"

$sWMI = ObjGet("winmgmts:")

$sFind = $sWMI.InstancesOf("win32_process")

For $sProcess In $sFind

        Select

			Case $VM
			if	$sProcess.Caption = $VM then
			MsgBox (0,"","VMWare Detected")
		exit
		endif
        EndSelect

        Select

			Case $VBox
			if	$sProcess.Caption = $VBox then
        MsgBox (0,"","VirtualBox Detected")
		exit
		endif
        EndSelect

Next
Endfunc