none
Pegando o Numero do Serial e do Volume no VB.NET RRS feed

  • Pergunta

  • Galera Boa noite alguém tem uma rotina para pegar numero de serie do HD que funcione.. testei varias rotinas que encontrei aqui no fórum e nenhuma delas funciona...

    Grato ate +

    Rogério 

    terça-feira, 28 de janeiro de 2014 02:11

Respostas

  • Se for realmente o Serial Number o que você quer pegar basta adicionar a referência e importar o namespace

    Imports System.Management

    e usar:

        Dim HDD_Serial As String
        Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
    
        For Each hd In hdd.Get
          HDD_Serial = hd("SerialNumber")
        Next



    Bruno Ferreira de Souza
    MVP - Microsoft Valuable Professional
    MCTS .NET Framework - Windows Applications
    MCPD .NET Framework - Windows Applications
    www.maestrodotnet.com.br
    @BrunoMaestro

    • Marcado como Resposta Giovani Cr quarta-feira, 29 de janeiro de 2014 19:08
    quarta-feira, 29 de janeiro de 2014 07:15