Ir para o conteúdo
adaragao

[Resolvido] Como Mostrar Qual o Service Pack do Windows

Mensagens Recomendadas

adaragao    0
adaragao

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 ?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
adaragao    0
adaragao

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
psiico    1
psiico

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")

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
adaragao    0
adaragao

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
adaragao    0
adaragao

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade