Obtener el Número Serie de Fabrica USB

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