' Returns the computer manufacturer name' Requires a reference to System.Management and the respective ImportsFunction GetComputerManufacturer() As String Dim mos As New ManagementObjectSearcher _ ("SELECT * FROM Win32_ComputerSystem") Dim mo As ManagementObject For Each mo In mos.Get() Return mo("Manufacturer") NextEnd Function
![Android phone with alarm clock icon](https://www.devx.com/wp-content/uploads/495893cathumbnail-300x150.jpeg)