![]() ObjWMIService. OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), Wmic baseboard get product,Manufacturer,version,serialnumber //USES: Winapi.ActiveX, įunction TForm2.GetMotherBoardSerial: string įunction GetWMIObject(const objectName: string): IDispatch To show the Mainboard Number in Windows 10 query the following in the WMI Service: If you want show the MainBoard Serial, use this stuff. If oEnum.Next(1, colItem, iValue) = 0 then OEnum := IUnknown(colItems._NewEnum) as IEnumVariant ObjWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2') ĬolItems := objWMIService.ExecQuery('SELECT SerialNumber FROM Win32_BaseBoard','WQL',0) OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result)) OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker)) Option 2) using OLEVariant, IBindCtx Interface and IMoniker Interface program GetWMI_MotherBoardSerial įunction GetWMIObject(const objectName: String): IDispatch Writeln('Serial MotherBoard ' GetMotherBoardSerial) Root := WMIServices.ExecQuery('Select SerialNumber From Win32_BaseBoard','WQL', 0, nil) ![]() DIY Delphi LCS Overhaul Guide: Expanding on his original article from fall 2009 here, Bill sent a 6 page. ![]() ECM E-CONTROL, number on back of ECM Delphi 12607802, does not crossover to. WMIServices := ('.', 'root\cimv2','', '', '', '', 0, nil) I wrote this part of c WMI Code for getting MotherBoard serial Number. WbemScripting_TLB in '.\.\.\Documents\RAD Studio\5.0\Imports\WbemScripting_TLB.pas' // Option 1) before execute you need import the Microsoft WMIScripting Library from Component-> Import Component and then select Import type library program GetWMI_MotherBoardInfo ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
March 2023
Categories |