What port should I use when trying to programmatically capture a network printer when using the following


Code:
Public Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
    (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _
    (lpNetResource As NETRESOURCE, _
    ByVal lpPassword As String, _
    ByVal lpUserName As String, _
    ByVal dwFlags As Long) As Long

Public Const ERROR_NOT_CONNECTED = 2250&
Public Const ERROR_EXTENDED_ERROR = 1208&
Public Const ERROR_MORE_DATA = 234
Public Const ERROR_ACCESS_DENIED = 5&
Public Const ERROR_ALREADY_ASSIGNED = 85&
Public Const ERROR_BAD_NET_NAME = 67&
Public Const ERROR_BAD_DEV_TYPE = 66&
Public Const ERROR_BUSY = 170&
Public Const ERROR_CANNOT_OPEN_PROFILE = 1205&
Public Const ERROR_DEVICE_ALREADY_REMEMBERED = 1202&
Public Const ERROR_INVALID_PASSWORD = 86&
Public Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Public Const ERROR_NO_NETWORK = 1222&


Public Const RESOURCETYPE_ANY = &H0
Public Const RESOURCETYPE_DISK = &H1
Public Const RESOURCETYPE_PRINT = &H2

Public Const CONNECT_UPDATE_PROFILE = &H1

Public Type NETRESOURCE
        dwScope As Long
        dwType As Long
        dwDisplayType As Long
        dwUsage As Long
        lpLocalName As String
        lpRemoteName As String
        lpComment As String
        lpProvider As String
End Type


Dim lRes&
Dim sUser$
Dim udtNet As NETRESOURCE


 Command1_Click


With udtNet
    
    Select Case cboRes.Text
        Case "DISK"
            .dwType = RESOURCETYPE_DISK
            .lpLocalName = "N:" & Chr(0)
            .lpRemoteName = "---------\c$" & Chr(0)
        Case "PRINTER"
            .dwType = RESOURCETYPE_PRINT
            .lpLocalName = <what goes here> & Chr(0)
            .lpRemoteName = InputBox("Printer") & Chr(0)
        Case "ANY"
            .dwType = RESOURCETYPE_ANY
            MsgBox "Not Allowed"
    End Select
       
    
    
End With
    
sUser = lblUser.Caption & Chr(0)

Dialog.Show 1

sPass = sPass & Chr(0)

lRes = WNetAddConnection2(udtNet, ByVal sPass, ByVal sUser, ByVal CONNECT_UPDATE_PROFILE)


lblRes.Caption = lRes


End Sub
Clearly it can't be LPT1. I can capture a network drive but I am stuck with the printer.