' Nicht vegessen einen Verweis auf System Management zu setzen
Imports System.Management
 
...
...
...
 
    Private Function GetOSFullName() As String
 
        Dim temp As String = String.Empty
 
        Dim query As New SelectQuery("Win32_OperatingSystem")
        Dim search As New ManagementObjectSearcher(query)
 
        For Each info As ManagementObject In search.Get()
 
            Try
                temp = info("Caption").ToString
            Catch
                temp = "n.a."
            End Try
 
        Next
 
        If search IsNot Nothing Then search.Dispose()
 
        Return temp
 
    End Function