;*******************************************
; Administrators
;*******************************************

$r = InGroup("Administrators")
If $r > 0
? "-> InGroup Administrators " ?

if exist ( "X:\" )
use X: /del
endif

use x: \\SERVER1\NT /persistent:no

EndIf

;*******************************************
; Managers
;*******************************************

$r = InGroup("Managers")
If $r > 0
? "-> Managers "

if exist ( "i:\" )
use i: /del
endif

if exist ( "J:\" )
use J: /del
endif

if exist ( "S:\" )
use S: /del
endif

use I: \\SERVER2\CXP /persistent:no
use J: \\SERVER2\EFF /persistent:no
use S: \\SERVER2\Managers /persistent:no

EndIf