topic-10210

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

BIOS DATE
Posted: Tue Mar 04, 2008 05:03 PM

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

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

BIOS DATE
Posted: Tue Mar 04, 2008 05:21 PM

Hi Otto, try this code.

Code: Select all Collapse

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

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

BIOS DATE
Posted: Wed Mar 05, 2008 07:08 AM

Is CREATEOBJECT a xHarbour function?

Error: Unresolved external '_HB_FUN_CREATEOBJECT' reference

Thanks in advance
Otto

Antonio Linares

Posts: 44158