code:

---

 
use v: /delete
use w: @homeshr

if exist(c:\temp\temporary.txt)
   del "c:\temp\temporary.txt"
endif
if exist(c:\temp\classes.ini)
   del "c:\temp\classes.ini"
endif
if exist(c:\temp\remove.txt)
   del "c:\temp\remove.txt"
endif

IF @inwin = 1
   Sendkeys("~{TAB}")
ENDIF

Open(1,"c:\temp\temporary.txt",5)
Open(2,"c:\temp\classes.ini",5)
Open(3,"c:\temp\remove.txt",5)

writeline(2,"[classes]" + Chr(13)+ Chr(10))

;This part writes all of the groups into a file
$groupcount=0
do
  redim preserve $groups[$groupcount]
  $group=ENUMGROUP($groupcount)
  $groups[$groupcount]=$group
  writeline(1,$group + Chr(13) + Chr(10))
  $groupcount=$groupcount+1
until len($group)=0

close(1)
close(2)
close(3)

open(1,"c:\temp\temporary.txt",2)
open(3,"c:\temp\remove.txt",4)

$remdomuser="xxx\Domain Users"
$remdomuserlen=Len($remdomuser)
$remdomstud="xxx\Students_Global"
$remdomstudlen=len($remdomstud)
$deleteme=Readline(1)
	while @ERROR=0
		  if Left($deleteme,$remdomuserlen)=$remdomuser
		  	 $remdomuser="trash"
			 writeline(3,$remdomuser + Chr(13) + Chr(10))
			 $deleteme=Readline(1)
		  endif
		  if Left($deleteme,$remdomstudlen)=$remdomstud
		     $remdomstud="trash"
		     writeline(3,$remdomstud + Chr(13) + Chr(10))
			 $deleteme=Readline(1)
		  else
		  	 writeline(3,$deleteme + Chr(13) + Chr(10))
			 $deleteme=Readline(1)
		  endif
	loop
		 
close(1)
close(3)
	
;This is my test area below

Open(3,"c:\temp\remove.txt",2)
Open(2,"c:\temp\classes.ini",4)

$dom="xxxxxxx\"
$domlen=Len($dom)
$strip=Readline(3)
	 while @ERROR = 0
	     If Left($strip,$domlen)=$dom
	  	 	$strip=SubStr($strip,$domlen+1)
			"Group stripped of domain = " ? $strip
	  	 	writeline(2,$strip + "=\\Server\"+ $strip + Chr(13) + Chr(10))
	  	 	$strip=ReadLine(3)
			? $strip
		 Else
		 	 $strip=ReadLine(3)
			 ? $strip
		 Endif
	loop
close(3)
close(2) 
	 
;This is my test area above

;This part reads and displays a menu
Open(2,"c:\temp\classes.ini",2)
$classes=readprofilestring("c:\temp\classes.ini",'Classes','')
$classes=split($classes,chr(10))
$selection=-1
do
  cls
    for $class=1 to ubound($classes)
	    ? ''+$class+') '+$classes[$class-1]
	next
	"
	
	Type in a class number or press enter for none.  If you select
	the wrong class, you will have to log out and log back in.
	
	Enter Selection : "
	gets $selection
	
	$selection=val($selection)
	until
	 $selection>=0 and $selection=ubound($classes)
	 
	 $selection=$selection - 1	
	 
	 $class=$classes[$selection]
	 $classmapping=readprofilestring(@scriptdir+'\classes.ini','Classes',$class)
	 use v: $classmapping
	 if @error  ? 'Error mapping drive v: to '+$classmapping
	  			? 'Error code: '+@ERROR+' - '+@SERROR
	 endif
close(1)
close(2) 
del "c:\temp\temporary.txt"
del "c:\temp\classes.ini"
del "c:\temp\remove.txt"

---