{"id":20,"date":"2010-04-30T21:19:38","date_gmt":"2010-04-30T19:19:38","guid":{"rendered":"http:\/\/funrecycler.com\/?p=6181"},"modified":"2010-04-30T21:19:38","modified_gmt":"2010-04-30T19:19:38","slug":"vb-net-windows-version-erkennen","status":"publish","type":"post","link":"https:\/\/funrecycler.com\/index.php\/2010\/04\/30\/vb-net-windows-version-erkennen\/","title":{"rendered":"VB.net – Windows Version erkennen"},"content":{"rendered":"

\"\"<\/a> Wenn man ein Programm mit Vb.net erstellt, ist es in den meisten F\u00e4llen nicht notwendig, die Windows Version abzufragen, auf welchen das Programm ausgef\u00fchrt wird. Doch programmiert man ein Tool\/Programm was auf spezielle Funktionen zur\u00fcckgreift, die nur in von einer bestimmten Windows Version unterst\u00fctzt werden, so ist es ganz praktisch beim Programmstart die Version in Erfahrung zu bringen. Da .net hier sehr viele Funktionen bietet um Systeminformationen abzufragen, ist dies mit einer kleinen Funktion sehr schnell erledigt. \u00dcber den System Zugriff: System.Environment.OSVersion erh\u00e4lt man als R\u00fcckgabewert eine Nummer. Entsprechende Unterabfragen wie platform, major und minor liefern weitere Zahlen, mit welchen sich durch Kombination das Betriebssystem ermitteln l\u00e4sst. In der MSDN Online Bibliothek kann man nachlesen welche Nummer\/Kombination welchen Betriebssystem entspricht. <\/p>\n

\n\n\n\n\n\n\n
<\/td>\n\n

Windows 98<\/p>\n<\/td>\n

\n

Windows Me<\/p>\n<\/td>\n

\n

Windows NT 4.0<\/p>\n<\/td>\n

\n

Windows 2000<\/p>\n<\/td>\n

\n

Windows XP<\/p>\n<\/td>\n

\n

Windows Server 2003<\/p>\n<\/td>\n

\n

Windows Vista \/2008 Server<\/p>\n<\/td>\n

\n

Windows 7<\/p>\n<\/td>\n<\/tr>\n

\n

Platform<\/p>\n<\/td>\n

\n

1<\/p>\n<\/td>\n

\n

1<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n

\n

2<\/p>\n<\/td>\n<\/tr>\n

\n

Version.Major<\/p>\n<\/td>\n

\n

4<\/p>\n<\/td>\n

\n

4<\/p>\n<\/td>\n

\n

4<\/p>\n<\/td>\n

\n

5<\/p>\n<\/td>\n

\n

5<\/p>\n<\/td>\n

\n

5<\/p>\n<\/td>\n

\n

6<\/p>\n<\/td>\n

\n

6<\/p>\n<\/td>\n<\/tr>\n

\n

Version.Minor<\/p>\n<\/td>\n

\n

10<\/p>\n<\/td>\n

\n

90<\/p>\n<\/td>\n

\n

0<\/p>\n<\/td>\n

\n

0<\/p>\n<\/td>\n

\n

1<\/p>\n<\/td>\n

<\/td>\n\n

?<\/p>\n<\/td>\n

\n

?<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n

<\/p>\n

In der Funktion lassen sich \u00fcber Select Case Anweisungen das Betriebssystem "filtern". <\/p>\n

Public Function func_read_windows_version<\/code><\/pre>\n
 Funktion definieren <\/p>\n
Dim os_version As System.OperatingSystem = System.Environment.OSVersion\nDim os_is_version As String<\/code><\/pre>\n
 OS Version auslesen und in eine Variable speichern, os_is_version als R\u00fcckgabevariable definieren <\/p>\n
With os_version\nSelect Case .platform\n  Case .platform.win32windows\n    Select Case (.Version.Minor)\n      Case 0\n        os_is_version = "Windows 95"\n      Case 10\n\tIf .version.revision.tostring() = "2222A" Then\n\t  os_is_version = "Windows 98 - Second Edition"\n\tElse\n\t  os_is_version = "Windows 98"\n\tEnd If\n      Case 90\n\t  os_is_version = "Windows Me"\n    End Select<\/code><\/pre>\n
 Platform bestimmen = DOS Basis <\/p>\n
Case .platform.win32nt\n  Select Case (.Version.Major)\n    Case 3\n      os_is_version = "Windows NT 3.51"\n    Case 4\n      os_is_version = "Windows NT 4.0"\n    Case 5\n      Select Case (.Version.Minor)\n        Case 0\n\t  os_is_version = "Windows 2000"\n\tCase 1\n\t  os_is_version = "Windows XP"\n\tCase 2\n\t  os_is_version = "Windows 2003 Server"\n      End Select\n    End Select\n  End Select\nEnd With<\/code><\/pre>\n
 Platform bestimmen = NT Basis <\/p>\n
return os_is_version\nEnd Function<\/code><\/pre>\n
 R\u00fcckgabe der Version Die komplette Funktion sieht wie folgt aus: <\/p>\n
Public Function func_read_windows_version\nDim os_version As System.OperatingSystem = System.Environment.OSVersion\nDim os_is_version As String\nWith os_version\nSelect Case .platform\n  Case .platform.win32windows\n    Select Case (.Version.Minor)\n      Case 0\n        os_is_version = "Windows 95"\n      Case 10\n\tIf .version.revision.tostring() = "2222A" Then\n\t  os_is_version = "Windows 98 - Second Edition"\n\tElse\n\t  os_is_version = "Windows 98"\n\tEnd If\n      Case 90\n\t  os_is_version = "Windows Me"\n    End Select\nCase .platform.win32nt\n  Select Case (.Version.Major)\n    Case 3\n      os_is_version = "Windows NT 3.51"\n    Case 4\n      os_is_version = "Windows NT 4.0"\n    Case 5\n      Select Case (.Version.Minor)\n        Case 0\n\t  os_is_version = "Windows 2000"\n\tCase 1\n\t  os_is_version = "Windows XP"\n\tCase 2\n\t  os_is_version = "Windows 2003 Server"\n      End Select\n    End Select\n  End Select\nEnd With\nreturn os_is_version\nEnd Function<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
Wenn man ein Programm mit Vb.net erstellt, ist es in den meisten F\u00e4llen nicht notwendig, die Windows Version<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,5],"tags":[17,18,19,20,21,22],"class_list":["post-20","post","type-post","status-publish","format-standard","hentry","category-computer-und-technik","category-programmieren","tag-vbnet","tag-vb-net-win","tag-vb-net-win-version","tag-vb-net-windows-version","tag-vb-net-windows-version-ermitteln","tag-windows-version"],"_links":{"self":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/20","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/comments?post=20"}],"version-history":[{"count":2,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/20\/revisions"}],"predecessor-version":[{"id":40,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/20\/revisions\/40"}],"wp:attachment":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/media?parent=20"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/categories?post=20"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/tags?post=20"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}