Obtener el Número Serie de Fabrica USB

[[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;