KACE Product Support

You should now be using the driver feed discovery script to build custom feeds, as the older script no longer reports accurate information for building feeds.

It still shows in our kbox

'Get Manufacturer

wmiQuery = "Select * from win32_ComputerSystem"

Set objWMIService = GetObject("winmgmts:\\")
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in ColItems
      strManufacturer = objItem.Manufacturer
      If (InStr(strManufacturer ,"Dell") > 0) Then strManufacturer ="dell"
      If (InStr(strManufacturer ,"Hewlett-Packard") > 0) Then strManufacturer ="hp"
      If (InStr(strManufacturer ,"Lenovo") > 0) Then strManufacturer ="lenovo"
      If (InStr(strManufacturer ,"VMware") > 0) Then strManufacturer ="vmware"
Next
strManufacturer = Replace(strManufacturer, " ", "_")

'*************** Get model
wmiQuery = "Select * from win32_ComputerSystem"

Set objWMIService = GetObject("winmgmts:\\")
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in ColItems
      strModel = objItem.Model
    If (InStr(strModel,"Latitude") > 0) Then strModel = mid(strModel,9,20)
    If (InStr(strModel,"Percision") > 0) Then strModel = mid(strModel,10,21)
    If (InStr(strModel,"OptiPlex") > 0) Then strModel = mid(strModel,9,20)
strModel = Trim(strModel)
Next
strModel = Replace(strModel, " ", "_")

'*******************Get operating system
wmiQuery = "Select * from Win32_OperatingSystem"

Set objWMIService = GetObject("winmgmts:\\")
Set colOs = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colOs
strOs = objItem.Caption

Next

strModel = Trim(strModel)
'strManufacturer = Trim(strManunacturer)
'strOS = Trim(srtOS)

      Wscript.echo("Manufacturer: " & strManufacturer & (Chr(13) & chr(10)) & (Chr(13) & chr(10)) & "Model: " & strModel & (Chr(13) & chr(10)) & (Chr(13) & chr(10)) &"OS: " & strOs)