0cool
Goto Top

Systemsprache ermitteln

Hey Leute,

ich hab mal wieder ein problem. Das wäre ich wil mit einem vba script die sprache des systems auslesen und damit arbeiten

also Beispiel

Wenn du deutsch bist dann mach im script weiter

wenn du aber nicht deutsch bist dann dann beende das script

Das Script ist ein VBA Script und läuft auf WIN XP Pro

mein ansatz war folgender

language = "49"

If item.Countrycode (language) Then

MsgBox "deutsch"
Else
MsgBox "falsch"

End If

Die Message Boxen sind nur zum testen ob es geklappt hat

Danke für eure Hilfe

0cool

Content-Key: 71943

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

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

Member: bastla
bastla Oct 25, 2007 at 18:36:25 (UTC)
Goto Top
Hallo 0cool!

Das könnte etwa so aussehen:
strComputer = "."   
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem",,48)   
For Each objItem in colItems 
    sCountryCode = objItem.CountryCode
Next

language = "49"  
If sCountryCode = language Then
    MsgBox "deutsch"  
Else
    MsgBox "falsch"  
End If

Grüße
bastla
Member: 0cool
0cool Oct 25, 2007 at 19:05:15 (UTC)
Goto Top
@bastla: es funktioniert danke.
Da ich sehr lernfreudig bin und gerne weiss was in meinem code drin steht, wäre es net wenn du mir
ein kurze erklärung zu deinem script schickst das ich da auch durchsteige.

Danke

0cool
Member: bastla
bastla Oct 25, 2007 at 19:28:09 (UTC)
Goto Top
Hallo 0cool!

Eigentlich ist das nur eine simple WMI-Abfrage der "Win32_OperatingSystem"-Klasse unter Verwendung von MS-Beispielcode (wie für andere Eigenschaften dieser Klasse etwa hier gezeigt).

Grüße
bastla