[Suriu]

Hola cHacAll, estuve biendo tu ejemplo del VBS y funciona ok, pero quisiera saber si esto da mas informacion. Porque aunque no se mucho de lenguaje VBS me parase que ese ejemplo se le puede sacar otras informaciones, o por lo menos en que direccion puedo encontrar ese VBS o infornacion hacer de ese tema. Gracias de antemanos por la ayuda.....


Aquí les dejo el Script anterior traducido a delphi:

Código Delphi [-]
uses
  ActiveX, ComObj;

procedure TForm1.Button4Click(Sender: TObject);
var
  ScriptControl, WmiService, Item: OleVariant;
  Items: IUnknown;
  Enum: IEnumVariant;
  Fetched: Cardinal;
begin
  ScriptControl:= CreateOleObject('ScriptControl');
  ScriptControl.Language := 'VBScript';
  WmiService:= ScriptControl.Eval('GetObject("winmgmts:")');
  Items:= WMIService.ExecQuery('Select * from Win32_BaseBoard')._NewEnum;
  Enum:= Items as IEnumVariant;
  Enum.Reset;
  Enum.Next(1, Item, Fetched);
  while Fetched = 1 do
  begin
    if not VarIsNull(Item.SerialNumber) then
      Memo1.Lines.Add(Item.SerialNumber);
    Enum.Next(1, Item, Fetched);
  end;
end;