"ReleaseDate: " , WMIDateStringToDate(loItem.ReleaseDate) > >Function WMIDateStringToDate(dtmDate) >WMIDateStringToDate = Ctot(Substr(dtmDate, 5, 2) + "/" + ; >Substr(dtmDate, 7, 2) + "/" + Left(dtmDate, 4) ; >+ " " + Substr (dtmDate, 9, 2) + ":" + ; >Substr(dtmDate, 11, 2) + ":" + Substr(dtmDate, ; >13, 2)) >Return Transform(WMIDateStringToDate) >Endfunc>
>>local loWMI, loItems, loItem, loLocator >>CLEAR >>loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator') >>loWMIService = loLocator.ConnectServer() >>loItems = loWMIService.ExecQuery("Select * from Win32_BIOS where PrimaryBIOS = TRUE") >> >>For Each loItem in loItems >> ? "Caption: " , loItem.Caption >> ? "CurrentLanguage: " , loItem.CurrentLanguage >> ? "Description: " , loItem.Description >> ? "Manufacturer: " , loItem.Manufacturer >> ? "Name: " , loItem.Name >> ? "ReleaseDate: " , loItem.ReleaseDate >> ? "SerialNumber: " , loItem.SerialNumber >> ? "SMBIOSBIOSVersion: " , loItem.SMBIOSBIOSVersion >> ? "SMBIOSMajorVersion: " , loItem.SMBIOSMajorVersion >> ? "SMBIOSMinorVersion: " , loItem.SMBIOSMinorVersion >> ? "SMBIOSPresent: " , loItem.SMBIOSPresent >> ? "Status: " , loItem.Status >> ? "Version: " , loItem.Version >>Next >>>>