VBS soll Registry-Einträge finden und anpassen

Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_DWORD = 4
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
strKeyPath = "SYSTEM\CurrentControlSet\Control\Video"  
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 

For Each subkey In arrSubKeys
	oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey , arrSubKeys2  
	For Each subkey2 In arrSubKeys2
		oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey & "\" & subkey2 , values, types  
		If Not IsNull(values) Then
			For i = 0 To UBound(values)
				If LCase(values(i)) = "enableulps" And types(i) = REG_DWORD Then  
					oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey & "\" & subkey2 , "EnableUlps", 0  
					Exit For
				End If
			Next
		End If
	Next
Next

Const HKEY_LOCAL_MACHINE = &H80000002
const REG_SZ = 1
const REG_EXPAND_SZ = 2
const REG_BINARY = 3
const REG_DWORD = 4
const REG_MULTI_SZ = 7
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
strKeyPath = "SYSTEM\CurrentControlSet\Control\Video"  

pathes = FindRegValue(HKEY_LOCAL_MACHINE,strKeyPath,"EnableUlps",REG_DWORD)  
If UBound(pathes) > 0 Then
	For Each path In pathes
		MsgBox "Changing value EnableUlps in '" & path & "'"  
		oReg.SetDWORDValue HKEY_LOCAL_MACHINE, path , "EnableUlps", 0  
	Next
Else
	MsgBox "No matching values found.", vbExclamation  
End If
Function FindRegValue(hive,path,value,valuetype)
	Dim arr
	arr = Array()
	oReg.EnumValues hive, path, values, types
	If Not IsNull(values) Then
		For i = 0 To UBound(values)
			If LCase(values(i)) = LCase(value) And types(i) = valuetype Then
				ReDim Preserve arr(UBound(arr)+1)
				arr(UBound(arr)) = path
				Exit For
			End If
		Next
	End If
	
	oReg.EnumKey hive, path , arrSubKeys
	If Not IsNull(arrSubKeys) Then
		For Each subkey In arrSubKeys
			result = FindRegValue(hive,path & "\" & subkey, value, valuetype)  
			If UBound(result) >= 0 Then
				For Each itm In result
					ReDim Preserve arr(UBound(arr)+1)
					arr(UBound(arr)) = itm
				Next
			End If
		Next
	End If
	FindRegValue = arr
End Function

ls HKLM:\SYSTEM\CurrentControlSet\Control\Video -Recurse | Get-ItemProperty -name EnableUlps -EA 0 | %{Set-ItemProperty $_.PSPath -Name EnableUlps -Value 0}

Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_DWORD = 4
Set regex = CreateObject("vbscript.regexp")  
regex.IgnoreCase = True
regex.Pattern = "^\d+$"  
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
strKeyPath = "SYSTEM\CurrentControlSet\Control\Video"  
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 

For Each subkey In arrSubKeys
	oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey , arrSubKeys2  
	For Each subkey2 In arrSubKeys2
		If regex.Test(subkey2) Then
			oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey & "\" & subkey2 , "EnableUlps", 0  
		End If
	Next
Next