Discussion :

[vegastar]

Bonjour,

j'ai un programme avec deux exe (1 exe 32 bits et un 1 exe 64 bits)

je cherche a créer un programme VB6 avec un bouton, qui lorsque l'on clic dessus va exécuter le bon exe en fonction du type d'architecture de l'OS.

Je ne trouve pas de fonction en VB6 qui peut retourner cette infos.

Auriez-vous une piste ?

[vegastar]

J'ai trouvé ce que je cherchais, la solution ci dessous pour ceux qui se pose la même question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function GetOsBitness() As String
    Dim ProcessorSet As Object
    Dim CPU As Object
 
    Set ProcessorSet = GetObject("Winmgmts:"). _
        ExecQuery("SELECT * FROM Win32_Processor")
    For Each CPU In ProcessorSet
        GetOsBitness = CStr(CPU.AddressWidth)
    Next
End Function

[l_autodidacte]

J'espère que je ne dis pas de bêtises !!!

Le code présenté, me semble-t-il, se rapporte au processeur et non au système d'exploitation. Même chose si on utilise la classe Win32_ComputerSystem.

Si on installe un OS 32 bits sur une machine ayant un processeur 64 bits, on aura avec le code pré-cité "64 bits" (à vérifier sur une telle machine)

A mon humble avis, si on utilise la classe Win32_OperatingSystem serait plus adéquat avec la propriété OSArchitecture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Function GetOsArchitecture() As String
    Dim Oper_Systems As Object
    Dim OS As Object
 
    Set Oper_Systems = GetObject("Winmgmts:").ExecQuery("SELECT * FROM Win32_OperatingSystem")
    For Each OS In Oper_Systems
        If Left(OS.Version, 3) > "5.1" Then ' 5.1 pour XP
            GetOsArchitecture = Left(Trim(OS.OSArchitecture), 2) & " bits"
        Else
           GoTo Message
        End If
    Next
 
Message:
   ' "OSArchitecture" n'est pas disponible pour toutes les plateformes
    GetOsArchitecture = "32 bits"
End Function

[DarkVader]

Bonjour l'Autodidacte,
Puisque tu as les moyens de comparer en ayant installé ma librairie
amuses-toi à comparer ta réponse avec WMI et celle fournie par ma librairie en utilisant RDTSC comme compteur de cycles.
WMI comme FSO sont des pieux à trainer


Bon week-end