Discussion :

[hackoofr]

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

[l_autodidacte]

Salut;

Essaie ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) .....

[hackoofr]

Salut;
Essaie ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) .....

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[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.