if wscript.arguments.count  <> 2 then
	wscript.echo "Usage : " & wscript.scriptname & " <LPR_Queue> <Driver> "
	wscript.echo "        <Driver> is a string describing the printer found in NTPRINT.INF"
	wscript.quit(1)
end if

Dim queue, driver

queue = wscript.arguments(0)
driver = wscript.arguments(1)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = driver
objPrinter.PortName   = "LPR_" & queue
objPrinter.DeviceID   = queue
objPrinter.Location = "Ryerson Hall"
objPrinter.Network = True
objPrinter.Shared = False
objPrinter.Put_