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

pmsmc

Numero de Serie do Disco

4 mensagens neste tópico

Pessoal, Algum de vocês já tem alguma rotina para identificar o numero de serie do disco Rigido ?

em VB6 era muito mais fácil.

Ja estive a ver alguns exemplos, mas não haverá nada para simples, tipo chamar uma API do Windows ou coisa assim ? :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Caro Weasel,

essa pesquisa já tinha feito, só que em todo o código de .NET, aparece um ManagmentObject que mesmo com os Imports dos Namespaces correctos nunca funciona.

Imports System
Imports System.IO
Imports System.Management
Imports System.Windows.Forms
Public Class gethdd
    Private Sub CheckHDSN()
        Try
            Dim Searcher_P As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PhysicalMedia")
            For Each queryObj As ManagementObject In Searcher_P.Get()
                If queryObj("SerialNumber").ToString.Trim = "Y2S0RKFE" Then
                    Exit Sub
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("An error occurred while querying for WMI data: Win32_PhysicalMedia " & ex.Message)
        End Try
        '
        Try
            Dim Searcher_L As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_LogicalDisk WHERE DeviceID = 'C:'")
            For Each queryObj As ManagementObject In Searcher_L.Get()
                If queryObj("VolumeSerialNumber").ToString.Trim = "226C1A0B" Then
                    Exit Sub
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("An error occurred while querying for WMI data: VolumeSerialNumber " & ex.Message)
        End Try
        MessageBox.Show("Hard Disk Serial Number Not Matching !!!" & vbNewLine & vbNewLine & "Asta La Vista Baby !!!")
        End
    End Sub
End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens que adicionar a Referência System.Management.

No solution explorer » Botão direito na Aplicação » Add Reference » Na tab .NET procura por System.Management » Dá ok » Os erros desapareceram.

Cumps.

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