[RESOLVIDO] SERIAL HD
Bom Galera...
Galera eu procurei em todas a partes da net, mas nenhum exemplo funcionou....
Gostaria de pegar o Serial (fÃsico) do HD, mas nenhum exemplo funciona no Visual Studio 2010...
Alguém sabe algum exemplo funcional nessa versão do VB.Net??
Se puderem me ajudar fico agradecido...
Att.
Luiz
Galera eu procurei em todas a partes da net, mas nenhum exemplo funcionou....
Gostaria de pegar o Serial (fÃsico) do HD, mas nenhum exemplo funciona no Visual Studio 2010...
Alguém sabe algum exemplo funcional nessa versão do VB.Net??
Se puderem me ajudar fico agradecido...
Att.
Luiz
Achei um aqui mesmo no fórum...
Código
[txt-color=#0000f0]Imports[/txt-color] System.Management
[txt-color=#0000f0]Private Sub[/txt-color] Form1_Load([txt-color=#0000f0]ByVa[/txt-color]l sender [txt-color=#0000f0]As[/txt-color] System.Object, [txt-color=#0000f0]ByVal[/txt-color] e [txt-color=#0000f0]As[/txt-color] System.EventArgs) [txt-color=#0000f0]Handles MyBase[/txt-color].Load
[txt-color=#0000f0]Dim[/txt-color] mos1 [txt-color=#0000f0]As New ManagementObjectSearcher[/txt-color]([txt-color=#e80000][Ô]SELECT * FROM Win32_DiskDrive WHERE index = [ô]0[ô][Ô][/txt-color])
[txt-color=#0000f0]For Each[/txt-color] Serial [txt-color=#0000f0]As ManagementObject In[/txt-color] mos1.Get()
[txt-color=#0000f0]Try[/txt-color]
Label1.Text = Serial([txt-color=#e80000][Ô]SerialNumber[Ô][/txt-color]).ToString()
[txt-color=#0000f0]Catch[/txt-color] ee [txt-color=#0000f0]As Exception[/txt-color]
[txt-color=#007100] [ô] em caso de erro pega assinatura do hd, que tambem é unica[/txt-color]
Label1.Text = Serial([txt-color=#e80000][Ô]Signature[Ô][/txt-color])
[txt-color=#0000f0] End Try
Next
End Sub[/txt-color]
Se eu coloco em um novo projeto, mesmo colocando o imports, da erro no ManagementObjectSearcher e no ManagementObject....
Como que eu faço para retirar esse erro???
Código
[txt-color=#0000f0]Imports[/txt-color] System.Management
[txt-color=#0000f0]Private Sub[/txt-color] Form1_Load([txt-color=#0000f0]ByVa[/txt-color]l sender [txt-color=#0000f0]As[/txt-color] System.Object, [txt-color=#0000f0]ByVal[/txt-color] e [txt-color=#0000f0]As[/txt-color] System.EventArgs) [txt-color=#0000f0]Handles MyBase[/txt-color].Load
[txt-color=#0000f0]Dim[/txt-color] mos1 [txt-color=#0000f0]As New ManagementObjectSearcher[/txt-color]([txt-color=#e80000][Ô]SELECT * FROM Win32_DiskDrive WHERE index = [ô]0[ô][Ô][/txt-color])
[txt-color=#0000f0]For Each[/txt-color] Serial [txt-color=#0000f0]As ManagementObject In[/txt-color] mos1.Get()
[txt-color=#0000f0]Try[/txt-color]
Label1.Text = Serial([txt-color=#e80000][Ô]SerialNumber[Ô][/txt-color]).ToString()
[txt-color=#0000f0]Catch[/txt-color] ee [txt-color=#0000f0]As Exception[/txt-color]
[txt-color=#007100] [ô] em caso de erro pega assinatura do hd, que tambem é unica[/txt-color]
Label1.Text = Serial([txt-color=#e80000][Ô]Signature[Ô][/txt-color])
[txt-color=#0000f0] End Try
Next
End Sub[/txt-color]
Se eu coloco em um novo projeto, mesmo colocando o imports, da erro no ManagementObjectSearcher e no ManagementObject....
Como que eu faço para retirar esse erro???
Então ALEVALE mesmo eu colocando o imports, continua dando erro nos ManagementObjectSearcher / ManagementObjectSearcher / ManagementObject / ManagementObjectSearcher....
Sera que eu tenho que fazer referencia a mais alguma coisa para não dar mais esse erro?
Sera que eu tenho que fazer referencia a mais alguma coisa para não dar mais esse erro?
Na Mosta...
Muito Obrigado ALEVALE
Muito Obrigado ALEVALE
Tópico encerrado , respostas não são mais permitidas