BIOS DATE

Otto · Post by **Otto** » Tue Mar 04, 2008 5:03 pm

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

Biel EA6DD · Post by **Biel EA6DD** » Tue Mar 04, 2008 5:21 pm

Hi Otto, try this code.

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 · Post by **Otto** » Wed Mar 05, 2008 7:08 am

Is CREATEOBJECT a xHarbour function?

Error: Unresolved external '_HB_FUN_CREATEOBJECT' reference

Thanks in advance
Otto

Post by **Antonio Linares** » Wed Mar 05, 2008 9:29 am

Otto,

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

Silvio · Post by **Silvio** » Wed Mar 05, 2008 9:34 am

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

Otto · Post by **Otto** » Wed Mar 05, 2008 10:41 am

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