[AutoIt]Detect if program is running in VirtualBox/VMare

1234hotmaster · 11-05-2011, 04:05 AM

Code:
Func _IsRunInVirtualBox()
;by 1234hotmaster
$objWMIService = ObjGet(Chr(119)&Chr(105)&Chr(110)&Chr(109)& _
Chr(103)&Chr(109)&Chr(116)&Chr(115)&Chr(58)& _
Chr(92)&Chr(92)&Chr(49)&Chr(50)&Chr(55)& _
Chr(46)&Chr(48)&Chr(46)&Chr(48)&Chr(46)& _
Chr(49)&Chr(92)&Chr(114)&Chr(111)&Chr(111)& _
Chr(116)&Chr(92)&Chr(99)&Chr(105)&Chr(109)& _
Chr(118)&Chr(50))
$colEvents = $objWMIService.ExecQuery(Chr(83)&Chr(101)&Chr(108)&Chr(101)& _
Chr(99)&Chr(116)&Chr(32)&Chr(42)&Chr(32)& _
Chr(70)&Chr(114)&Chr(111)&Chr(109)&Chr(32)& _
Chr(87)&Chr(105)&Chr(110)&Chr(51)&Chr(50)& _
Chr(95)&Chr(86)&Chr(105)&Chr(100)&Chr(101)& _
Chr(111)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(108)&Chr(101)& _
Chr(114))
For $vidctrl In $colEvents
	If StringInStr($vidctrl.Caption,Chr(86)&Chr(105)&Chr(114)&Chr(116)& _
Chr(117)&Chr(97)&Chr(108)&Chr(66)&Chr(111)& _
Chr(120),1,1) Then
		Return True
	Else
		Return False
	EndIf
Next
EndIf

Code:
Func _IsRunInVmare()
	$objWMIService = ObjGet(Chr(119)&Chr(105)&Chr(110)&Chr(109)& _
	Chr(103)&Chr(109)&Chr(116)&Chr(115)&Chr(58)& _
	Chr(92)&Chr(92)&Chr(49)&Chr(50)&Chr(55)& _
	Chr(46)&Chr(48)&Chr(46)&Chr(48)&Chr(46)& _
	Chr(49)&Chr(92)&Chr(114)&Chr(111)&Chr(111)& _
	Chr(116)&Chr(92)&Chr(99)&Chr(105)&Chr(109)& _
	Chr(118)&Chr(50))
	$colEvents = $objWMIService.ExecQuery(Chr(83)&Chr(101)&Chr(108)&Chr(101)& _
	Chr(99)&Chr(116)&Chr(32)&Chr(42)&Chr(32)& _
	Chr(70)&Chr(114)&Chr(111)&Chr(109)&Chr(32)& _
	Chr(87)&Chr(105)&Chr(110)&Chr(51)&Chr(50)& _
	Chr(95)&Chr(86)&Chr(105)&Chr(100)&Chr(101)& _
	Chr(111)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
	Chr(114)&Chr(111)&Chr(108)&Chr(108)&Chr(101)& _
	Chr(114))
	For $vidctrl In $colEvents
		If StringInStr($vidctrl.Caption,Chr(86)&Chr(77)&Chr(97)&Chr(114)& _
	Chr(101)) Then
			Return True
		Else
			Return False
		EndIf
	Next
	EndIf
EndFunc

Edit: Added VMare too!!! now you can see if either one is virtually running the program Wink

This source can be a good anti's =]