BIOS DATE

[Otto]

Could someone show me how to get the BIOS date.
Thanks in advance
Otto

[Biel EA6DD]

Hi Otto, try this code.

Code: Select all  Expand view

FUNCTION Main()
   LOCAL oLoc,oWmi,oLis, oBios
   oLoc := CreateObject( "wbemScripting.SwbemLocator" )
   oWmi:=oLoc:ConnectServer()
   oLis := oWmi:ExecQuery( "SELECT * FROM Win32_BIOS " )
   FOR EACH oBios IN oLis
      ?  oBios:Name,;
         oBios:ReleaseDate  //Release date of the Windows BIOS in the Coordinated Universal Time (UTC) format of YYYYMMDDHHMMSS.MMMMMM(+-)OOO.
   NEXT
RETURN NIL

[Otto]

Is CREATEOBJECT a xHarbour function?


Error: Unresolved external '_HB_FUN_CREATEOBJECT' reference

Thanks in advance
Otto

[Antonio Linares]

Otto,

With current FWH 8.02 and xHarbour/Harbour, Biel's sample is linking and running fine

[Silvio]

Antonio,
How we can make to have the atomic time ?

[Otto]

Thank you, Antonio. I missed:
echo $(HBDIR)\lib\HbWin32.lib + >> b32.bc

Could someone post pros and cons between the two methods?

oReg := TReg32():New( HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System", .f. )
uVar := oReg:Get( "SystemBIOSDate", "" )
oReg:Close()

Thanks in advance
Otto