Find Windows version/build number

Sådan:

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q189/2/49.asp&NoWebContent=1

//akj

MsgBox "Microsoft Excel is using " & Application.OperatingSystem

kabbak >> Den er til VBA ikke vb

//akj

Jeg skal bruge den til Visual Basic 6. Når den finder Windows versionen skal den skrive det til en label ved program start!

Jeg skal også bruge det til så programmet ved hvad den skal gøre ved de forskellige styresystemer, da det er forskellige operationer til hvert af dem! Så jeg f.eks kan bruge :

If lblWinVer.Caption = "Windows XP" Then
'ting der skal gøres i WinXP

så skal du bruge mit eks.

Et modul:
Public Declare Function GetVersionExA Lib "kernel32" _
              (lpVersionInformation As OSVERSIONINFO) As Integer

            Public Type OSVERSIONINFO
              dwOSVersionInfoSize As Long
              dwMajorVersion As Long
              dwMinorVersion As Long
              dwBuildNumber As Long
              dwPlatformId As Long
              szCSDVersion As String * 128
            End Type

            Public Function getVersion() As String
              Dim osinfo As OSVERSIONINFO
              Dim retvalue As Integer

              osinfo.dwOSVersionInfoSize = 148
              osinfo.szCSDVersion = Space$(128)
              retvalue = GetVersionExA(osinfo)

              With osinfo
              Select Case .dwPlatformId

                Case 1
               
                    Select Case .dwMinorVersion
                        Case 0
                            getVersion = "Windows 95"
                        Case 10
                            getVersion = "Windows 98"
                        Case 90
                            getVersion = "Windows Mellinnium"
                    End Select
   
                Case 2
                    Select Case .dwMajorVersion
                        Case 3
                            getVersion = "Windows NT 3.51"
                        Case 4
                            getVersion = "Windows NT 4.0"
                        Case 5
                            If .dwMinorVersion = 0 Then
                                getVersion = "Windows 2000"
                            Else
                                getVersion = "Windows XP"
                            End If
                    End Select
   
                Case Else
                  getVersion = "Failed"
            End Select

              End With
            End Function
på formen

Private Sub Form_Load()
Label1.Caption = getVersion()

End Sub


//akj

Synes jeg prøvede det igår, men der kom bare til at stå getVersion() i den label. Men jeg prøver her senere.

Så er det vel fordi du har lavet den sådan:
Label1.Caption = "getVersion()"

//akj

Ved du hvad jeg skal tilføje af kode i modulet, hvis den også skal kunne finde Windows Server 2003 ?

Prøv at lave en testversion

ret i modulet lige efter With osinfo så det bliver til

With osinfo

msgbox ".dwPlatformId = " & .dwPlatformId
msgbox ".dwMajorVersion = " & .dwMajorVersion
msgbox ".dwMinorVersion = " & .dwMinorVersion


Test det på 2003 serveren og giv mig tallene.

//akj

Nej ok, det må blive en anden gang, da jeg ikke selv kører med 2003. Så skal jeg først lige ha fundet nogle. Men jeg takker.

Selvtak.

//akj

Hey, hvis du stadig er ledig til Win2003 problem. Hjælper det hvis du ved at Win2003 har version nummer: 5.2.3790 ?

Nej jeg fandt selv ud af det :)

                  Case 5
                      If .dwMinorVersion = 0 Then
                          getVersion = "Windows 2000"
                      ElseIf .dwMinorVersion = 2 Then
                          getVersion = "Windows Server 2003"
                      Else
                          getVersion = "Windows XP"
                      End If

Fint :-)

//akj