Betriebssystem auslesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Betriebssystem auslesen
von: Detlef D
Geschrieben am: 27.10.2003 10:08:42

Guten Morgen zusammen,
weiß vieleicht jemand wie man auslesen kann, mit welchem Betriebssystem der Rechner läuft auf dem man sich gerade befindet? Habe das Problem das ich ein Makro habe das sich etwas unterschiedlich verhalten muß, je nach dem auf welchem Betriebssystem es gestartet wird.

Vielen Dank schon mal...

Gruß,
Detlef

Bild


Betrifft: AW: Betriebssystem auslesen
von: Hajo_Zi
Geschrieben am: 27.10.2003 10:14:47

Hallo Detlef


Sub tes()
    If Application.OperatingSystem = "Windows (32-bit) NT 5.00" Then
        MsgBox "Windows 2000"
    ElseIf Application.OperatingSystem = "Windows (32-bit) NT 5.01" Then
        MsgBox "XP Pro"
    End If
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.




Bild


Betrifft: AW: Betriebssystem auslesen
von: ANdreas
Geschrieben am: 27.10.2003 10:20:58

Hallo Detlef,

das geht so:

Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) _
As Long

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2


Private Sub ErmittelnBS()
 Dim PlatForm As String, OSVersion As OSVERSIONINFO
  OSVersion.dwOSVersionInfoSize = Len(OSVersion)
  GetVersionEx OSVersion
  PlatForm = "Unbekanntes Betriebssystem"
  With OSVersion
    If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
       If .dwMinorVersion = 0 Then
          PlatForm = "Windows 95"
          If .szCSDVersion = "B" Then
             PlatForm = PlatForm & " OSR2"
          Else
             PlatForm = PlatForm & Left$(.szCSDVersion, 2)
          End If
       ElseIf .dwMinorVersion = 10 Then
          PlatForm = "Windows 98"
          If .szCSDVersion = "A" Then
             PlatForm = PlatForm & " SE"
          End If
       ElseIf .dwMinorVersion = 90 Then
          PlatForm = "Windows ME"
       Else
          PlatForm = "Win 32s"
       End If
    ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT Then
       If .dwMajorVersion = 4 Then
         PlatForm = "Windows NT"
       ElseIf .dwMajorVersion = 5 Then
         If .dwBuildNumber = "2195" Then
            PlatForm = "Windows 2000"
         ElseIf .dwBuildNumber = "2600" Then
            PlatForm = "Windows XP"
         End If
       End If
    End If
  End With
  MsgBox "Aktuelles Betriebssystem: " & vbCrLf & _
         vbCrLf & PlatForm
End Sub


(Quelle: http://www.vbgamer.de/vb/tipps/tip0003.shtml)

Hoffe das hilft weiter...
Andreas


Bild


Betrifft: AW: Betriebssystem auslesen
von: Thorsten
Geschrieben am: 27.10.2003 10:35:48

Evtl. reicht dir ja auch schon der output von INFO("Sysversion")
- wenn es das in Offcie 97 schon gibt...
Die Hilfe zu INFO gibt dir noch mehr hilfreiche Abfragemöglichkeiten


Bild


Betrifft: AW: Betriebssystem auslesen
von: Reinhard
Geschrieben am: 27.10.2003 10:36:33

Hi Detlef,
=INFO("Sysversion")
Gruß
Reinhard


Bild


Betrifft: Vielen Dank
von: Detlef D
Geschrieben am: 27.10.2003 11:28:23

Vielen Dank...

Werde mal schauen was die beste Möglichkeit für mich ist.

Gruß,
Detlef


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Betriebssystem auslesen"