To get Model String

For Drivers deployment , we need to find the exact Manufacturer and Model to deploy using SCCM. s We need to create WMI Query to install the Driver Package based on Make & Model.


Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
strWinDir = objShell.ExpandEnvironmentStrings("%WinDir%")

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In colItems
        Manufacturer = objItem.Manufacturer
        Model = objItem.Model
Next

strThisComputer = Manufacturer & " - " & Model

intRetVal = InputBox("Use model string below for Drivers.xml", "Get Make and Model", strThisComputer)