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