Déterminer quelle est la version de l'OS

Version imprimable

30/07/2007, 11h25
poussin_44

Déterminer quelle est la version de l'OS

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
30/07/2007, 11h28
Aspic

Citation:

Envoyé par 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

Biensur !

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

Code:

Environment.OSVersion

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

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

merci à toi Aspic

Code:

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

30/07/2007, 11h53
Aspic

Merci à toi pour le code, sympa pour les autres membres :king:
03/08/2007, 15h29
smyley

Excusez moi de réouvrir ce post, mais quel serai le code si l'on rajoutait "Windows Vista" ?
04/08/2007, 20h26
Aspic

Citation:

Envoyé par smyley

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

Citation:

Envoyé par smyley

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:

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

05/08/2007, 12h44
smyley

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