;$DriveToMap = @HomeShr
$lblTask.Text = $Blanker
$lblTask.Text = "Home Directory"
Use U: @HomeShr
DoProgress(2)
;$DriveToMap = "\\sdc5400\mfl"
$lblTask.Text = "MFL"
Use L: "\\sdc5400\mfl"
DoProgress(2)
;$DriveToMap = "\\sdc5400\sharedres"
$lblTask.Text = "Shared Resources"
Use R: "\\sdc5400\sharedres"
DoProgress(2)
;$DriveToMap = "\\sdc5400\pcapps"
$lblTask.Text = "PC Apps"
Use P: "\\sdc5400\pcapps"
DoProgress(2)
;$DriveToMap = "\\sdc5400\cdroms"
$lblTask.Text = "CD Roms"
Use V: "\\sdc5400\cdroms"
DoProgress(2)
IF INGROUP("SIMSUsers")
;$DriveToMap = @LServer + "\Simsarea"
$lblTask.Text = "SIMS Area"
Use W: @LServer + "\Simsarea"
DoProgress(2)
ENDIF
IF INGROUP("Staff")
;$DriveToMap = "\\rdc5400\students"
$lblTask.Text = "Students"
Use S: "\\rdc5400\students"
DoProgress(2)
;$DriveToMap = "\\sdc5400\shared"
$lblTask.Text = "Shared"
Use O: "\\sdc5400\shared"
DoProgress(2)
ENDIF
IF INGROUP("Domain Admins")
;$DriveToMap = "\\rdc5400\NetAdmin"
$lblTask.Text = "NetAdmin"
Use N: $DriveToMap
DoProgress(2)
;$DriveToMap = "\\rdc5400\Menus"
$lblTask.Text = "Menus"
Use M: "\\rdc5400\Menus"
DoProgress(2)
ENDIF
EndFunction