ID DO PENDRIVE RESOLVIDO
Olá pessoal, como acho a número de série do pen drive, ou a identificação, pois estou querendo montar uma pen-lock.
é possivel mudar essa id do pen drive? é possivel clonar o pendrive?
Obrigado
Solução
Procurando por vários dias achei esta função e resolvi compartilhar com todos
Segue:
em um form insira uma label com nome lblserial e um command button
Cole:
Private Sub Command1_Click()
strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set colitems = objWMIService.ExecQuery([Ô]SELECT * FROM Win32_DiskDrive[Ô], , 48)
For Each objitem In colitems
If objitem.interfacetype = [Ô]USB[Ô] Then sernum = objitem.pnpdeviceid
Next
sernum = Mid(sernum, InStrRev(sernum, [Ô]\[Ô]) + 1)
If sernum = [Ô][Ô] Then
lblSerial.Caption = [Ô]xxx[Ô]
Else
sernum = Left(sernum, InStr(sernum, [Ô]&[Ô]) - 1)
lblSerial.Caption = sernum
End If
End Sub
Agora gostaria de saber se é possÃvel clonar o pen drive, alguem que conhece eletronica.
Obrigado
é possivel mudar essa id do pen drive? é possivel clonar o pendrive?
Obrigado
Solução
Procurando por vários dias achei esta função e resolvi compartilhar com todos
Segue:
em um form insira uma label com nome lblserial e um command button
Cole:
Private Sub Command1_Click()
strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set colitems = objWMIService.ExecQuery([Ô]SELECT * FROM Win32_DiskDrive[Ô], , 48)
For Each objitem In colitems
If objitem.interfacetype = [Ô]USB[Ô] Then sernum = objitem.pnpdeviceid
Next
sernum = Mid(sernum, InStrRev(sernum, [Ô]\[Ô]) + 1)
If sernum = [Ô][Ô] Then
lblSerial.Caption = [Ô]xxx[Ô]
Else
sernum = Left(sernum, InStr(sernum, [Ô]&[Ô]) - 1)
lblSerial.Caption = sernum
End If
End Sub
Agora gostaria de saber se é possÃvel clonar o pen drive, alguem que conhece eletronica.
Obrigado
JAMESBOND o arquivo está incompleto, só tem um arquivo....
ninguem usa o sistema de pen-lock? é possÃvel clonar uma pen, pois uso uma função onde acho o número de série, mas preciso o id fisico, alguem já trabalhou com isso
muito obrigado
muito obrigado
resolvido
Sergio resolvido o quê?
A clonagem do pendriver ou o ID? Como?
A clonagem do pendriver ou o ID? Como?
>
Olá SERGIOPASCOAL
Pelo que vejo, somente o código que vc postou como solução não funciona, de cara não vejo a declaração das variáveis.
Vc poderia postar o arquivo do código funcional ?
Outra, vc fez duas perguntas e conseguiu a resposta para ambas?
[]'s
Olá SERGIOPASCOAL
Pelo que vejo, somente o código que vc postou como solução não funciona, de cara não vejo a declaração das variáveis.
Vc poderia postar o arquivo do código funcional ?
Outra, vc fez duas perguntas e conseguiu a resposta para ambas?
[]'s
Desculpe pessoal, talvez tenha comentado errado, oque eu consegui foi achar o ID do pen drive com o código abaixo
Private Sub Command1_Click()
strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set colitems = objWMIService.ExecQuery([Ô]SELECT * FROM Win32_DiskDrive[Ô], , 48)
For Each objitem In colitems
If objitem.interfacetype = [Ô]USB[Ô] Then sernum = objitem.pnpdeviceid
Next
sernum = Mid(sernum, InStrRev(sernum, [Ô]\[Ô]) + 1)
If sernum = [Ô][Ô] Then
lblSerial.Caption = [Ô]xxx[Ô]
Else
sernum = Left(sernum, InStr(sernum, [Ô]&[Ô]) - 1)
lblSerial.Caption = sernum
End If
End Sub
como comentou o LVFIOROT se não funcionar adicionem o comando Option Explicit
Agora preciso saber se é possÃvel clonar o pen...
Obrigado
Private Sub Command1_Click()
strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\CIMV2[Ô])
Set colitems = objWMIService.ExecQuery([Ô]SELECT * FROM Win32_DiskDrive[Ô], , 48)
For Each objitem In colitems
If objitem.interfacetype = [Ô]USB[Ô] Then sernum = objitem.pnpdeviceid
Next
sernum = Mid(sernum, InStrRev(sernum, [Ô]\[Ô]) + 1)
If sernum = [Ô][Ô] Then
lblSerial.Caption = [Ô]xxx[Ô]
Else
sernum = Left(sernum, InStr(sernum, [Ô]&[Ô]) - 1)
lblSerial.Caption = sernum
End If
End Sub
como comentou o LVFIOROT se não funcionar adicionem o comando Option Explicit
Agora preciso saber se é possÃvel clonar o pen...
Obrigado
>
Só que o código está exibindo um número(22033207090834460008) totalmente [txt-color=#e80000]diferente [/txt-color] do s/n(ACBA-AC6F) via D.O.S.
<
Só que o código está exibindo um número(22033207090834460008) totalmente [txt-color=#e80000]diferente [/txt-color] do s/n(ACBA-AC6F) via D.O.S.
<
alguem achou alguma solução para usar um pen-lock? é possÃvel clonar o pendrive? pois preciso disso para evitar pirataria obrigado
Tópico encerrado , respostas não são mais permitidas