Problemer med Script

Hej med jer,

Jeg har et problem med følgende kode:

Open App.Path & "\printer.ini" For Input As #1
  Do While EOF(1) = False
        Line Input #1, PrinterDriver
      Line Input #1, PrinterPath

Dim WshNetwork
Dim PrnPath, PrnDriver As Variant
Dom PrinterPath, PrinterDriver As Variant

Set WshNetwork = CreateObject("WScript.Network")
PrnDriver = "& PrinterDriver"
PrnPath = "& PrinterPath"
WshNetwork.AddWindowsPrinterConnection "& PrnPath", "& PrnDriver"

    Loop
Close #1

Den skal åbne en fil, læse 2 liner og bruge disse linier skal ind sætte under PrnDriver og PrnPath, disse skal så læses af "WshNetwork.AddWindowsPrinterConnection"

Men når jeg tester Scriptet så får jeg fejl med følende linie:
WshNetwork.AddWindowsPrinterConnection "& PrnPath", "& PrnDriver"

Er det mig der har glemt noget, eller er linien skrevet forkert...

-Anders.