Discussion :

[poussin_44]

Bonjour,

est-ce qu'il existe une fonction qui détermine quelle est la version de l'OS, par exemple faire la différence entre vista et XP, mais également entre un XP version us et version fr

[Aspic]

Bonjour,

est-ce qu'il existe une fonction qui détermine quelle est la version de l'OS, par exemple faire la différence entre vista et XP, mais également entre un XP version us et version fr

Biensur !

Deux solutions soit si tu es avec VB.NET 2003, tu utilises

Code :

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

Environment.OSVersion

N'oublit pas de faire l'import system.environment

Sinon en VB.NET 2005, tout est dans l'espace My

[poussin_44]

merci à toi Aspic

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Strict On
Imports System.Environment
Module Module1
 
    Private osInfo As OperatingSystem
 
    Sub Main()
        Console.WriteLine(getVersion())
    End Sub
 
    Public Function getVersion() As String
 
        osInfo = OSVersion
        With osInfo
            Select Case .Platform
 
                Case .Platform.Win32Windows
                    Select Case (.Version.Minor)
                        Case 0
                            getVersion = "Windows 95"
                        Case 10
                            If .Version.Revision.ToString() = "2222A" Then
                                getVersion = "Windows 98 Second Edition"
                            Else
                                getVersion = "Windows 98"
                            End If
                        Case 90
                            getVersion = "Windows Me"
                    End Select
 
                Case .Platform.Win32NT
                    Select Case (.Version.Major)
                        Case 3
                            getVersion = "Windows NT 3.51"
                        Case 4
                            getVersion = "Windows NT 4.0"
                        Case 5
                            Select Case (.Version.Minor)
                                Case 0
                                    getVersion = "Windows 2000"
                                Case 1
                                    getVersion = "Windows XP"
                                Case 2
                                    getVersion = "Windows Server 2003"
                            End Select
                        Case Else
                            getVersion = "Failed"
                    End Select
            End Select
        End With
    End Function
End Module

[Aspic]

Merci à toi pour le code, sympa pour les autres membres

[smyley]

Excusez moi de réouvrir ce post, mais quel serai le code si l'on rajoutait "Windows Vista" ?

[Aspic]

Excusez moi de réouvrir ce post, mais quel serai le code si l'on rajoutait "Windows Vista" ?

Je ne sais pas si la fonction prends en compte Windows Vista...

[bouvda]

Excusez moi de réouvrir ce post, mais quel serai le code si l'on rajoutait "Windows Vista" ?

Pour prendre en compte Vista, il faut rajouter un "case 6" pour la plateforme NT :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Strict On
Imports System.Environment
Module Module1
 
    Private osInfo As OperatingSystem
 
    Sub Main()
        Console.WriteLine(getVersion())
    End Sub
 
    Public Function getVersion() As String
 
        osInfo = OSVersion
        With osInfo
            Select Case .Platform
 
                Case .Platform.Win32Windows
                    Select Case (.Version.Minor)
                        Case 0
                            getVersion = "Windows 95"
                        Case 10
                            If .Version.Revision.ToString() = "2222A" Then
                                getVersion = "Windows 98 Second Edition"
                            Else
                                getVersion = "Windows 98"
                            End If
                        Case 90
                            getVersion = "Windows Me"
                    End Select
 
                Case .Platform.Win32NT
                    Select Case (.Version.Major)
                        Case 3
                            getVersion = "Windows NT 3.51"
                        Case 4
                            getVersion = "Windows NT 4.0"
                        Case 5
                            Select Case (.Version.Minor)
                                Case 0
                                    getVersion = "Windows 2000"
                                Case 1
                                    getVersion = "Windows XP"
                                Case 2
                                    getVersion = "Windows Server 2003"
                            End Select
                        Case 6
                            getVersion = "Windows Vista"
                        Case Else
                            getVersion = "Failed"
                    End Select
            End Select
        End With
    End Function
End Module

[smyley]

je ne sais pas encore dans quoi, mais je suis sur que ce code me sera très utile