devxlogo

GetSystemType – Retrieving the computer type

GetSystemType – Retrieving the computer type

' Returns the system type, for example "X86-based PC" or "Power PC"' Requires a reference to System.Management and the respective ImportsFunction GetSystemType() As String    Dim mos As New ManagementObjectSearcher _        ("SELECT * FROM Win32_ComputerSystem")    Dim mo As ManagementObject    For Each mo In mos.Get()        Return mo("SystemType")    NextEnd Function

devx-admin

Share the Post: