Installing a new Printer

Hello,
i wrote following Script to install a Printer-Driver. There is no Error, but
the Driver do not apear in the Dialog Printers & Fax from Windows. What ist
wrong?
How to install a new Port, I do know (thanks to /\/\o\/\/). The used port
exists.
Here ist my Code:

$strComputer = "."
$strDruckername="Brother HJ-100"
$strPortname="IP_169.254.110.15"
#Skriptbloecke und Funktionen
#Skriptinhalt

$objTreiber = [WmiClass]'Win32_PrinterDriver'
#erzeugen der neuen Instanz
$objNeuerTreiber=$objTreiber.CreateInstance()
$objNeuerTreiber.Name = $strDruckername
$objNeuerTreiber.SupportedPlatform = "Windows NT x86"
$objNeuerTreiber.Caption=($strDruckername + "-2")
$objNeuerTreiber.Version = 3
$erg = $objTreiber.AddPrinterDriver($objNeuerTreiber)
$erg=$objTreiber.Put()
#Treiber ist installiert, nun Drucker hinzufuegen
#Drucker-Klasse zurueckgeben
$objDrucker = [WmiClass]'Win32_Printer'
#Objekt erzeugen
$objNeuerDrucker=$objDrucker.CreateInstance()
#Eigenschaften festlegen
$objNeuerDrucker.Name=($strDruckername)
$objNeuerDrucker.Description="automatisch erzeugter Drucker"
$objNeuerDrucker.Portname=$strPortname
$objNeuerDrucker.DriverName=$strDruckername
$erg=$objDrucker.AddPrinterConnection(($strDruckername))
$objDrucker.Put()