The printer manufacturer selected for install
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
'Select a manufacturer for installation
ps2.Manufacturer = "Agfa"