Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_BIOS")
Dim search2 As New ManagementObjectSearcher("SELECT * FROM
Win32_ComputerSystem")
Dim search3 As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim info As ManagementObject
For Each info In search.Get()
Debug.WriteLine("Serial Number: " & info("serialnumber").ToString())
Debug.WriteLine("Manufacturer: " & info("Manufacturer").ToString())
Next
For Each info In search2.Get()
Debug.WriteLine("Model: " & info("Model").ToString())
Debug.WriteLine("Computer Name: " & info("Name").ToString())
Debug.WriteLine("User Name Logged in: " & info("UserName").ToString())
Debug.WriteLine("Total Physical Memory: " &
info("TotalPhysicalMemory").ToString() & (" KB of Ram"))
Next
For Each info In search3.Get()
Debug.WriteLine("CPU Clock Speed: " & info("Name").ToString())
Next