2010-07-22 3 views
2

Я использую VB .Net 2.0. Я знаю, что можно обнаружить с помощью ОСКак определить, какая ОС работает?

System.Environment.OSVersion 

Может кто-нибудь сказать мне, если есть список где-нибудь, где я могу найти то, что, что создает для различных версий операционной системы.

В частности, я пытаюсь определить, работает ли пользователь под управлением Windows 7 64-bit.

+0

Дубликата http://stackoverflow.com/questions/860459/determine-os-using-the-environment-osversion-object-c – EndangeredMassa

ответ

0

Использование:

Environment.OSVersion.ToString() 

Это будет возвращать значения, как:

"Microsoft Windows NT 5.0.2195.0" 

Here is a link о том, как извлечь ОС от версии/номер сборки.

Или вы можете use this function:

Public Function GetOSVersion() As String 
    Select Case Environment.OSVersion.Platform 
     Case PlatformID.Win32S 
      Return "Win 3.1" 
     Case PlatformID.Win32Windows 
      Select Case Environment.OSVersion.Version.Minor 
       Case 0 
        Return "Win95" 
       Case 10 
        Return "Win98" 
       Case 90 
        Return "WinME" 
       Case Else 
        Return "Unknown" 
      End Select 
     Case PlatformID.Win32NT 
      Select Case Environment.OSVersion.Version.Major 
       Case 3 
        Return "NT 3.51" 
       Case 4 
        Return "NT 4.0" 
       Case 5 
        Select Case _ 
         Environment.OSVersion.Version.Minor 
         Case 0 
          Return "Win2000" 
         Case 1 
          Return "WinXP" 
         Case 2 
          Return "Win2003" 
        End Select 
       Case 6 
        Return "Vista/Win2008Server" 
       Case Else 
        Return "Unknown" 
      End Select 
     Case PlatformID.WinCE 
      Return "Win CE" 
    End Select 
End Function 
0

Наиболее полный Решение для этого я нашел, это класс PJ Naughter DtWinver. Он может различать выпуски Windows (Starter Edition, Home Basic, Home Premium, Professional, Enterprise и т. Д.), Которые, по общему признанию, могут быть функциональными возможностями, которые вам не нужны.

0

Это работает для меня, вместо проверки номера версий, это просто проверяет текст, который возвращается в ОС Windows

ПОЛУЧИТЕ имя операционной системы

 Dim machineOSPlatform as String 
     If My.Computer.Info.OSFullName.Contains("7") Then 
      machineOSPlatform = "Windows 7" 
     ElseIf My.Computer.Info.OSFullName.Contains("XP") Then 
      machineOSPlatform = "Windows XP" 
     ElseIf My.Computer.Info.OSFullName.Contains("8") Then 
      machineOSPlatform = "Windows 8" 
     ElseIf My.Computer.Info.OSFullName.Contains("Vista") Then 
      machineOSPlatform = "Windows Vista" 
     ElseIf My.Computer.Info.OSFullName.Contains("2008") Then 
      machineOSPlatform = "Windows 2008 Server" 
     ElseIf My.Computer.Info.OSFullName.Contains("2012") Then 
      machineOSPlatform = "Windows 2012 Server" 
     ElseIf My.Computer.Info.OSFullName.Contains("2003") Then 
      machineOSPlatform - "Windows 2003 Server" 
     Else 
      machineOSPlatform = "Unknown OS" 
     End If 

http://www.vbforums.com/showthread.php?676340-how-can-i-get-visual-basic-to-show-what-os-your-running

Смежные вопросы