Function MapDrive($DriveLetter, $UNC, optional $persistent)
dim $subcmd, $pt, $d, $di, $shell, $per
? "Connecting " + $DriveLetter + " to " + $UNC
$Ltr = Split($DriveLetter, ":")
If exist($DriveLetter + '\')
; shell "%ComSpec% /c net use " + $DriveLetter + " /delete /y> NUL 2>&1"
USE $DriveLetter /delete /persistent
EndIf
If $persistent
use $DriveLetter $UNC /persistent
Else
use $DriveLetter $UNC
EndIf
If not exist($DriveLetter + '\')
$strDrvMapLog = "\\Server\logs$\DrvMapFailure\" + @WKSTA + ".TXT"
WriteLog($strPrnMapLog, @DATE + "," + @TIME + "," + @WKSTA + "," + @UserID + "," + $DriveLetter + "," + $grplist)
CLS
" "
? "COULD NOT MAP DRIVE " + $DriveLetter + " to " $UNC + @CRLF
? "Please contact the ServiceDesk at (XXX)XXX-XXXX for assistance." + @CRLF
? "Press any key to continue..." get$
exit 1
return
Endif
ENDFUNCTION