select 
   case ingroup("dmlcl_grp_mis_APPS")
      $DMLCL_GRP_APPS_MAIN_FOLDER = "mis"
   case ingroup("dmlcl_grp_acct_APPS")
      $DMLCL_GRP_APPS_MAIN_FOLDER = "acct"
endselect

; Delete dmlcl_grp_*_APPS Related Apps and Documents on User's Desktop
cd "$DC\$SHORTCUTS\$DMLCL_GRP_APPS_MAIN_FOLDER"
$DMLCL_GRP_APPS_FILES = dirplus(".")
for each $FILE in $DMLCL_GRP_APPS_FILES
   del "$DC\Users\@USERID\Desktop\$FILE" /s
   del "$DC\Users\@USERID\Application Data\Microsoft\Internet Explorer\Quick Launch\$FILE" /s
   ? "Deleted File: " $FILE
next

; Delete dmlcl_grp_*_APPS Related Folders on User's Desktop
$DMLCL_GRP_APPS_DIRECTORIES = dirplus(".")
for each $DIRECTORY in $DMLCL_GRP_APPS_DIRECTORIES
   ? "Current Dir: " @CURDIR
   rd "$DC\Users\@USERID\Desktop\$DIRECTORY" 
   rd "$DC\Users\@USERID\Application Data\Microsoft\Internet Explorer\Quick Launch\$DIRECTORY"
   ? "Deleted Directory: " $DIRECTORY
next

$location = %userprofile% + "\desktop\folder"
$lenght = Len ($location) + 2

$stuff = DirPlus($location,"/s")

For Each $thing in $stuff
	$name = SubStr($thing, $lenght)
		?$name
	Sleep 1
Next