Форум » [x]Harbour » Функция получения серийного номера материнской платы » Ответить
Функция получения серийного номера материнской платы
Eduard: Прошу проверить у себя данную ф-цию, что она вернет вам? У меня возвращает NIL, почему не знаю Может кто-то поделиться функцией на С [more] Function SerialBios() LOCAL oLoc := CREATEOBJECT( "wbemScripting.SwbemLocator" ) LOCAL oSrv := oLoc:ConnectServer() LOCAL oJbs := oSrv:ExecQuery( "SELECT * FROM Win32_BaseBoard" ) LOCAL oJob LOCAL cMBSerial FOR EACH oJob IN oJbs cMBSerial := oJob:SerialNumber NEXT MsgInfo(cMBSerial) RETURN cMBSerial [/more]
Ответов - 1
Dima: у меня вернуло MB-1234567890 ;) что бред конечно В остальном все правда (чуть изменил исходник) ? oJob:Manufacturer //ASUSTeK Computer INC. ? oJob:Product //P5LD2-Deluxe ? oJob:SerialNumber //MB-1234567890 ? oJob:Tag //Base Board ? oJob:Version //Rev 1.xx ЗЫ EVEREST не показывает серийного номера мамки или я не вижу
полная версия страницы