sub doWork(dt,ind)
  Set objWMIService = GetObject("winmgmts:\.ootcimv2")
  Set colMBs = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
  For Each objMB in colMBs
  sys.onCount(objMB.Manufacturer)
  next
end sub