Antis Virtuales Ejemplo 2 ( AutoIt )
Publicado: 02 Jul 2012, 05:36
Otra forma más
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