Obtener el Número Serie de Fabrica USB

[MAXIUM]

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

[[cHackAll]]

[[AzidRain]]

y LUEGO???

[[cHackAll]]

Empezado por AzidRain

y LUEGO???

luego de que o que?

[[AzidRain]]

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...

[MAXIUM]

Empezado por AzidRain

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)

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

[[cHackAll]]

Empezado por AzidRain

...perdon si te molesta...

No pasa nada

Empezado por MAXIUM

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

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

"De nada" x2

[Kipow]

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?

[rgstuamigo]

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

[MAXIUM]

Empezado por Kipow

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?

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

Empezado por rgstuamigo

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

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;

[charlyalize]

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¡¡¡