• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

adaragao

[Resolvido] Como Mostrar Qual o Service Pack do Windows

9 mensagens neste tópico

Boas !

Consigo saber qual o SO usado, memória, etc.

Mas não consigo saber como mostrar o SP usado numa caixa de texto.

Alguém tem alguma ideia ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Diz-me o que é o SP  :-[ (que não estou a vêr o que seja) e talvez te consiga ajudar. 

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa.

SP = Service Pack do Windows

Uso o seguinte para ver o nome, versão e plataforma (32 Bits ou 64) do Windows:

        txtInfowin.Text = (My.Computer.Info.OSFullName.ToString)

        txtosversion.Text = (My.Computer.Info.OSVersion.ToString)

        txtosplatform.Text = (My.Computer.Info.OSPlatform.ToString)

Mas não consigo descubrir como saber o Service Pack instalado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

para saberes o Service Pack instalado tens que ir ao registo, a uma chave que tem lá, para isso usa este codigo:


Dim Service_Pack As String = My.Computer.Registry.GetValue _
        ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion", Nothing)
        msgbox("Service Pack: " & Service_Pack, MsgBoxStyle.Information, "Service Pack")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado yoda.pt, mas era uma solução muito complicada e para vb6.

Obrigado psiico, era isso mesmo que eu queria, uma solução muito prática e simples.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Arranjei uma forma melhor !

Têm de adicionar a referência System.Management ao projecto antes do código.

Fiz uma function, porque coloquei este código numa dll, mas podem usar o código num botão retirando o "Public Function osspinfo() As String", "Return osspinfor" e " End Function".

Não se esqueçam que a linha "Imports System.Management" tem que ficar antes de qualquer código.

Aqui vai o código:

Imports System.Management

Public Function osspinfo() As String

        Dim osspinfor As String = String.Empty

        Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")

        Dim info As ManagementObject

        For Each info In search.Get()

            osspinfor = info("CSDversion").ToString()

        Next

        Return osspinfor

    End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora