The printer model selected for install. The model must be one that is supported by the selected manufacturer
Dim ps2 As IPrintServer2
Set ps2 = GetObject("ntds://sqlserverdom/sqlserver")
'Initialize the target machine for installation. This is a compulsory step, which creates the necessary shares on the target machine
AllManufacturers = ps2.PrinterTypes(FriendlyNames)
For Each manufacturer_name In FriendlyNames
'Associated with each manufacturer is a list of
supported models which can be got using the PrinterModels
PerManufacturer_Models = ps2.PrinterModels("Agfa")
For Each model_name In PerManufacturer_Models
'Select a manufacturer for installation
ps2.Manufacturer = "Agfa"
'Select a printer model for installation
'Note: The printer model must be supported by the Manufacturer selected for install.
ps2.Model = "AGFA-SelectSet Avantra 20"