Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Systemsprache ermitteln

Frage Entwicklung VB for Applications

Mitglied: 0cool

0cool (Level 2) - Jetzt verbinden

25.10.2007, aktualisiert 21:28 Uhr, 10360 Aufrufe, 3 Kommentare

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
Mitglied: bastla
25.10.2007 um 20:36 Uhr
Hallo 0cool!

Das könnte etwa so aussehen:
01.
strComputer = "."  
02.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
03.
Set colItems = objWMIService.ExecQuery( _ 
04.
    "SELECT * FROM Win32_OperatingSystem",,48)  
05.
For Each objItem in colItems  
06.
    sCountryCode = objItem.CountryCode 
07.
Next 
08.
 
09.
language = "49" 
10.
If sCountryCode = language Then 
11.
    MsgBox "deutsch" 
12.
Else 
13.
    MsgBox "falsch" 
14.
End If
Grüße
bastla
Bitte warten ..
Mitglied: 0cool
25.10.2007 um 21:05 Uhr
@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
Bitte warten ..
Mitglied: bastla
25.10.2007 um 21:28 Uhr
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
Bitte warten ..
Ähnliche Inhalte
Windows 10
Systemsprache ändern Windows 10 (1)

Frage von Belloci zum Thema Windows 10 ...

Microsoft Office
gelöst VBA - aktuelle Kalenderwoche ermitteln (3)

Frage von Ghost108 zum Thema Microsoft Office ...

Visual Studio
gelöst SIDs eines Verzeichnisses ermitteln (1)

Frage von joehuaba zum Thema Visual Studio ...

Windows Installation
gelöst Win10 Build einer Installations-ISO ermitteln (9)

Frage von chiefteddy zum Thema Windows Installation ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (20)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Hosting & Housing
CNAME auf FTP funkt nicht mehr (7)

Frage von Wintektiv zum Thema Hosting & Housing ...