' Returns the computer model' Requires a reference to System.Management and the respective ImportsFunction GetComputerModel() As String Dim mos As New ManagementObjectSearcher _ ("SELECT * FROM Win32_ComputerSystem") Dim mo As ManagementObject For Each mo In mos.Get() Return mo("Model") NextEnd Function


Top Software Development Companies
Looking for the best in software development? Our list of Top Software Development Companies is your gateway to finding the right tech partner. Dive in