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