VBS soll den Wert aller REGSZ in einem Schlüssel ändern

On Error Resume Next 
Set objShell = CreateObject("WScript.Shell")  
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."  
Set objRegistry = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\default:StdRegProv")  
strRegRoot = HKEY_CURRENT_USER
strKey = "SOFTWARE\Microsoft\DirectX\UserGpuPreferences"  
If objRegistry.EnumKey(strRegRoot, strKey, arrKeyNames) = 0 Then
If IsNull(arrKeyNames) = False Then 
For Each strKeyName In arrKeyNames
If Right(strKey, 1) = "\" Then  
strFullPath = strKey & strKeyName
Else
strFullPath = strKey & "\" & strKeyName  
End If
objRegistry.SetStringValue strRegRoot, strFullPath, "GpuPreference=2;"   
Next
End If
End If	
Err.Clear