"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>I try to get Bios SerialNumber with thi code:
>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 >>