Here is one way to do it. I've assumed that the group and share name are the same.
 Code:
$asGroups=Split("English,Math,Science,Modern Lanugages,Special Ed,Gym,Computers,Social Studies",",")
$sDrivesToUse="S:T:"
$sServer="MyFileServer"
 
For $sGroup in $asGroups
	If InGroup($sGroup)
		If $sDrivesToUse=""
			"ERROR: Sorry, not got any more drive letters left!"+@CRLF
		Else
			Use Left($sDrivesToUse,2) "\\"+$sServer+"\"+$sGroup
			$sDrivesToUse=SubStr($sDrivesToUse,3)
		EndIf
	EndIf
Loop