|
Option Explicit
Function Main()
Session.Property("WMI_Manufacturer") = GetManufacturerName()
End Function
Function 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)
Next
GetManufacturerName = Manufacturer
End Function
|
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.
Mike Carlisle - Technical Architect with over 20 years experience in a wide range of technologies.
@TheCodeKing