Saber la Versión de Windows (S.O) Utilizando VB .NET

Fecha: 05/Enero/2004

Autor: Angel Enrique Ruiz Pastor (Vzla), [email protected]

http://groups.msn.com/desarrolladoresmiranda

 
.

Este código nos muestra como saber  que Sistema Operativo tiene la PC desde VB .NET

Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicación para Windows.

Usamos la Tecla Tecla “F7” para ir a la vista de Código, cuando nos aparezca la Ventana de Código nos vamos a la primera línea y Importamos el siguiente NameSpace: "Imports System.Environment"

Después nos vamos a la línea donde esta:

Public Class Form1
    Inherits System.Windows.Forms.Form"

Y en la siguiente línea Creamos la Variable "So_Info"

Private So_Info As OperatingSystem
 

Y ahora creamos la Función GetVersion

Public Function GetVersion() As String
        So_Info = OSVersion 'Obtiene un objeto OperatingSystem que contiene el identificador de la plataforma actual y el número de versión.
       
With So_Info
            Select Case .Platform
                Case .Platform.Win32Windows
                    Select Case (.Version.Minor)
                        Case 0
                            getVersion = "Windows 95"
                        Case 10
                            If .Version.Revision.ToString() = "2222A" Then
                                getVersion = "Windows 98 Second Edition"
                            Else
                                getVersion = "Windows 98"
                            End If
                        Case 90
                            getVersion = "Windows Me"
                    End Select

                Case .Platform.Win32NT
                    Select Case (.Version.Major)
                        Case 3
                            getVersion = "Windows NT 3.51"
                        Case 4
                            getVersion = "Windows NT 4.0"
                        Case 5
                            If .Version.Minor = 0 Then
                                getVersion = "Windows 2000"
                            Else
                                getVersion = "Windows XP"
                            End If
                    End Select

                Case Else
                    getVersion = "S.O no conocido"
            End Select
        End With
    End Function

Ahora nos vamos a la vista de diseño usando las teclas  “Shift + F7”

Ahora agregue uno Botón "Button" en el formulario, en el "Button1" coloque la propiedad "Text" de este a: "Saber SO"


Ahora en el evento Click del "Button1", copie y pegue el siguiente código:

         MsgBox(GetVersion, MsgBoxStyle.Information, "S.O")

Quedaría de la siguiente forma:
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         MsgBox(GetVersion, MsgBoxStyle.Information, "S.O")
 
 End Sub
 

Ahora agregue un Botón "Button" en el formulario, en el "Button2" coloque la propiedad "Text" de este a: "Salir"

Ahora en el evento Click del "Button2", copie y pegue el siguiente código:

Me.Close()
 

Quedaría de la siguiente forma:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()

End Sub

 
Ahora ejecute su aplicación presionando F5.
 
 

ir al índice

Fichero con el código de ejemplo (AR_SO.zip - 22,9 KB)
(Nota: El ejercicio esta realizado en Visual Studio .NET 2003)