CAPTURAR NUMERO DE SERIAL DO WINDOWS
Gente, a duvida é uma só, estou trabalhando pra seguranca do meu sistema e agora estou querendo verificar a maquina também, então, teria como pegar o numero de serie do windows instalado na maquina?
O número serial do windows, aquele que se usa para instalar, esse não tem como. Mas você pode pegar o serial do HD, da placa de rede, da placa mãe... é até melhor, porque mesmo que o cara formatar o computador, sua segurança não seria quebrada
KERPLUNK não seria o número do serial que usa pra instalar, eu postei errado, foi mal, seria sim o numero de Série, mas você dizendo agora, acho que seria uma melhor ideia pegar o número de série de algum Hardware, mas sendo assim, você ou alguém teria alguma ideia de como fazer esse procedimento? Sendo que nesse caso seria muito melhor pegar o número de série da placa mãe, pois um HD, placa de rede etc, é mais fácil de ser substituÃdo, abraços.
achei meio confuso, tava tentando ski mas sem sucesso.. e no caso do topico, seria serie e nao serial, mas acho que da placa mae seria bom tambemm..
Alguém?
Adicione a referência para a classe.
Tá em NET.
[ô]VARIAVEIS WMI
Public objOS As ManagementObjectSearcher
Public objCS As ManagementObjectSearcher
Public objMgmt As ManagementObject
[ô]DESCOBRE A SERIAL NUMBER DA ESTAÇÃO
Public Function fncSerialNumber()
Try
objOS = New ManagementObjectSearcher([Ô]SELECT * FROM win32_bios[Ô])
For Each objMgmt In objOS.Get
strSerialNumber = UCase((objMgmt([Ô]SerialNumber[Ô]).ToString()))
Next
Catch ex As Exception
fncGravaLog([Ô]FNCSERIALNUMBER[Ô], ex.Message.ToString)
End Try
End Function
Tá em NET.
[ô]VARIAVEIS WMI
Public objOS As ManagementObjectSearcher
Public objCS As ManagementObjectSearcher
Public objMgmt As ManagementObject
[ô]DESCOBRE A SERIAL NUMBER DA ESTAÇÃO
Public Function fncSerialNumber()
Try
objOS = New ManagementObjectSearcher([Ô]SELECT * FROM win32_bios[Ô])
For Each objMgmt In objOS.Get
strSerialNumber = UCase((objMgmt([Ô]SerialNumber[Ô]).ToString()))
Next
Catch ex As Exception
fncGravaLog([Ô]FNCSERIALNUMBER[Ô], ex.Message.ToString)
End Try
End Function
Cara, não manjo nadinha de .NET 
Tópico encerrado , respostas não são mais permitidas