;**** Basic Login Script ****
;**** By: Johan Persson ****

; Setting Variables

$Organisation=”Organisation”

; Display some info

CLS
Color b+/n
Box (0,0,24,79,GRID) ; ‘background grid’
Color g+/n
Box (6,18,18,62,FULL)

Color w+/n
AT ( 8,21) “Welcome to ” + $Organisation
AT (10,25) “Userid : “
AT (11,25) “Full name : “
AT (12,25) “Workstation : “
AT (13,25) “Domain : “
AT (14,25) “Location : “
AT (15,25) “Loginserver : “

Color y+/n
AT (10,40) @userid
AT (11,40) @fullname
AT (12,40) @wksta
AT (13,40) @domain
AT (14,40) $Location
AT (15,40) @LSERVER

; Mapping Drives

Color w+/n
AT (16,21) “Mapping Drives…”

; Deleting all drives
   AT (16,21) “Deleting All Drives…        “
   USE “*” /DELETE /PERSISTENT

; Connecting Drives

   Use H: “\serverusers$” + @userid
   Use G: “\servershare“

; Mapping Drives for Groups

If InGroup (“Some_Group”)
 AT (16,21) “Mapping Drive Some Group…         “
 Use R: “\servergroupshare“
EndIf

; Mapping Printers

; Deleting printers

DelTree(“HKEY_CURRENT_USERPrintersconnections”)

; Adding Printers

ADDPRINTERCONNECTION (“\ServerPrinter”)