Visual Basic

Dim pcbNeeded As Int32 '\\ Holds the requires size of the output buffer (in bytes)
Dim pcReturned As Int32 '\\ Holds the returned size of the output buffer
Dim pPrinters As IntPtr
Dim pcbProvided As Int32 = 0

If Not EnumPrinters(EnumPrinterFlags.PRINTER_ENUM_NETWORK, String.Empty, 1, pPrinters, 0, pcbNeeded, pcReturned) Then
    If pcbNeeded > 0 Then
        pPrinters = Marshal.AllocHGlobal(pcbNeeded)
        pcbProvided = pcbNeeded
        If Not EnumPrinters(EnumPrinterFlags.PRINTER_ENUM_NETWORK, String.Empty, 1, pPrinters, pcbProvided, pcbNeeded, pcReturned) Then
            Throw New Win32Exception
        End If
    End If
End If

If pcReturned > 0 Then
    '\\ Get all the printers for the given server
    Dim ptNext As IntPtr = pPrinters
    While pcReturned > 0
        Dim pi1 As New PRINTER_INFO_1
        Marshal.PtrToStructure(ptNext, pi1)
        If Not pi1.pPrinterName Is Nothing Then
           'Found a printer on the network...
        End If
        ptNext = New IntPtr(ptNext.ToInt32 + Marshal.SizeOf(pi1))
        pcReturned -= 1
    End While
End If

'\\ Free the allocated buffer memory
If pPrinters.ToInt32 > 0 Then
    Marshal.FreeHGlobal(pPrinters)
End If