Script - Batch ausführen nach Abfrage eines Reg-Wertes

Option Explicit

Const sXmlPath = "..\...\Name_"  'entsprechend anpassen, wird z.B. mit '1031.xml' vervollständigt   

Const sRegNewKey = "HKCU\Software\Microsoft\Office\%1\Common\Spotlight\Providers\Contoso\ServiceURL"  

Const iHKCU = &H80000001
Const iHKLM = &H80000002

Const sRegKey = "Software\Microsoft\Office\"  
Const sRegSubKey = "\Common\LanguageResources"  
Const sRegValue = "UILanguage"  

Dim aValues, sKey, sLanguage, sVersion
    
sLanguage = Null
    
With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
   .EnumKey iHKCU, sRegKey, aValues
        
    If IsArray(aValues) Then
        sVersion = "1.0"  
        For Each sKey In aValues
            If IsNumeric(sKey) And InStr(sKey, ".") > 0 Then  
                If CDbl(sKey) > CDbl(sVersion) Then sVersion = sKey
            End If
        Next
        
        If sVersion <> "1.0" Then  
            sKey = sRegKey & sVersion & sRegSubKey
           .GetDWordValue iHKCU, sKey, sRegValue, sLanguage
        End If
    End If
End With

If IsNull(sLanguage) = False Then
    If sLanguage > "0" Then  
        With CreateObject("WScript.Shell")  
            .RegWrite Replace(sRegNewKey, "%1", sVersion), sXmlPath & sLanguage & ".xml", "REG_SZ"  
        End With
    End If
End If

@Echo off
SETLOCAL ENABLEDELAYEDEXPANSION
SET key=HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\LanguageResources
SET keyvalue=UILanguage

:: splittet die REG QUERY auf und schreibt den Datenwert in %uilanguage%
FOR /f "tokens=3 skip=2" %%i IN ('REG QUERY %key% /v %keyvalue%') DO (SET uilanguage=%%i)  
:: Programm beendet sich, wenn der key nicht vorhanden ist. Dies kann nicht umgangen werden.

:: springt zur Marke des Werts. z.B. 0x407 für Deutsch
GOTO %uilanguage%
:: GOTO beendet die Batch, wenn die Sprungmarke nicht gefunden wird. Dies kann nicht umgangen werden.

:0x407
ECHO Deutsche Sprache in Verwendung!
REM Hier Codeblock einfügen, was dabei geschehen soll
GOTO :SUCCESS

:default
ECHO Konnte Sprachwert nicht ermittlen oder verarbeiten
GOTO :END

:SUCCESS
ECHO Erfolgreich abgearbeitet!

:END
pause>nul

MsgBox "Version: " & aValues(0)