There are already 2 UDF's basically doing the same thing, also using the same code generally but here is one clean and simple generating the same output as EnumGroup and using the same input.

 Code:
Function EnumPrinterConnections(Optional $index)
  Dim $WSHNetwork, $WSHPrinters
  $WSHNetwork = CreateObject("WScript.Network")
  $WSHPrinters = $WSHNetwork.EnumPrinterConnections
  If VarType($index) = 3
    $EnumPrinterConnections = $WSHPrinters.Item($index)
  Else
    $EnumPrinterConnections = $WSHPrinters.Count
  EndIf
EndFunction


no $index returns the amount of printers, a numeric $index return that printer's name.