1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

#cs ----------------------------------------------------------------------------
	
	$Author$
	$LastChangedDate$
	
	Script Function:
	Work around known disk imaging problems
	(like problems with cpu drivers, etc.)
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include-once

Func _workaround_CpuDrivers($strCpuVendor)
	Local $intRc
	
	Select
		Case $strCpuVendor = "AMD"
;~ 			disable intelppm service/driver (start value 4)
			$intRc = RegWrite("HKLM\TARGET_SYSTEM\ControlSet001\Services\intelppm", "Start", "REG_DWORD", 4)
			If $intRc Then
				_log("D", "Disabled intelppm driver")
			Else
				_log("F", "Error while disabling intelppm driver")
			EndIf
			
		Case $strCpuVendor = "Intel"
;~ 			disable AmdK8 service/driver
			$intRc = RegWrite("HKLM\TARGET_SYSTEM\ControlSet001\Services\AmdK8", "Start", "REG_DWORD", 4)
			If $intRc Then
				_log("D", "Disabled AmdK8 driver")
			Else
				_log("F", "Error while disabling AmdK8 driver")
			EndIf
	EndSelect

EndFunc   ;==>_workaround_CpuDrivers