Since the user folders are configed to use @userid, I will simply use that to identify the folders owner.

As it stands now, to take full advantage of my quota script, you will need to keep the database updated. You would do this by periodically running the exchange script that I am working on, it will update the database that the main quota script uses.

Bryce

code:

---

break on cls
;----------------------------------------------------------------------------------------------
; This script will pull the userid and smtp address from an exchange server and create a ini
; databse file.
;
; This script must be ran on the exchange server, under a useraccount that has exchange admin 
; rights.
;
; IF an Useraccount is found that has more than 1 SMTP address, you will be prompted to choose
; what SMTP address to use.
;----------------------------------------------------------------------------------------------
$orgname 	= "<orgname>"	;your mail orginization name
$sitename 	= "<sitename>"	;your mail site name
$ExchangeServer	= "@wksta"	;your mail server name
$domain		= "@domain"	;your domain name

$database	= "\\server\c$\email.ini"	;the name of the ini databse file
$DBName		= "EMAIL"

$cr 		= chr(13)+chr(10) 
$options 	= "%temp%\export.tmp"
$dumpfile 	= "%temp%\dumpfile.tmp"
$tempfile	= "%temp%\temp.tmp"
;----------------------------------------------------------------------------------------------
$options_txt = '[Export]'+$cr+'Subcontainers=Yes'+$cr+'Basepoint=/o=$orgname/ou=$sitename'
$exchadminpath = readvalue("HKEY_LOCAL_MACHINE\Software\Microsoft\Exchange\Setup","AdminDest")
if exist($options) = 1 	del "$options" endif
if exist($dumpfile) = 1 del "$dumpfile" endif
$nul = open(1,$options,5) $nul = writeline(1,$options_txt) $nul = close(1)
? "Dumping GAL from $ExchangeServer..."
shell '$exchadminpath\admin.exe /e $tempfile /d $Exchangeserver /o $options'
? "Filtering GAL for SMTP addresses only"
shell '%comspec% /c type "$tempfile" | find /i "SMTP:" > "$dumpfile"'
del "$tempfile" del "$options"
$nul = open(1,$dumpfile,2)
$line = readline(1)
? "Initializing the database..."
$nul = writeprofilestring($database,$dbname,"","")
do
	$line 	= substr($line,instr($line,$domain)+len($domain)+1,len($line))
	$userid = substr($line,1,instr($line,",")-1)
	$line 	= substr($line,instr($line,"SMTP:")+ len("SMTP:"),len($line))
	$smtp 	=  substr($line,1,instr($line,"%%")-1)
	
	select
		case $userid <> ""
			select
				case readprofilestring($database,$DBName,$userid) <> "" 
					? "$userid has multi SMTP address: please pick 1 to use"
					? "(A)$smtp	(B)" readprofilestring($database,$DBName,$userid)
					:AB
					get $AB
					select
					   case $ab = "A"
					      $nul = writeprofilestring($database,$DBNAME,$userid,$smtp)
					   case $ab = "B"
					      ; do nothing
					   case 1
					      beep goto AB
					endselect
					?
				case 1
					$nul = writeprofilestring($database,$dbname,$userid,$smtp)
			endselect
		case 1
			? "Dead account---"
			? $smtp ?
	endselect
	$line = readline(1)
until @error <> 0
$nul = close(1)
del $dumpfile

---