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 Where is the serial number on an HP motherboard Figure : Product information page Make sure the Windows desktop is showing. Press F10 to save settings and exit BIOS.
ObjWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2') ĬolItems := objWMIService.ExecQuery('SELECT SerialNumber FROM Win32_BaseBoard','WQL',0) Select Advanced, System IDs, and enter the serial number from the service tag sticker on the chassis.
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)
WMIServices := ('.', 'root\cimv2','', '', '', '', 0, nil) There are 2 good examples how to get a serial number: How to get motherboard id or serial number in Delphi All they work for me (Windows 7). 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 kommentar(er)
