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, 10082 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Visual Studio
gelöst SIDs eines Verzeichnisses ermitteln (1)

Frage von joehuaba zum Thema Visual Studio ...

DNS
Hostnames für mehrere IPs ermitteln (3)

Frage von Oneil-1989 zum Thema DNS ...

Windows 10
Systemsprache ändern Windows 10 (1)

Frage von Belloci zum Thema Windows 10 ...

Mac OS X
gelöst 500 Wordfiles die jeweilige Anzahl an Wörtern ermitteln (26)

Frage von xp-user zum Thema Mac OS X ...

Heiß diskutierte Inhalte
Zusammenarbeit
Als Administrator im Großraumbüro (29)

Frage von Dopamin85 zum Thema Zusammenarbeit ...

Exchange Server
gelöst Test-ActiveSyncConnectivity Error nach neuem Zertifikat (22)

Frage von Driphex zum Thema Exchange Server ...

Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...