I did not VALIDATE your code, but I did clean it up some.
Remember what Radimus said about the DEEP MAPPING issue.
Your NT 4.0 system will not map there.






; Logonscript Lüchau Baustoffe
; by mbk-networks vers. 2003 / Marcus Freese and the Guys at KiXtart.org

global $ginuse

$ginuse=0
use * /delete
if ingroup ("wedel") = 1
  call "kixtart1.kix" 
  $ginuse = 1
endif

if ingroup ("hamburg-volkspark") = 1
  call "kixtart2.kix"
  $ginuse = 1 
endif

if ingroup ("elmshorn") = 1 
  call "kixtart3.kix"
  $ginuse = 1 
endif

if ingroup ("hamburg-wandsbek") = 1 
  call "kixtart4.kix"
  $ginuse = 1 
endif

if ingroup ("halstenbek") = 1 
  call "kixtart5.kix"
  $ginuse = 1 
endif

sleep 10
; Not sure why you have a 10 second sleep.  You trying to upset your users?
exit @ERROR




; Logonscript Lüchau Baustoffe HALSTENBEK
; by mbk-networks vers. 2003 / Marcus Freese and the Guys at KiXtart.org

global $ginuse
$ginuse=0
at (10,1) "Welcome to Wedel.Luechau.netz"
at (11,1) "your current Logonserver is :" 
at (12,1) "you're working at :" 
at (13,1) "running Operating System :"
at (14,1) "with IP lease :"
at (15,1) "authenticated to Domain :"
at (16,1) "with Username :"
at (17,1) "your current privilege is :"
settime "\\DC01"
at (18,1) "Your time has been synchronised to DC01:"

at (11,30) @LSERVER
at (12,30) @wksta

if @dos= "5.0"
  at (13,30) "Windows 2000"
else
  at (13,30) "Windows NT 4.0"
endif

at (14,30) @IPADDRESS0
at (15,30) @domain
at (16,30) @userid
at (17,30) @priv
at (18,50) @time
sleep 3

use * /delete

if ingroup ("Baumarkt") = 1 
  use p: "\\dc01\abt\baumarkt" 
  $ginuse = 1
endif

if ingroup ("baumarkt") = 1 
  if $ginuse=0
    use g: "\\dc01\abt\baumarkt"
    $ginuse = 1
  else
    use j: "\\dc01\abt\baumarkt"
    $ginuse = 2
  endif
endif


if ingroup ("Buchhaltung") = 1
  if $ginuse = 0
    use p: "\\dc01\abt\buchhaltung"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\dc01\abt\buchhaltung"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\buchhaltung"
    $ginuse = 3
  endif
endif

if ingroup ("Edv") = 1 
  if $ginuse = 0
    use p: "\\dc01\abt\edv"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\\\dc01\abt\edv"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\edv"
    $ginuse = 3
  endif
endif

if ingroup ("Elemente") = 1 
  if $ginuse = 0
    use p: "\\dc01\abt\Elemente"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\dc01\abt\Elemente"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\Elemente"
    $ginuse = 3
  endif
endif

if ingroup ("Geschäftsleitung") = 1 
  if $ginuse = 0
    use p: "\\dc01\abt\Elemente"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\dc01\abt\Elemente"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\Elemente"
    $ginuse = 3
  endif
endif

if ingroup ("personal") = 1 
  if $ginuse = 0
    use p: "\\dc01\abt\Personal"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\dc01\abt\Personal"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\Personal"
    $ginuse = 3
  endif
endif

if ingroup ("sek") = 1
  if $ginuse = 0
    use p: "\\dc01\abt\sek"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\dc01\abt\sek"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\sek"
    $ginuse = 3
  endif
endif

if ingroup ("verkauf") = 1
  if $ginuse = 0
    use p: "\\dc01\abt\verkauf"
    $ginuse = 1
  endif
  if $ginuse = 1
    use j: "\\dc01\abt\verkauf"
    $ginuse = 2
  endif
  if $ginuse = 2
    use k: "\\dc01\abt\verkauf"
    $ginuse = 3
  endif
endif

sleep 4

exit @error