Identificando o Sistema Operacional
VB.NET
20/08/2008 por
Jar Jar Binks
Este exemplo identifica a versão do Windows no Computador:
Public Function getVersaoOS() as String
Dim osInfo As OperatingSystem
osInfo = System.Environment.OSVersion
Select Case osInfo.Platform
Case PlatformID.Win32Windows
'Determinando a versão específica do Windows (Windows 95, Windows 98, Windows 98 Second Edition, ou Windows Me).
Select Case (osInfo.Version.Minor)
Case 0
Return ("Windows 95.")
Case 10
If osInfo.Version.Revision.ToString() = "2222A" Then
Return ("Windows 98 SE.")
Else
Return ("Windows 98.")
End If
Case 90
Return ("Windows Me.")
End Select
Case PlatformID.Win32NT
'Versão específica do Windows( Windows NT 3.51, Windows NT 4.0,Windows 2000, Windows XP , ou Windows Server 2003).
Select Case (osInfo.Version.Major)
Case 3
Return ("Sistema:Windows NT 3.51")
Case 4
Return ("Sistema:Windows NT 4.0")
Case 5
Select Case (osInfo.Version.Minor)
Case 0
Return ("Sistema:Windows 2000")
Case 1
Return ("Sistema:Windows XP")
Case 2
Return ("Sistema:Windows Server 2003")
End Select
Case 6
Return ("Sistema : Windows Vista")
Case Else
Return "Sistema WINDOWS: Versão não reconhecida :"
End Select
End Select
End Function
*** Dica Postada por POG MASTERS DESKTOP - v1.0
Comentários sobre o artigo
21/08/2008
por
Fernando
Fantástico. Muito útil. Um amigo meu está fazendo um projeto que creio que ele vai utilizar esta função!
Poste um comentário >>
|