devxlogo

GetComputerManufacturer – Retrieving the computer manufacturer name

GetComputerManufacturer – Retrieving the computer manufacturer name

' 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

devx-admin

Share the Post: