SetConsole("SHOW")

 ; - COMMON SCRIPT COMPONENTS
 USE "*" /delete
 ;*****delete all printers to clear out old printer mappings*******
 $rc=deltree("HKEY_CURRENT_USER\Printers\Connections")

 SELECT
 CASE 
    @ldomain="TURENNETEAM"
    TURENNETEAM
    ENDSCRIPT
 CASE 
    @ldomain="MCGUFFEYTEAM"
    MCGUFFEYTEAM
    ENDSCRIPT
 CASE 
    @ldomain="CAPITOLHILLTEAM"
    CAPITOLHILLTEAM
    ENDSCRIPT
 CASE 
    @ldomain="WESTSIDETEAM"
    WESTSIDETEAM
    ENDSCRIPT
 CASE 
    @ldomain="PMCOTEAM"
    PMCOTEAM
    ENDSCRIPT
 CASE 
    1
    "You are not a part of a domain"
    SLEEP 2
    ENDSCRIPT
 ENDSELECT

FUNCTION turenneteam
 ;*****map network drives******************************************
 USE P: "\\TURENNE-NAS1\HO\NETDRIVE"
 ;*****add these current printers back*****************************
 $rc=addprinterconnection ("\\TURENNEMSTR\HO - Savin2535")
 $rc=addprinterconnection ("\\TURENNEMSTR\HO - LJ2200")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - BO - LJ1200")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - Payroll - LJ2200")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - Office - Savin9922")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - BO - LJ4050")
 $rc=addprinterconnection ("\\TURENNEBKUP\WST - BO - LJ4200")
 $rc=addprinterconnection ("\\TURENNEBKUP\WST - DON - LJ2200")
 ;*****end TURENNETEAM section and stop script*********************
ENDFUNCTION

FUNCTION mcguffeyteam
 ;*****map network drives******************************************
    USE P: "\\MHC2K02\NETDRIVE"
 ;*****add these current printers back*****************************
 ; SELECT
 ; CASE InGroup ("1st Hall")
 ; CASE InGroup ("2nd Hall")
 ; CASE InGroup ("3rd Hall")
 ; CASE InGroup ("4th Hall")
 ; CASE InGroup ("5th Hall")
 ; CASE InGroup ("Business Office")
 ; CASE InGroup ("Etc...Etc...Etc")
 ; ENDSELECT
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - Office - Savin9922")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - BO - LJ4050")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - 2ndHall - LJ4Plus")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - Dietary - LJ2300")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - Payroll - LJ2200")
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - 4thHall - LJ1300N")
 ;*****end MCGUFFEYTEAM section and stop script*********************
ENDFUNCTION

FUNCTION capitolhillteam
 ;*****map network drives******************************************
  USE P: "\\CHC2K01\NETDRIVE"
 ;*****add these current printers back*****************************
 ; SELECT
 ; CASE InGroup ("One North")
 ; CASE InGroup ("Two North")
 ; CASE InGroup ("Three North")
 ; CASE InGroup ("Two South")
 ; CASE InGroup ("Three South")
 ; CASE InGroup ("Business Office")
 ; CASE InGroup ("Etc...Etc...Etc")
 ; ENDSELECT
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - 1West - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - 2North - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - 2South - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - 3North - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - 3South - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - BO - LJ1200")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - HR - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - OneWest - LJ4050")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - Payroll - LJ2200")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - Rehab1 - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - RehabDirector - DJ845c")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - 1West - LJ1300N")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - Reception - Phaser850N")
 ;*****end CAPITOLHILLTEAM section and stop script*********************
ENDFUNCTION

FUNCTION westsideteam
 ;*****map network drives******************************************
 USE F: "\\wst2k03\file-server-data"
 USE G: "\\wst2k03\NetApps"
 USE H: "\\wst2k03\Users\@userid"
 USE S: "\\wst2k03\Depts"
 ;*****add these current printers back*****************************
 SELECT
 CASE 
    InGroup ("WESTSIDETEAM\Business Office")
    $rc=addprinterconnection("\\wst2k03\WST - Phaser - 8400")
 CASE 
    InGroup ("WESTSIDETEAM\Admissions")
    $rc=addprinterconnection("\\wst2k03\WST - Phaser - 8400")
 CASE 
    InGroup ("WESTSIDETEAM\Admin")
    $rc=addprinterconnection("\\wst2k03\WST - Phaser - 8400")
 CASE 
    InGroup ("WESTSIDETEAM\Activities")
    $rc=addprinterconnection("\\wst2k03\WST - Phaser - 8400")

    ; CASE InGroup ("North")
    ; CASE InGroup ("Rehab")
    ; CASE InGroup ("Business Office")
    ; CASE InGroup ("Etc...Etc...Etc")
 ENDSELECT
 $rc=addprinterconnection("\\wst2k03\WST - BO - LJ4200")
 $rc=addprinterconnection("\\wst2k03\WST - DON - LJ2100")
 $rc=addprinterconnection("\\wst2k03\WST - Care - LJ4200")
 $rc=addprinterconnection("\\turennebkup\WST - WEST - LJ1300n")
 $rc=addprinterconnection("\\turennebkup\WST - NORTH - LJ1300n")
 $rc=addprinterconnection("\\turennebkup\WST - MED - LJ1300n")
 $rc=addprinterconnection("\\turennebkup\WST - SOUTH - LJ1300n")
 ;*****end WESTSIDETEAM section and stop script*********************
ENDFUNCTION

FUNCTION pmcoteam
 ;*****add these current printers back*****************************
 ; SELECT
 ; CASE InGroup ("1st Hall")
 ; CASE InGroup ("2nd Hall")
 ; CASE InGroup ("3rd Hall")
 ; CASE InGroup ("4th Hall")
 ; CASE InGroup ("5th Hall")
 ; CASE InGroup ("Business Office")
 ; CASE InGroup ("Etc...Etc...Etc")
 ; ENDSELECT
 $rc=addprinterconnection ("\\TURENNEBKUP\MHC - Office - Savin9922")
 $rc=addprinterconnection ("\\TURENNEBKUP\CHC - BO - LJ1200")
 $rc=addprinterconnection ("\\TURENNEBKUP\WST - BO - LJ4200")
 $rc=addprinterconnection ("\\TURENNEBKUP\PMCO - Reception - Savin2535")
 ;*****end PMCOTEAM section and stop script*********************
ENDFUNCTION

FUNCTION endscript
 MESSAGEBOX("Your printers and drives have been mapped", "Networking Status", 64)
ENDFUNCTION