GetComputerModel – Retrieving the computer model

' 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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: