SUPINFO International University

SUPINFO Institute of Information Technology
Laboratoire Microsoft
  Laboratoire Microsoft |  Blog  |  Forum |  FaqXP |  CertifExpress 




Obtenir la langue courante de l'utilisateur

Accueil > Script > maintenance > Obtenir la langue courante de l'utilisateur

Obtenir la langue courante de l'utilisateur

Par Naïma HIZIR, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT
Publiée le 13/05/2005 vers 10h.

Dim CleReg,WshShell,Pays
SET WshShell = CreateObject ("Wscript.shell")

CleReg="HKEY_CURRENT_USER\Control Panel\Desktop\MultiUILanguageId"

Pays = WshShell.RegRead(CleReg)

SELECT CASE UCASE(Pays)
CASE "00000C0A":
Pays="ES"

CASE "0000040C":
Pays="FR"

CASE "00000410":
Pays="IT"

CASE "00000415":
Pays="PL"

CASE "00000816":
Pays="PT"

CASE ELSE
Pays="EN"

END SELECT
MsgBox(Pays)

Proposer un script

Notre avis :

Votre avis :

Réactions :
0

Votants :
2

Visites :
11242

1
 2
 3
 4
 5

Script Précédent :

Lister des informations concernant la mémoire cache

Script Suivant :

Determiner si un dossier existe

Script Précédent(e)(s)

12/05/2005 - Lister des informations concernant la mémoire cache

12/05/2005 - [Excel] Lister les couleurs excel

12/05/2005 - [Excel] Ajouter des données formatées dans une feuille de calcul

12/05/2005 - Editer des informations concernant les GPO sur une machine

11/05/2005 - Nom du pc en MessageBox

Les Script Suivant(e)(s)

13/05/2005 - Determiner si un dossier existe

13/05/2005 - Determiner si une extension est présente sur un ordinateur

13/05/2005 - Determiner le nombre de lignes d'un document texte

13/05/2005 - Determiner la taille du dossier Mes Documents

14/05/2005 - Liste les utilisateurs d'une machine



Retrouvez ci-dessous les autres sections du Laboratoire Microsoft

Définitions

Accès direct aux définitions :
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Effectuez une recherche dans les définitions :

Toutes les définitions Proposer une définition

Forum

Espace Windows XP

Espace Windows 2003

Espace Exchange

Espace ISA Server

Espace Sécurité

Espace Emploi

Tous les espaces