Newsgroup: it.comp.lang.visual-basic
Titolo: Chiarimenti sul major e minor di XP

Sto attualmente utilizzando win XP sp1
non riesco a determinare la giusta ver del SO
    Select Case .dwPlatformId
            Case VER_PLATFORM_WIN32s
                getVersion = "Windows 32"
            Case VER_PLATFORM_WIN32_WINDOWS
                If .dwMinorVersion = 0 Then
                    getVersion = "Windows 95"
                ElseIf .dwMinorVersion = 10 Then
                    getVersion = "Windows 98"
                End If
            Case VER_PLATFORM_WIN32_NT
                If .dwMajorVersion = 3 Then
                    getVersion = "Windows NT 3.51"
                ElseIf .dwMajorVersion = 4 Then
                    getVersion = "Windows NT 4.0"
                ElseIf .dwMajorVersion = 5 Then
                    getVersion = "Windows 2000"
                ElseIf .dwMajorVersion = 6 Then
                    getVersion = "Windows XP"
                End If
            Case Else
                getVersion = "Non Identificato"
      End Select
Qualcuno sa darmi esatte corrispondenze dei majorversion (magari anche di
minor e build)?
Grazie

 anche di minor e build)?
http://support.microsoft.com/default.aspx?scid=kb%3ben-us%3b189249
http://makeashorterlink.com/?F34754CA6
Aggiornamento:
        Case VER_PLATFORM_WIN32_NT          '2
            Select Case sys_v_maggiore
                Case 3                      'NT 3.51
                    sys_tipo = "NT (3.xx)"
                Case 4                      'NT 4
                    sys_tipo = "NT"
                Case 5                      '2000/XP(Whistler)/Server 2003
family
                    Select Case sys_v_minore
                        Case 0
                            sys_tipo = "2000"
                        Case 1
                            sys_tipo = "XP"
                        Case 2
                            sys_tipo = "Srv 2003 fam."
                    End Select
            End Select

 ha scritto nel messaggio
news:bqctdm$1vgns5$1...@ID-174464.news.uni-berlin.de...


 Cosi no?
A occhio direi di sě...
Dove hai trovato la doc.per "Win95 OSR2"?

 ha scritto nel messaggio
news:nUmyb.28660$AX1.1...@news1.tin.it...



http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/bas
e/getting_the_system_version.asp
Grazie. Molto piů completa e, soprattutto, aggiornata.

 ha scritto nel messaggio
news:Xkmyb.28493$AX1.1...@news1.tin.it...


 ha scritto nel messaggio
news:Jhnyb.28776$AX1.1...@news1.tin.it...


 costanti???
Se attinente:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaskdr/htm
l/askgui06042002.asp
O anche "API text viewer" da "Strumenti di VS6", File WIN32API.TXT,
Costanti...

 ha scritto nel messaggio
news:bqd0o5$210nv1$1...@ID-174464.news.uni-berlin.de...

Già provato, non ci sono
cmq le ho trovate
    ' Useful constants
    Public Const VER_NT_WORKSTATION As Int32 = &H1
    Public Const VER_NT_DOMAIN_CONTROLLER As Int32 = &H2
    Public Const VER_NT_SERVER As Int32 = &H3
    Public Const VER_WORKSTATION_NT As Int32 = &H40000000&
 ' Microsoft Small Business Server
    Public Const VER_SUITE_SMALLBUSINESS As Int32 = &H1&
 ' Win2k Adv Server or .Net Enterprise Server
    Public Const VER_SUITE_ENTERPRISE As Int32 = &H2&
 ' Terminal Services is installed.
    Public Const VER_SUITE_TERMINAL As Int32 = &H10&
    ' Win2k Datacenter
    Public Const VER_SUITE_DATACENTER As Int32 = &H80&
 ' Terminal server in remote admin mode
    Public Const VER_SUITE_SINGLEUSERTS As Int32 = &H100&
    Public Const VER_SUITE_PERSONAL As Int32 = &H200&
 ' Microsoft .Net webserver installed
    Public Const VER_SUITE_BLADE As Int32 = &H400

 (magari anche su W2003)?
Funziona

 cmq le ho trovate
...
Sì, anche se quel link parla di Net...