; ------------------ Löschen aller Verbindungen --------------
; DEBUG ON
use * /DELETE
; --------- Feststellung der Gruppenzugehörigkeit ------------
IF ISINGROUP("verwaltung")
GOTO verw
ENDIF

IF ISINGROUP("buchhaltung")
GOTO buch
ENDIF
;-----------------------Verwaltung -----------------
:verw
use i: "\\adminbuch\verwaltung"
GOTO ALLE
;----------------------Buchhaltung------------------
:buch
use i: "\\adminbuch\buchhaltung"
GOTO ALLE
;--------------- Ab hier für alle Benutzer ---------
:ALLE
use h: "\\adminbuch ̈ + %username%
use r: "\\adminbuch\Abteilungen"
use s: "\\adminbuch\alle"
;-------- Funktion zur Ermittelung der Gruppenzugehörigkeit---------
FUNCTION ISINGROUP( $strGroup)
IF EXIST("\\adminbuch\NETLOGON\" + $strGroup + "\dummy\")
$ISINGROUP = 1
ELSE
$ISINGROUP = 0
ENDIF
ENDFUNCTION