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)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s