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;