![]() |
|
Tipp 0079
|
Betriebssystem ermitteln
|
 |
|
Autor/Einsender:
Datum: |
|
Michael Werner
26.06.2005 |
|
| Entwicklungsumgebung: |
|
VB.Net 2003 |
| Framework: |
|
1.1 |
|
|
|
Mit der Klasse OperatingSystem und der Eigenschaft Environment.OSVersion
können alle Windows-Betriebssysteme ermittelt werden. Grundlage ist die von Microsoft verwendete Platform-ID und
Major- und Minor-Versionsnummer, hier in einer tabellarischen Übersicht zusammengefasst:
|
|
| Betriebssystem |
Platform-ID |
Major-Version |
Minor-Version |
| Windows 95 |
1 |
4 |
0 |
| Windows 98 |
1 |
4 |
10 |
| Windows Me |
1 |
4 |
90 |
| Windows NT 4.0 |
2 |
4 |
0 |
| Windows 2000 |
2 |
5 |
0 |
| Windows XP |
2 |
5 |
1 |
| Windows Server 2003 |
2 |
5 |
2 |
|
| Funktion zum Ermitteln des Betriebssystems |
|
| |
Public Function GetVersion() As String
Dim osInfo As OperatingSystem
osInfo = OSVersion
With osInfo
Select Case .Platform
Case .Platform.Win32Windows
Select Case (.Version.Minor)
Case 0
Return "Windows 95"
Case 10
If .Version.Revision.ToString() = "2222A" Then
Return "Windows 98 Second Edition"
Else
Return "Windows 98"
End If
Case 90
Return "Windows Me"
End Select
Case .Platform.Win32NT
Select Case (.Version.Major)
Case 3
Return "Windows NT 3.51"
Case 4
Return "Windows NT 4.0"
Case 5
Select Case (.Version.Minor)
Case 0
Return "Windows 2000"
Case 1
Return "Windows XP"
Case 2
Return "Windows Server 2003"
End Select
Case Else
Return "Failed"
End Select
End Select
End With
End Function
|
|
|
|
|
|
|
| Windows-Version |
| 98/SE |
 |
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
|
Download (6,2 kB)
|
Downloads bisher: [ 603 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 