Récuperer la version de Windows (version 32/64bits) [Résolu]

Signaler
Messages postés
4
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
23 décembre 2010
-
Messages postés
4
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
23 décembre 2010
-
Bonjour à tous.

je ne sais pas si mon message est posté au bon endroit. Si ce n'est pas le cas, excusez-moi.

Voila, je travaille actuellement sur un projet en VB6 et j'ai besoin de récuperer la version du Windows sur lequel le pc tourne, c'est à dire savoir s'il est en 32 ou en 64 bits.
Je cherche donc une fonction en VB6 qui me permettait de récupérer cette information, ou une chaine de caractère avec l'information dedans (tel que le "type" ou le "processeur", informations que l'on trouve dans les "informations systemes" de Windows).

Maxy

6 réponses

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
49
Bonsoir

Regardes si ça peut t'aider
regardes le dernier poste
http://www.vbfrance.com/forum/sujet-AFFICHER-SYST-EXPLOITATION_1468658.aspx?p=2
Messages postés
4
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
23 décembre 2010

Bonsoir

Merci mais ceci ne m'aide qu'a moitié, puisque pour certains systèmes la question ne se pose pas mais reste le problème principalement pour Vista et Seven.

Mais merci quand même ^^
Messages postés
4
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
23 décembre 2010

Merci beaucoup ghuysmans99, c'est exactement ce qu'il me fallait =D
Messages postés
4
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
23 décembre 2010

Pour le moment, mon employeur m'impose d'utiliser VB6 mais dans le cadre d'un éventuel passage en VB.net, merci Duke49 pour ta réponse ^^
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Si tu te met au vb.net:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim rt As String = ""
        If Environment.Is64BitOperatingSystem = True Then
            rt = "Vous avez un Windows 64 bits"
        Else
            rt = "Vous avez un Windows 32 bits"
        End If
        MessageBox.Show(rt, "Operating System", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
Exempletout cuit de MSDN

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question