Option Explicit
 
'zunächst die benötigten API-Deklarationen
Private Declare Function GetVersionEx Lib "kernel32" Alias _
  "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) _
  As Long
'für 16-Bit Anwendungen
Private Declare Function GetVersion Lib "Kernel" () 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
 
'Windowsversion ermitteln und als Text zurückgeben
Public Function Betriebssystem() As String
  Dim OSString As String
  Dim OSVersion As OSVERSIONINFO
  Dim BuildNr As Long
 
  OSVersion.dwOSVersionInfoSize = Len(OSVersion)
  Call GetVersionEx(OSVersion)
 
  OSString = ""
  With OSVersion
    If (.dwBuildNumber And &HFFFF&) > &H7FFF Then
      BuildNr = (.dwBuildNumber And &HFFFF&) - &H10000
    Else
      BuildNr = .dwBuildNumber And &HFFFF&
    End If
 
    ''Windows NT / Windows 2000
    If .dwPlatformId = VER_PLATFORM_WIN32_NT Then
      If .dwMajorVersion = 4 Then
        OSString = "Windows NT"
      ElseIf .dwMajorVersion = 5 Then
        OSString = "Windows 2000"
      End If
    ElseIf .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
      ''Windows 98/ Windows 98 SE
      If (.dwMajorVersion > 4) Or (.dwMajorVersion = 4 And _
        .dwMinorVersion = 10) Then
        If BuildNr = 1998 Then
          OSString = "Windows 98"
        Else
          OSString = "Windows 98 SE"
        End If
 
      ''Windows 95
      ElseIf (.dwMajorVersion = 4 And _
        .dwMinorVersion = 0) Then
        OSString = "Windows 95"
 
      ''Windows ME
      ElseIf (.dwMajorVersion = 4 And _
        .dwMinorVersion = 90) Then
        OSString = "Windows ME"
      End If
    End If
  End With
 
  Betriebssystem = OSString
  Label1 = Betriebssystem
End Function
 
 
Private Sub Command1_Click()
Call Betriebssystem
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *