Obtener el Número Serie de Fabrica USB
 

Hola, ya se que hay varios componentes y código para obtener tanto el número de serie del Volumen de un disco como el número de fabrica, este último es invariable frente a formateos y clonaciones y es el que me interesa.

Pero en este caso lo necesito para Pendrives, he probado algunos y funcionan bien excepto par este tipo de dispositivos ya que solo me entregan el número del volumen como es el caso del componente creado por Neftali http://neftali.clubdelphi.com/?p=240

Lo único que encuentro es la información que arroga el registro de Windows, pero quisiera leerla directa del dispositivo. En mi caso el dispositivo tiene el número 5B750F8004EA

y LUEGO???

luego de que o que?

Pos jackall es que solo pusiste una carita...muchos nos fuimos con la finta de que ibas a poner alguna cos al respecto...perdon si te molesta...

jojo!, Picha sobre la carita (es algo típico de cHaCkAlL) :rolleyes:

Muchas gracias, funciona a la perfección. Ahora veré como traduzco todo ello.

No pasa nada ;)

"De nada" x2 :p

Una pregunta relacionada. Ese numero de serie sera unico?. se me ocurre para armar algun tipo de dispositivo para licenciamiento. me imagino que por ahi va tu idea MAXIUM?

Y para los que no sabemos mucho Visual Basic,
¿Como se traduciria ese codigo a Delphi?:confused:..:confused:..

Así es, es único, ya lo comprobé ;)
Dos pendrives probado en maquinas distintas, ambas con Windows XP


Para traducirlo o más bien interpretarlo hay que usar el componente ActiveX "Microsoft Script Control" (C:\Microsoft\System32\msscript.ocx) Y sería una cosa así:

Código Delphi [-]
Var
   Script: OleVariant;
begin
     ScriptControl1.Language:= 'VBScript';

     Script:=  ScriptControl1.Eval('getobject("winmgmts:")');
...
...

Un ejemplo más acabado, aunque también estoy aprendiendo como hacerlo con el código que necesito:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  sr: OLEVAriant;
begin
  ScriptControl1.Language := 'VBScript';
  sr := ScriptControl1.Eval('getobject("winmgmts:\\.\root\default:Systemrestore")');
  if sr.CreateRestorePoint('Automatic Restore Point', 0, 100) = 0 then
    ShowMessage('New Restore Point successfully created.')
    // Wiederherstellungspunkt erfolgreich erstellt
  else
    ShowMessage('Restore Point creation Failed!');
    // Wiederherstellungspunkt Erstellung fehlgeschlagen.
end;

Hola amigos¡¡¡

Se que el tema es viejo pero estoy necesitando el codigo de visual basic para hacer un demonio para anclar una aplicacion web.

Si todavia lo tienen se los voy a agradecer¡¡¡¡

Saludos...
Charly¡¡¡