' Zunächst die benötigten API-Deklarationen
Public Const VER_PLATFORM_WIN32s As Long = 0
Public Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
Public Const VER_PLATFORM_WIN32_NT As Long = 2
Public Const VER_NT_SERVER As Long = &H3
Public Const VER_NT_WORKSTATION As Long = &H1
Public Const VER_SUITE_PERSONAL As Long = &H200
Public Const VER_SUITE_DATACENTER As Long = &H80
Public Const VER_SUITE_ENTERPRISE As Long = &H2
 
' der alte Standard
Public Type OSVERSIONINFO
  dwOSVersionInfoSize As Long   ' Größe der Datenstruktur in Bytes
  dwMajorVersion As Long        ' Hauptversionsnummer  des Betriebssystems
  dwMinorVersion As Long        ' Unternummer des Betriebssystems
  dwBuildNumber As Long         ' Baunummer des Betriebssystems
  dwPlatformId As Long          ' identifiziert das Betriebssystem
  szCSDVersion As String * 128  ' installiertes Servicepack
End Type
 
' gibt's ab NT 4.0 mit SP6 (vgl. MSDN-Library)
Public Type OSVERSIONINFOEX
  dwOSVersionInfoSize As Long   ' Größe der Datenstruktur in Bytes
  dwMajorVersion As Long        ' Hauptnummer des Betriebssystems
  dwMinorVersion As Long        ' Unternummer des Betriebssystems
  dwBuildNumber As Long         ' Baunummer des Betriebssystems
  dwPlatformId As Long          ' identifiziert das Betriebssystem
  szCSDVersion As String * 128  ' installiertes Servicepack
  wServicePackMajor As Integer  ' Hauptversionsnummer des Servicepacks
  wServicePackMinor As Integer  ' Unterversionsnummer des Servicepacks
  wSuiteMask As Integer         ' Art bei Win2000 (Server,Advanced 
  ' Server,Datacenter Server)
  wProductType As Byte          ' Art bei WinNT (Server, Workstation)
  wReserved As Byte             ' Reserviert für weitere Merkmale
End Type

Auf den Sack schl?gt man, den Esel meint man.