CLEAR 
**FUNCTION GetMBID
LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object,BaseBoardID
lcComputerName = GETWORDNUM(SYS(0),1)
loWMI = GETOBJECT("WinMgmts://" + lcComputerName)
lowmiWin32Objects = loWMI.InstancesOf("Win32_BaseBoard")
FOR EACH lowmiWin32Object IN lowmiWin32Objects
WITH lowmiWin32Object
BaseBoardId=TRANSFORM(.SerialNumber)
ENDWITH
ENDFOR
** RETURN  ProcessorId
? BaseBoardId