Betriebssystem ermitteln (inkl. Architektur)

    • VB.NET

    Es gibt 48 Antworten in diesem Thema. Der letzte Beitrag () ist von Rikudo.

      Das ist ein Button...
      wintoolz.de
      • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
      • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
      • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

      Benutze auch du Ecosia

      aso, ok





      also bei mir geht da iw nicht :

      das end function ist grün unterstrichen, und als felermeldung steht da : Von der Funktion "GetOSVersion" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten.

      singu schrieb:

      Du frägst ab, ob es eine Workstation ist
      Hm .... meine letzte Lösung ist ganz blöd.
      Dein Vorschlag ist schon gut, nur weiß ich nicht, wie ich die Sache anpacke.

      Mit WMI kann ich diese mit ProductType abfragen.
      Aber wie packe ich die in die Abfrage rein? Oder gibt es noch ein anderen Weg?

      VB.NET-Quellcode

      1. Public Function GetOSVersion() As String
      2. Select Case Environment.OSVersion.Platform
      4. Case PlatformID.Win32NT
      5. Select Case Environment.OSVersion.Version.Major
      6. Case 5
      7. Select Case Environment.OSVersion.Version.Minor
      8. Case 0
      9. Return "Windows 2000"
      10. Case 1
      11. Return "Windows XP"
      12. Case 2
      13. Return "Windows 2003"
      14. End Select
      15. Case 6
      16. Select Case Environment.OSVersion.Version.Minor
      17. Case 0
      18. Return "Windows Vista/Windows 2008 Server"
      19. Case 1
      20. Return "Windows 7"
      21. End Select
      23. Case Else
      24. Return "Unbekannt"
      25. End Select
      27. Case Else
      28. Return "Unbekannt"
      29. End Select
      30. End Function
      Grüße JackCimberly

      Deine Anfrage erledigt?
      Als erledigt markieren

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „JackCimberly“ ()

      ramon1611 schrieb:

      End Function ist grün unterstrichen
      Fehlermeldung : Von der Funktion "GetOSVersion" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten.

      VB.NET-Quellcode

      1. '[...]
      2. End Select
      3. Return "Unbekannt"
      4. End Function


      Da fehlte bei mir nur noch ein Return am Ende ..... sry
      Grüße JackCimberly

      Deine Anfrage erledigt?
      Als erledigt markieren

      Schau mal in dem Beispiel.
      wintoolz.de
      • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
      • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
      • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

      Benutze auch du Ecosia

      @progThis
      1. Du weißt schon, wie alt der Thread ist?!
      2. My-Namespace :wacko:
      Bitte lerne zuerst doch mal die Grundlagen, bevor du hier was postest...
      Ist wirklich nicht böse gemeint, aber das ist nicht gut immer schlechte Vorschläge zu posten.

      Hallo

      Da der Thread doch etwas älter ist.

      Hier meine Lösung für Architektur und OS:

      VB.NET-Quellcode

      1. Public Function GetArchitektur() As String
      2. If Environment.Is64BitOperatingSystem Then
      3. Return "64 Bit"
      4. End If
      6. Return "32 Bit"
      7. End Function


      VB.NET-Quellcode

      1. Public Function GetOSVersion() As String
      2. Dim oSystem As OperatingSystem = Environment.OSVersion
      3. Dim minor = oSystem.Version.Minor
      4. Dim major = oSystem.Version.Major
      6. Dim sPlatform As String = "Windows 7"
      8. If major = 4 And minor = 0 Then
      9. sPlatform = "Windows 95"
      10. ElseIf major = 4 And minor = 10 Then
      11. sPlatform = "Windows 98"
      12. ElseIf major = 4 And minor = 90 Then
      13. sPlatform = "Windows ME"
      14. ElseIf major = 5 And minor = 0 Then
      15. sPlatform = "Windows 2000"
      16. ElseIf major = 5 And (minor = 1 Or minor = 2) Then
      17. sPlatform = "Windows XP"
      18. ElseIf major = 6 And minor = 1 Then
      19. sPlatform = "Windows 7"
      20. ElseIf major = 6 And minor = 2 Then
      21. sPlatform = "Windows 8"
      22. ElseIf major = 6 And minor = 3 Then
      23. sPlatform = "Windows 8.1"
      24. Else
      25. sPlatform = "Unbekannt"
      26. End If
      28. GetOSVersion = sPlatform
      29. End Function

      @MrBizzl

      Mal nen bisschen verbessert:

      VB.NET-Quellcode

      1. Public Function GetArchitecture() As String
      2. Return If(Environment.Is64BitOperatingSystem, "64 Bit", "32 Bit")
      3. End Function
      5. Public Function GetOSVersion() As String
      6. Dim minor = Environment.OSVersion.Version.Minor
      7. Dim major = Environment.OSVersion.Version.Major
      8. Select Case True
      9. Case major = 4 AndAlso minor = 0
      10. Return "Windows 95"
      11. Case major = 4 AndAlso minor = 10
      12. Return "Windows 98"
      13. Case major = 4 AndAlso minor = 90
      14. Return "Windows ME"
      15. Case major = 5 AndAlso minor = 0
      16. Return "Windows 2000"
      17. Case major = 5 AndAlso (minor = 1 OrElse minor = 2)
      18. Return "Windows XP"
      19. Case major = 6 AndAlso minor = 1
      20. Return "Windows 7"
      21. Case major = 6 AndAlso minor = 2
      22. Return "Windows 8"
      23. Case major = 6 AndAlso minor = 3
      24. Return "Windows 8.1"
      25. Case major = 6 AndAlso minor = 4
      26. Return "Windows 10"
      27. Case Else
      28. Return "Unbekannt"
      29. End Select
      30. End Function
      Mfg
      Vincent

      Moin,

      bitte keine alten Threads ausgraben. Außerdem würde ich statt einem String lieber direkt einen Boolean oder im Zweifelsfalle eine Enumeration verwenden.

      Grüße
      #define for for(int z=0;z<2;++z)for // Have fun!
      Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

      Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

      Moin,

      entschuldigung, das habe ich nicht beachtet. Werde ich das nächste mal schauen.

      Grüße
      #define for for(int z=0;z<2;++z)for // Have fun!
      Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

      Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

      Daniel Baumert schrieb:

      major = 6 minor = 3 entspricht auch Win 8.1.?


      en.wikipedia.org/wiki/List_of_Microsoft_Windows_versions

      major = 6 und minor = 3 ist Windows 8.1
      Windows 8 == 6.2
      Windows 10 == 6.4

      Daniel Baumert schrieb:

      Kann man also de facto mit dieser Methode nicht zwischen Win 8 und Win 8.1
      differenzieren?

      Doch, weil 6.3 ist Win8.1 und 6.2 ist Win8
      Grüße,
      Lukas

      Fragen über Themen im Forum per Konversation werden gelöscht und die Absender blockiert...

    Facebook