on error resume next
Set Network = CreateObject("Wscript.Network")

'-------------------------------------------------------------------------------------------
' aktueller Benutzer wird ermittelt; es wird geprüft, ob er Mitglied der Gruppe "Lehrer" ist
'-------------------------------------------------------------------------------------------

aktueller_Benutzer = Network.UserName


Set Membergroup = GetObject("LDAP://cn=Lehrer,ou=Lehrer,ou=benutzer,dc=hak-neusiedl,dc=local")
membergroup.GetInfo  
arrMemberOf = Membergroup.GetEx("member") 
For Each strMember in arrMemberOf 
if instr(1, strMember, aktueller_Benutzer,1) > 1 then Benutzergruppe = "Lehrer"
Next 



'----------------------------------------------------------
'Löschen eventuell bestehender Printerconnections

For i = 0 To network.EnumPrinterConnections.Count - 1
    On Error Resume Next
    network.RemovePrinterConnection network.EnumPrinterConnections.Item(i)
Next


'----------------------------------------------------------
'acrobat writer auf ilva
'----------------------------------------------------------

    PrinterShare = "\\ilva\PDFCreator"
    network.AddWindowsPrinterConnection PrinterShare




'Klassenpcs, deren Name mit "K" beginnt


if UCase(Left(network.ComputerName, 1)) = "K" OR Benutzergruppe = "Lehrer" then
    PrinterShare = "\\halvar\hp_lehrerneu"
    network.AddWindowsPrinterConnection PrinterShare
    network.SetDefaultPrinter PrinterShare

  

    PrinterShare = "\\halvar\HP_LJ_Lehrer"
    network.AddWindowsPrinterConnection PrinterShare

    PrinterShare = "\\halvar\samsung_lehrer"
    network.AddWindowsPrinterConnection PrinterShare

    PrinterShare = "\\halvar\bwz_color"
    network.AddWindowsPrinterConnection PrinterShare

else

' Schulungsraum-PCs, deren Name mit DV1, DV2, DV3, IKT oder BWZ beginnt

ClientName = UCase(Left(network.ComputerName, 3))

Select Case ClientName
Case "DV1"
    PrinterShare = "\\halvar\hp_lj_dv1"
    network.AddWindowsPrinterConnection PrinterShare
    network.SetDefaultPrinter PrinterShare
Case "DV2"
    PrinterShare = "\\halvar\hp_lj_dv2"
    network.AddWindowsPrinterConnection PrinterShare
    network.SetDefaultPrinter PrinterShare
Case "DV3"
    PrinterShare = "\\halvar\hp_lj_dv3"
    network.AddWindowsPrinterConnection PrinterShare
    network.SetDefaultPrinter PrinterShare
Case "IKT"
    PrinterShare = "\\halvar\hp_lj_ikt"
    network.AddWindowsPrinterConnection PrinterShare
    network.SetDefaultPrinter PrinterShare
Case "BWZ"
    PrinterShare = "\\halvar\hp_lj_bwz"
    network.AddWindowsPrinterConnection PrinterShare
    network.SetDefaultPrinter PrinterShare



End Select


end if