Detection de l'os

0/5 (5 avis)

Snippet vu 13 302 fois - Téléchargée 99 fois


Contenu du snippet

Comment puis-je détecter la version de l'OS ( 95/98/Nt etc... ) ?

Mettez ce Code dans un Module :

Source / Exemple :


Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128
End Type
Global MonOs As OSVERSIONINFO

Public Const VER_PLATFORM_WIN32_NT = 2
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32s = 0

' Puis mettez ceode dans le code de Votre Formulaire :

Public Sub Form_Load()
Dim L As Long
MonOs.dwOSVersionInfoSize = Len(MonOs)
L = GetVersionEx(MonOs)
Msg$ = ""
Select Case MonOs.dwPlatformId
   Case VER_PLATFORM_WIN32_NT
      Msg$ = Msg$ & "Windows NT "
   Case VER_PLATFORM_WIN32_WINDOWS
      Msg$ = Msg$ & "Windows 95 / 98"
   Case VER_PLATFORM_WIN32s
      Msg$ = Msg$ & "Win32S sous Windows 3.x (!)"
End Select
Msg$ = Msg$ & "Version " & Str$(MonOs.dwMajorVersion) & "."
Msg$ = Msg$ & Str$(MonOs.dwMinorVersion) & "."
Msg$ = Msg$ & Str$(MonOs.dwBuildNumber) & "."
Msg$ = Msg$ & MonOs.szCSDVersion
MsgBox Msg$
End Sub

A voir également

Ajouter un commentaire Commentaires
VbMaster Messages postés 21 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 15 avril 2004
12 déc. 2003 à 19:35
Pour savoir si on est sous 2000 ou XP :

Public Function IsWin2KXP() As Boolean
Dim oviInfo As OSVERSIONINFO
GetVersionEx oviInfo
If oviInfo.dwMajorVersion >= 5 And VER_PLATFORM_WIN32_NT Then
IsWin2KXP = True
End If
End Function

oviInfo.dwMajorVersion >= 5 :
en effet sous XP et 2000 ca retourne True, sous Millenium je sais pas.
cs_Cendra Messages postés 56 Date d'inscription mardi 27 août 2002 Statut Membre Dernière intervention 4 février 2008 1
3 sept. 2002 à 22:07
serai bien d'ajouter ME et XP ...

acidtoxik comment on fait pour determiner l'os par la base de registre ?
Fufroma Messages postés 1 Date d'inscription samedi 6 juillet 2002 Statut Membre Dernière intervention 6 juillet 2002
6 juil. 2002 à 16:03
et pour windows 2000 ????
en plus avec 2k y faut faire la diffférence entre pro, adv et srv !
acidtoxik Messages postés 28 Date d'inscription dimanche 12 mai 2002 Statut Membre Dernière intervention 2 janvier 2008
12 mai 2002 à 17:13
pas mal mais yavais plus simple t'allais lire dans la base de registre la version et pis voila !!!
Merci pour ce petit code bien pratique et qui m'a rendu un grand service tout en me faisant gagner du temps...

Bon courage :o)

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.