' 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
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)