Viel spaß
Screenshot:
[Blockierte Grafik: http://www.dark-labs.de/dt-312975974119.png]
Spoiler anzeigen
If _IsInVBox() Then
MsgBox(64,"","Ich bin in einem Virtuellen Computer")
Else
MsgBox(64,"","Ich bin NICHT in einem Virtuellen Computer")
EndIf
Func _IsInVBox($strComputer = '.')
Local $x = 0, $objWMIService, $colItems
$objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\root\cimv2')
If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive', 'WQL', 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
$vReturn = $objItem.Model
If StringInStr($vReturn,"VBOX HARDDISK") Then
Return True
ExitLoop
EndIf
If StringInStr($vReturn,"QEMU HARDDISK") Then
Return True
ExitLoop
EndIf
If StringInStr($vReturn,"VMWARE VIRTUAL IDE HARD DRIVE") Then
Return True
ExitLoop
EndIf
If StringInStr($vReturn,"VIRTUAL HD") Then
Return True
ExitLoop
EndIf
Next
EndIf ;Copyright (C) 2011 Fennek/sl4y3r
EndFunc
mfg. andi