'v3.C***********************************************************
' File:   DruckerAuswahl.VBS
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' Bietet eine Auswahl der Netzwerk- bzw. der lokalen Drucker;
' Virtuelle Drucker (PDF) stehen nicht zur Auswahl - das läßt 
' sich aber ändern.
'***************************************************************

Option Explicit
Dim Drucker

'  WSHShell.run UCase("net use lpt2 /DELETE") , 0, True 
'  WSHShell.run UCase("net use lpt2: \\PrintSrv\LJ4plus") , 0, True 


If Drucker = "" then Drucker = Druckerauswahl ' Function  Aufruf
'                    ~~~~~~~~~~~~~~~~~~~~~~~~

MsgBox Drucker, , WScript.ScriptName
WScript.Quit

'***************************************************************
Function Druckerauswahl ' Anfanfg
'***************************************************************

Dim i, n, Text, DruckerNr, NetPRN, WSHNet

Set WSHNet    = WScript.CreateObject("WScript.Network")
Set NetPRN    = WSHNet.EnumPrinterConnections

n = 0

' welche Drucker sind verwendbar:
For i = 0 To NetPRN.Count-1 Step 2
  if     Left(NetPRN(i+1),2)     = "\\"  then 
      n    =        n + 1
      Text = Text & n & ":  " & NetPRN(i) & vbTab & NetPRN(i+1) & vbCRLF 
  End If
  if not Left(NetPRN(i+1),2)     = "\\"  then 
    if UCase(Left(NetPRN(i), 3)) = "LPT" then 
      n    =        n + 1
      Text = Text & n & ":  " & NetPRN(i) & vbTab & NetPRN(i+1) & vbCRLF 
    End If
  End If
Next
   Text      = Text & vbCRLF & "Auf welchen Drucker soll gedruckt werden?"

   DruckerNr = InputBox (Text, WScript.ScriptName)
On Error Resume Next
   DruckerNr = Asc( DruckerNr ) -48
On Error GoTo 0

If DruckerNr > n  OR  DruckerNr < 1 then
   Text      = "!!!   FALSCHE EINGABE   !!!" & vbCRLF & vbCRLF & Text 
   DruckerNr = InputBox (Text, WScript.ScriptName)
On Error Resume Next
   DruckerNr = Asc( DruckerNr ) -48
On Error GoTo 0
End If

If DruckerNr > n  OR  DruckerNr < 1 then DruckerNr  = "" 
If DruckerNr  = "" then  WSHShell.Popup " . . . denn eben nicht!", 10, WScript.ScriptName & " . . . ist zu Ende!" , 64 
If DruckerNr  = "" then  WScript.Quit

n = 0

' gewählten Drucker ermitteln
For i = 0 To  NetPRN.Count-1 Step 2
  if     Left(NetPRN(i+1),2)     = "\\"  then 
         n = n + 1
      If n = DruckerNr Then Druckerauswahl = NetPRN(i+1) 
  End If
  if not Left(NetPRN(i+1),2)     = "\\"  then 
    if UCase(Left(NetPRN(i), 3)) = "LPT" then 
         n = n + 1
      If n = DruckerNr Then Druckerauswahl = NetPRN(i  ) 
    End If
  End If
Next

End Function ' Druckerauswahl 
'***************************************************************