Session.Property("WMI_Manufacturer") = GetManufacturerName()
Dim WMIService, Computer, Computers, Manufacturer
Set WMIService = GetObject("winmgmts:\\.\root\cimv2")
Set Computers = WMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each Computer in Computers
Manufacturer = LCase(Computer.Manufacturer)
GetManufacturerName = Manufacturer
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)