code:

---

 
SETTIME @LSERVER

USE *: /D /PERSISTENT

USE K: "\\rpsifp01\map2"
USE M: "\\rpsifp01\mrcommon"
USE Y: "\\rpsifp01\apps"

IF INGROUP ("RESEARCH") > 0
USE G: "\\rpsifp01\MRRD_MIS"
ENDIF

IF INGROUP ("RESIDUALS") > 0
USE W: "\\HOUSTONSNAP\MRACCT2"
ENDIF

IF INGROUP ("NTRPSISUPPT") > 0
USE S: "\\rpsifp01\WINSTAL"
ENDIF

IF INGROUP ("SALES") > 0
USE G: "\\RPSIGOLD\RPSIGOLD"
USE S: "\\rpsifp01\MRSALES"
USE L: "\\rpsifp01\MRREPSRV"
ENDIF

IF INGROUP ("MARKETING") > 0
USE I: "\\HOUSTONSNAP\MRDOCS"
ENDIF

IF INGROUP ("RISKPEND") > 0
USE R: "\\RPSISNA\MERMAJOR"
ENDIF

IF INGROUP ("MARKETING MGRS") > 0
USE J: "\\HOUSTONSNAP\MKTGCONF"
ENDIF

IF INGROUP ("REP SERVICES") > 0
USE L: "\\rpsifp01\MRREPSRV"
ENDIF

IF INGROUP ("MAG") > 0
USE N: "\\rpsifp01\MAG"
USE W: "\\RPSISNA\MAGTOMAP"
ENDIF

IF INGROUP ("ORACLECH") > 0
USE O: "\\rpsifp01\ORACLE"
ENDIF

IF INGROUP ("ORACLERD") > 0
USE O: "\\rpsifp01\ORACLE"
ENDIF

IF INGROUP ("FSL_IBA") > 0
USE P: "\\RPSISNA\FSL_IBA"
ENDIF

IF INGROUP ("ACCOUNTING") > 0
USE P: "\\rpsifp01\MRBUD"
USE J: "\\rpsifp01\MRACCT"
ENDIF

IF INGROUP ("ACCOUNTING BID") > 0
USE T: "\\rpsifp01\MRBIDMOD"
ENDIF

IF INGROUP ("LAWSON") > 0
USE W: "\\RPSISNA\LAWSON"
ENDIF

IF INGROUP ("SYSINT") > 0
USE Q: "\\rpsifp01\MRINTEG"
ENDIF

IF INGROUP ("ASPECTR") > 0
USE R: "\\RPSISNA\AS890360"
ENDIF

IF INGROUP ("PURCHASING") > 0
USE S: "\\rpsifp01\MRPURCH"
ENDIF

IF INGROUP ("TECH") > 0
USE T: "\\rpsifp01\MRTECH"
ENDIF

IF INGROUP ("BUDGET") > 0
USE U: "\\rpsifp01\MRBUD"
ENDIF

IF INGROUP ("BUDGET2003") > 0
USE U: "\\rpsifp01\BUDGET03"
ENDIF

IF INGROUP ("AGENT BANK") > 0
USE V: "\\rpsifp01\MRAGENTB"
ENDIF

IF INGROUP ("HR") > 0
USE W: "\\rpsifp01\MRHRSHR"
ENDIF

IF INGROUP ("COMPLIANCE") > 0
USE X: "\\rpsifp01\MRCNTRT"
ENDIF

IF INGROUP ("RETENTIONRECOVERY") > 0
USE T: "\\rpsifp01\MRRETREC"
ENDIF

IF INGROUP ("RETENTIONRECOVERYR") > 0
USE T: "\\rpsifp01\MRRETREC"
ENDIF

IF INGROUP ("MERCHANT SETUP") > 0
USE W: "\\rpsifp01\MRTECH"
USE Q: "\\rpsifp01\MSTSCAN"
ENDIF

IF INGROUP ("FACILITY") > 0
USE I: "\\rpsifp01\MRFACILITY"
ENDIF

IF INGROUP ("APP PROCESSING") > 0
USE Q: "\\rpsifp01\APSCAN"
ENDIF

IF INGROUP ("MIS") > 0
USE x: "\\RPSISNA\MAGTOMAP"
ENDIF

IF @ERROR
$Status = " Error "
MESSAGEBOX ("A problem was encountered trying to map your drive settings.
 A Help Desk Request needs to be sent to the Help Desk. Thank you!","Notice",48)
ENDIF
 

---

code:

---

USE * /DELETE /PERSISTENT

---

code:

---

MapDrive("j:", "Server1", "Share1")  

---

code:

---

Function MapDrive($Drive, $Server, $Share)
   Dim $Drive, $Server, $Share
   Color c+/n
   If $Drive<>"" and $Server<>"" and $Share<>""
      $LogText="Connecting $Drive to \\$Server\$Share"
      ? $LogText
      USE $Drive /Delete /Persistent
      USE $Drive "\\$Server\$Share"
      If @error=0
         color g+/n
         $x=" - Success"
         "$x"
      Else
         color r+/n
         $x=" - Failed: Error @error"
         "$x"
         $ErrorState=1
      Endif
      WriteLog ($LogText + $x)
      Color w+/n
   Else
      WriteLog ("Function 'MapDrive' called with invalid parameters: '$Drive', '$Server', '$Share'")
   Endif
Endfunction
  

---