senseless-creature
Jun 21, 2019
view3528
view2
0
Goto Top

VBS soll die Sprache der Windowsoberfläche auslesen

GermansolvedQuestionBasicDevelopment
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 face-sad

LG
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 464822

Url: https://administrator.de/contentid/464822

Printed on: April 16, 2024 at 19:04 o'clock

2 Comments
Latest comment
Goto Top
Member: colinardo
Solution colinardo Jun 21, 2019 updated at 14:01:53 (UTC)
Goto Top
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
heart1
Member: Senseless-Creature
Senseless-Creature Jun 21, 2019 at 14:22:25 (UTC)
Goto Top
Funktioniert perfekt - Vielen Dank face-smile

LG
GermansolvedQuestionBasicDevelopment
Hotly discussed
DaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment