'Liefert in einem Array die installierten Drucker unter Windows zurück! Achtung geht nur ab Windows NT!!!

sub GetAlleDrucker(ListOfAllPrinter())

  check=GetGUIType()

  if check=1 then

   shell("regedit /e c:\printer.txt 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices'",10)

   wait 1000

   zaehler=0

   ende=false

   Dim myPrinter(20)

   #iNumber = Freefile

   aFile = "c:\printer.txt"

   Open aFile For Input As #iNumber

   On Error Goto schluss

   While not eof(#iNumber)

   Line Input #iNumber, sZeile

   start=left(sZeile,1) 

   if start="""" then

       ipos=InStr(sZeile,"""=")

       myprinter(zaehler)=mid(szeile,2,ipos-2)

       zaehler=zaehler+1

   end if

   wend

   Close #iNumber

   schluss:

   redim ListofAllPrinter(zaehler-1)

   for i=0 to zaehler-1

    ListofAllPrinter(i)=myprinter(i)

   next i

  end if

end sub