PEGAR NUMERO HD/SERIAL NO VISTA
Para pegar o serial do HD, uso a seguinte função:
[ô][ô][ô]
Dim di As DRIVE_INFO
Dim drvNumber As Long
Dim serialreal As String
di = GetDriveInfo(drvNumber)
With di
serialreal = .SerialNumber
serialreal = Replace(serialreal, [Ô]-[Ô], [Ô][Ô])
End With
[ô][ô][ô][ô]
Funciona certo no XP, mas ao utilizar no Vista, ele está retornando vazio.
Desabilitei o firewall para este projeto, mas não resolveu.
O que fazer?
Agradecido,
Gardel
[ô][ô][ô]
Dim di As DRIVE_INFO
Dim drvNumber As Long
Dim serialreal As String
di = GetDriveInfo(drvNumber)
With di
serialreal = .SerialNumber
serialreal = Replace(serialreal, [Ô]-[Ô], [Ô][Ô])
End With
[ô][ô][ô][ô]
Funciona certo no XP, mas ao utilizar no Vista, ele está retornando vazio.
Desabilitei o firewall para este projeto, mas não resolveu.
O que fazer?
Agradecido,
Gardel
Parece besteira, mas antes de iniciar seu projeto seu EXECUTAVEL, clique com o botão direito nele e selecione a opção [Ô]Executar como Administrador[Ô] e veja se funciona.
Se funcionar, é como sempre o VISTA traz problemas, problemas de permissão.
Qualquer coisa post ae de novo.
Abraços !!
Se funcionar, é como sempre o VISTA traz problemas, problemas de permissão.
Qualquer coisa post ae de novo.
Abraços !!
Não é besteira não. é esta a resposta.
Obrigado.
Mas como faço agora para sempre iniciar como admnistrador, através de atalho?
Obrigado.
Mas como faço agora para sempre iniciar como admnistrador, através de atalho?
Tópico encerrado , respostas não são mais permitidas