option explicit

const kErrorSuccess            = 0
const KErrorFailure            = 1


main

sub main
    dim strServer
    dim strPort
    dim iRetval	
    dim WshNetwork	
    dim oPrinters 	
    
    iRetval = ParseCommandLine(strPort, strServer)

    if iRetval = kErrorSuccess then	
    	Set WshNetwork = WScript.CreateObject("WScript.Network")
	WshNetwork.AddPrinterConnection strPort, strServer
    end if	
end sub


function ParseCommandLine(strPort, strServer)
    dim oArgs
   
    set oArgs = wscript.Arguments
    strPort = oArgs(0)
    strServer = oArgs(1)      
end  function