GetCustom

Option Explicit

Dim objRootDSE, objNetwork, objWMIService, objComputer
Dim strComputer, strModel
Dim colModel, objModel
Dim adoConnection, adoRecordset

strComputer = "."
strModel = ""

Set objRootDSE = GetObject("LDAP://RootDSE")
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")

Set colModel = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

strModel = ""

If Not colModel Is Nothing Then
    For Each objModel in colModel
        If strModel <> "" Then
            strModel = strModel & " "
        End If
        strModel = strModel & trim(replace(objModel.Model, ",", "."))
    Next
End If

Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"

If Err.Number <> 0 Then
    WScript.Quit
End If

Set adoRecordset = adoConnection.Execute("<LDAP://" & objRootDSE.Get("defaultNamingContext") & ">;(&(objectCategory=Computer)(name=" & objNetwork.Computername & "));adspath;subtree")

If Err.Number <> 0 Then
    WScript.Quit
End If

If Not adoRecordset.EOF Then
    Set objComputer = GetObject(adoRecordset.Fields(0).Value)
    objComputer.Put "Custom-HardwareModel", strModel
    objComputer.SetInfo
End If

If Err.Number <> 0 Then
    WScript.Quit
End If