VBS soll die Sprache der Windowsoberfläche auslesen

Hallo, ich versuche per VBS die Sprache der Windowsoberfläche auszulesen - was mache ich hier falsch?

language = WSHShell.RegRead ("HKEY_CURRENT_USER\Control Panel\Desktop\PreferredUILanguages")  
if language = "de-DE" then MsgBox "deutsch "   
if language <> "de-DE" then MsgBox "nicht deutsch "   

Das Script gibt mir beide MsgBoxen raus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 464822

Url: https://administrator.de/forum/vbs-soll-die-sprache-der-windowsoberflaeche-auslesen-464822.html

Ausgedruckt am: 22.12.2024 um 19:12 Uhr

2 Kommentare

Neuester Kommentar

Servus,

Das Script gibt mir beide MsgBoxen raus

der ausgelesene Wert ist vom Typ REG_MULTI_SZ und liefert ein Array aus Strings zurück

Set WSHShell = CreateObject("Wscript.Shell")  
languages = WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\PreferredUILanguages")  

If LCase(languages(0)) = "de-de" then   
 	MsgBox "deutsch"  
Else
	MsgBox "nicht deutsch: " & Join(languages,",")  
End If

Grüße Uwe