Connaitre le système d'exploitation [Résolu]

Messages postés
3
Date d'inscription
mercredi 29 novembre 2000
Dernière intervention
13 octobre 2005
- - Dernière réponse : cs_nico40
Messages postés
3
Date d'inscription
mercredi 29 novembre 2000
Dernière intervention
13 octobre 2005
- 13 oct. 2005 à 09:48
Bonjour,



je suis débutant, et j'aimerais savoir s'il existe un moyen de ramener la version de windows dans une variable



Merci.
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
20
3
Merci
Voici un extrait de l'API-Guide

Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
'retrieve the windows version
GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
MsgBox "Windows version: " + GetWinVersion
End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
mercredi 29 novembre 2000
Dernière intervention
13 octobre 2005
0
Merci
Merci,



je vais essayer cela dès demain, ça va me sortir d'une belle galère au travail.
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Dernière intervention
7 novembre 2014
11
0
Merci
Réponse de zipro4012:

VB6 ou VB.NET ?
En VB6 -> "Microsoft SysInfo Control 5.0"
En VB.NET -> Espace de nom "System.Environment.OSVersion

Sous VB6:

SysInfo1.OSVersion
====================================================================
Réponse de Renfield:

API GetWindowsVersion, BruNews précise que GetWindowsVersionEx donne plus d'infos.

Private Declare Function GetVersion Lib "kernel32" () As Long

Public Function GetWindowsVersion() As String
Dim Version As Long: Version = GetVersion

Dim Major As Long: Major = (Version And &HFFFF&) Mod 256
Dim Minor As Long: Minor = ((Version And &HFFFF&) - Major) \ 100
Dim Build As Long: Build = (Version \ &H10000)

GetWindowsVersion = Major & "." & Format(Minor, "00") & "." & Build
End Function

Public Function GetOSName(Optional Version As String) As String
If Len(Version) = 0 Then
Version = GetWindowsVersion
End If
If Version Like "5.*" Then
GetOSName = "2000/XP"
ElseIf Version Like "4.1*" Then
GetOSName = "9x"
ElseIf Version Like "4.0*" Then
GetOSName = "NT4"
ElseIf Version Like "3.0*" Then
GetOSName = "NT3"
ElseIf Version Like "3.1*" Then
GetOSName = "3.1"
End If
End Function

Private Sub Form_Load()
MsgBox "Windows Version: " + GetWindowsVersion
MsgBox "Windows Name : " + GetOSName
End Sub

================================================================

Autre réponse de renfield:

Environ$ ( "OS" )

================================================================

J'ai eu tout ça en tapant "version windows" dans Rechercher, un peu plus haut la page...
Messages postés
3
Date d'inscription
mercredi 29 novembre 2000
Dernière intervention
13 octobre 2005
0
Merci
Merci



votre solution fonctionne très bien

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.