check OS und Prozessor 32-bit oder 64-bit?

Der einfachste Weg, um Antwort auf beide Fragen scheint zu sein, mit Win32_Processor WMI-Klasse.

Betriebssystem 32-bit oder 64-bit?

Betriebssystem kann man überprüfen AddressWidth Eigenschaft:

AddressWidth

Auf einem 32-bit-Betriebssystem, der Wert ist 32-und eine 64-bit -
Betriebssystem ist 64.

Relevanten VB6-code:

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

Prozessor-32-bit-oder 64-bit?

Prozessor kann man überprüfen DataWidth Eigenschaft:

DataWidth

Auf einem 32-bit-Prozessor, der Wert ist 32-und auf 64-bit-Prozessor es ist
64.

Relevanten VB6-code:

Public Function GetCpuBitness() As String
    Dim ProcessorSet As Object
    Dim CPU As Object

    Set ProcessorSet = GetObject("Winmgmts:"). _
        ExecQuery("SELECT * FROM Win32_Processor")
    For Each CPU In ProcessorSet
        GetCpuBitness = CStr(CPU.DataWidth)
    Next
End Function

Betriebssystem-Architektur

Einen Weg, es zu erhalten, ist die Verwendung GetNativeSystemInfo WinAPI-Funktion. Es ist bedeckt in verknüpfte Frage.

OS-Architektur kann bezogen werden über WMI auch in Fall, dass Sie möchten, um zu erreichen beide Ziele in ähnlicher Weise. In Windows Vista und neuere Betriebssysteme eine Abfrage können Sie Win32_OperatingSystem Klasse und analysieren OSArchitecture Eigenschaft (MSDN). Leider ist diese Eigenschaft nicht vorhanden ist in Windows XP und früheren Versionen. Auf diesen Systemen kann man-Abfrage Win32_ComputerSystem Klasse und analysieren SystemType - Eigenschaft statt (MSDN).

Public Function GetOsArchitecture()
    If IsAtLeastVista Then
        GetOsArchitecture = GetVistaOsArchitecture
    Else
        GetOsArchitecture = GetXpOsArchitecture
    End If
End Function

Private Function IsAtLeastVista() As Boolean
    IsAtLeastVista = GetOsVersion >= "6.0"
End Function

Private Function GetOsVersion() As String
    Dim OperatingSystemSet As Object
    Dim OS As Object

    Set OperatingSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                                    InstancesOf("Win32_OperatingSystem")
    For Each OS In OperatingSystemSet
        GetOsVersion = Left$(Trim$(OS.Version), 3)
    Next
End Function

Private Function GetVistaOsArchitecture() As String
    Dim OperatingSystemSet As Object
    Dim OS As Object

    Set OperatingSystemSet = GetObject("Winmgmts:"). _
        ExecQuery("SELECT * FROM Win32_OperatingSystem")
    For Each OS In OperatingSystemSet
        GetVistaOsArchitecture = Left$(Trim$(OS.OSArchitecture), 2)
    Next
End Function

Private Function GetXpOsArchitecture() As String
    Dim ComputerSystemSet As Object
    Dim Computer As Object
    Dim SystemType As String

    Set ComputerSystemSet = GetObject("Winmgmts:"). _
        ExecQuery("SELECT * FROM Win32_ComputerSystem")
    For Each Computer In ComputerSystemSet
        SystemType = UCase$(Left$(Trim$(Computer.SystemType), 3))
    Next

    GetXpOsArchitecture = IIf(SystemType = "X86", "32", "64")
End Function