Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Betriebssystem Version auslesen

Betriebssystem Version auslesen
SteffenS
Hallo Zusammen,
ich benötige in meinem Excel-Programm die Art des Betriebssystems.
Dabei genügt mir ob es 32 oder 64-bit ist.
Ich habe es bereits mit
Environ("OS") --> Windows NT
und
Application.OperationSystem --> Windows(32-bit) NT 6.01
Leider funktioniert dies nicht, da bei der zweiten Variante auch bei einem 64-bit Gerät 32-bit angezeigt wird.
Was kann ich tun, damit ich den richtigen Wert erhalte?
Danke schon mal im Voraus.
VG
Steffen Schmerler

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Betriebssystem Version auslesen
10.03.2012 18:41:30
Josef

Hallo Steffen,
nutze dafür die bedingte Kompilierung.
Sub test()
Dim lngWin As Long

lngWin = 32

#If Win64 Then
  lngWin = 64
  #End If
  
  MsgBox "windows " & lngWin & " bit"
End Sub



« Gruß Sepp »

Anzeige
WMI.InstancesOf("Win32_OperatingSystem")
10.03.2012 20:48:24
ransi
HAllo
Bei WMI kann man auch mal nachschauen.
Ich weiß allerdings nicht ob das auf 64 Bit läuft:
Option Explicit

Public Sub System_infos_auslesen()
    Dim myWMI As Object
    Dim objTeil
    Dim objDing
    Dim L As Long
    Set myWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    For Each objDing In myWMI.InstancesOf("Win32_OperatingSystem")
        With objDing.properties_("OSArchitecture")
            MsgBox .Name & ": " & .Value
        End With
        Exit For
        ' For Each objTeil In objDing.properties_
            ' L = L + 1

        ' Cells(L, 1) = objTeil.Name
        ' Cells(L, 2) = objTeil.Value
        ' Next
    Next
End Sub


ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige