Die OS-Version anzeigen

Computer: Software & Programmierung Visual Basic
#1

Hi,

Ich bin ein absoluter VB-Newbie und moechte gerne wissen, wie ich die OS-Version anzeigen lassen kann. Der Befehl sollte sowohl unter NT4, NT5 und WinXP funktionieren…

Vielen Dank,
CJMatSel

#2

Hi

hier findest du wie es geht:

http://support.microsoft.com/default.aspx?scid=kb;en…

gruss

#3

Bitteschön…
Dieses Programm habe ich auf ww.vb-fun.de gefunden, ist also nicht von mir.

**Option Explicit

Private Declare Function GetVersionEx Lib „kernel32“ Alias _
„GetVersionExA“ (lpVersionInformation As OSVERSIONINFO) _
As Long

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

Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2

Private Sub Form_Load()
Dim PlatForm As String, OSVersion As OSVERSIONINFO

OSVersion.dwOSVersionInfoSize = Len(OSVersion)
GetVersionEx OSVersion

PlatForm = „Unbekanntes Betriebssystem“
With OSVersion
If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
If .dwMinorVersion = 0 Then
PlatForm = „Windows 95“
If .szCSDVersion = „B“ Then
PlatForm = PlatForm & " OSR2"
Else
PlatForm = PlatForm & Left$(.szCSDVersion, 2)
End If
ElseIf .dwMinorVersion = 10 Then
PlatForm = „Windows 98“
If .szCSDVersion = „A“ Then
PlatForm = PlatForm & " SE"
End If
ElseIf .dwMinorVersion = 90 Then
PlatForm = „Windows ME“
Else
PlatForm = „Win 32s“
End If
ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT Then
If .dwMajorVersion = 4 Then
PlatForm = „Windows NT“
ElseIf .dwMajorVersion = 5 Then
PlatForm = „Windows 2000“
End If
End If
End With

Label1.Caption = "Aktuelles Betriebssystem: " & vbCrLf & _
vbCrLf & PlatForm
End Sub

Private Sub Command1_Click()
Unload Me
End
End Sub**

LG

Wolfgang

#4

Dankeschoen…
Danke

#5

Danke
Danke, das hat geholfen…