Como puedo saber el sistema operativo que esta usando

[777Rubenix777]

Esque necesito saber como mostrar en un msgbox el sistema operativo utilizado en vb 6.
El problema esk e visto codigos pero solo muestran si es como muxo un XP no hay ningun codigo que sea asta 7.. y QUERIA saber como añadir a esos codigos el vista y el win7
gracias!!!
un saludo!!

[BlackZeroX]

Código (vb) [Seleccionar] Expandir



option explicit

private Declare Function RtlGetVersion Lib "NTDLL" (ByRef lpVersionInformation As Long) As Long
Public Function NativeGetVersion() As String
   Dim tOSVw(&H54)     As Long
   tOSVw(0) = &H54 * &H4
   Call RtlGetVersion(tOSVw(0))
   NativeGetVersion = Join(Array(tOSVw(4), tOSVw(1), tOSVw(2)), ".")
End Function

Public Function VersionToName(ByRef sVersion As String) As String
   Select Case sVersion
       Case "1.0.0":     VersionToName = "Windows 95"
       Case "1.1.0":     VersionToName = "Windows 98"
       Case "1.9.0":     VersionToName = "Windows Millenium"
       Case "2.3.0":     VersionToName = "Windows NT 3.51"
       Case "2.4.0":     VersionToName = "Windows NT 4.0"
       Case "2.5.0":     VersionToName = "Windows 2000"
       Case "2.5.1":     VersionToName = "Windows XP"
       Case "2.5.3":     VersionToName = "Windows 2003 (SERVER)"
       Case "2.6.0":     VersionToName = "Windows Vista"
       Case "2.6.1":     VersionToName = "Windows 7"
       Case Else:        VersionToName = "Unknown"
   End Select
End Function



Ejemplo:

Código (vb) [Seleccionar] Expandir



   Call MsgBox(VersionToName(NativeGetVersion))



Sangriento Infierno Lunar!¡.

[777Rubenix777]

Gracias!!! tio!!!
un abrazo!!