Comment connaître la version de windows (Française ou bien Anglaise) ?

Version imprimable

06/08/2011, 23h01
hackoofr

Comment connaître la version de windows (Française ou bien Anglaise) ?

:salut:
Est-ce-qu'il y a un moyen de connaître la version de windows je veux dire Française ou bien Anglaise?
voila j'explique mieux mon problème:
-Si la version de mon Windows est Française le groupe admin s'appelle bien Administrateurs
-Si la version de mon Windows est Anglaise le groupe admin s'appelle bien Administrators
:merci:

Salut;

Essaie ce

Code:

1
2
3
4
5
6
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MSAPPS11") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Language",,48) 
For Each objItem in colItems 
    Wscript.Echo "InstallLang: " & objItem.InstallLang
Next

Si ce code te sort 1036 la version est française, s'il sort 1033 la version est anglaise(US) .....

Citation:

Envoyé par l_autodidacte

Salut;
Essaie ce

Code:

1
2
3
4
5
6
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MSAPPS11") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Language",,48) 
For Each objItem in colItems 
    Wscript.Echo "InstallLang: " & objItem.InstallLang
Next

Si ce code te sort 1036 la version est française, s'il sort 1033 la version est anglaise(US) .....

:merci: Bien pour ce code :ccool:
De mon côté j'ai trouvé ceci et le problème est :resolu: :zoubi: :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "."
strResultat=""
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    strResultat=strResultat &  objOperatingSystem.Caption & vbCR
    strResultat=strResultat & "Version: " & objOperatingSystem.Version & vbCR
    strResultat=strResultat & "Numéro de série: " & objOperatingSystem.SerialNumber & vbCR
    strResultat=strResultat & "Langue: " & objOperatingSystem.OSLanguage & vbCR
    strResultat=strResultat &  "Code pays: " & objOperatingSystem.CountryCode & vbCR
    strResultat=strResultat & "Utilisateur enregistré: " & objOperatingSystem.RegisteredUser & vbCR
    strResultat=strResultat & "Organisation: " & objOperatingSystem.Organization & vbCR
    dtmConvertedDate.Value = objOperatingSystem.InstallDate 
    dtmInstallDate = dtmConvertedDate.GetVarDate
    strResultat=strResultat & "Date installation: " & dtmInstallDate & vbCR
Next
MsgBox strResultat,64,"OSLang"

09/08/2011, 11h25
cyrill.gremaud

faite attention en cas d'utilisation de language pack !

Dans ma société nous avons des Windows en anglais mais si tu applique un language pack dessus, il te sors toujours 1033 ;-)

si quelqu'un a une solution, je suis prenant.