NUMERO DE SERIE DO HD

ELMO01 12/01/2012 19:25:39
#393117
Como faço para saber qual o nº de série do HD de uma determinada máquina.

Obrigado
NICKOSOFT 12/01/2012 19:53:19
#393121 Resposta escolhida
precisa importar
Imports System.Management
  Public Class clsHD
    Dim Search1 As New ManagementObjectSearcher([Ô]Select * from Win32_LogicalDisk[Ô])

    Public Function Serial()
        For Each info In Search1.Get()

            If CStr(info([Ô]DriveType[Ô])) = 3 Then
                Return info([Ô]VolumeSerialNumber[Ô]).ToString()
            End If
        Next
    End Function

End Class
ELMO01 12/01/2012 20:13:17
#393124
NICKO - obrigado por ter respondido, mas tá dando erro nesta limha

Dim Search1 As New ManagementObjectSearcher([Ô]Select * from Win32_LogicalDisk[Ô])

tem que colocar mais alguma coisa no arquivo de classe??
NICKOSOFT 13/01/2012 06:31:06
#393139
vc tem q adicionar a referencia system.management e fazer o Imports System.Management
ELMO01 16/01/2012 14:57:00
#393342
ALEVALE - o que eu gostaria é de saber o NÚMERO DO HD e não o tipo de sistema operacional do computador, mas mesmo assim valeu pela dica
ELMO01 16/01/2012 15:14:40
#393345
Ai pessoal - consegui fazer, em um MÓDULO coloque a seguinte função

Imports System.Management

Public NewSerial As String

Public Function Proc_Serial()
Dim Search1 As New ManagementObjectSearcher([Ô]Select * from Win32_LogicalDisk[Ô])
For Each info In Search1.Get()
If CStr(info([Ô]DriveType[Ô])) = 3 Then
NewSerial = info([Ô]VolumeSerialNumber[Ô]).ToString()
End If
Next
Return NewSerial
End Function

Agora em uma LABEL digite assim

Label2.Text = Proc_Serial()

Pronto voce vai ver o número serial de uma determinada máquina
Tópico encerrado , respostas não são mais permitidas
Voltar