pOusSinUs
Messages postés38Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 2 août 2007
-
30 juil. 2007 à 11:24
pOusSinUs
Messages postés38Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 2 août 2007
-
30 juil. 2007 à 13:54
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
pOusSinUs
Messages postés38Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 2 août 2007 30 juil. 2007 à 12:00
Merci à vous.
Renfield, pourrais-tu m'expliquer comment utiliser la fonction du lien que tu as mis car ca m'a l'air plus court que ce que j'ai fais mais je n'y arrive pas trop.
Voici le code que j'ai et qui fonctionne :
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
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202171 30 juil. 2007 à 12:08
l'exemple est clair, me semble :
L'exemple de code suivant affiche l'identificateur de plate-forme et le numéro de version de l'ordinateur qui exécute l'exemple de code.
Visual Basic
' Sample for the Environment.OSVersion property
Imports System
Class Sample
Public Shared Sub Main()
Console.WriteLine()
Console.WriteLine("OSVersion: {0}", Environment.OSVersion.ToString())
End Sub 'Main
End Class 'Sample
'
'This example produces the following results:
'
'OSVersion: Microsoft Windows NT 5.1.2600.0
'