;**** 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”)