Bryce

------------------
"He was a good little monkey and always very curious..."

I haven't had time to look into it, hopefully someone else has some insight.

------------------
"He was a good little monkey and always very curious..."

[This message has been edited by Paul_Berquam (edited 05 December 2000).]

If you find out how to use it with kixtart, please post some examples

Like David said - we could probably pull something together with OLE/ADSI.

But you know the score with ADSI - it comes standard with Win2K and is "installable" on WinNT.

Is this meant to be part of an NT logon script - or as a standalone admin tool ?

I's anyone aware of any commandline utilities for pulling this info ?

Shawn.

The original idea that I had was to create a script that ran as a service on NT server. This script would monitor the disk usage of the user folders. When a quota was reached the script would remove the write rights for that user on their folder. The email part would be used for notifying the user that they have exceeded their disk quota.

I don't know if this would be a doable idea or not, but it was a thought Mainly how to collect the disk usage data. I toyed around with DIRUSE but i was using it on a network resource and it was on the slow side......

running it on the local server, got a little bit faster results......

Bryce

Bryce

A sort of "roll your own" Quota Manager" !

I could use something like that. I've got some user communities that definitely push the bounds of "reasonable" disk usage.

I could see this service of yours initializing itself from an INI file - sort of a "list of shares" thing - and each share would have a quota and an email address attached to it.

Then all you'd need to do is use one of those automatic mailer thingy programs (BLAT?) - and wow ! - great idea !

Shawn.

Size (mb) Files Directory
! 1181.19 7677 SUB-TOTAL: D:\USERS\brycel
! 1251.64 3295 SUB-TOTAL: D:\USERS\feil
! 2922.32 6212 SUB-TOTAL: D:\USERS\leachb

Bryce

Size (mb) Files Directory
25392.05 132183 TOTAL

TimeThis : Command Line : diruse /m /* d:\users
TimeThis : Start Time : Wed Dec 06 11:05:33 2000
TimeThis : End Time : Wed Dec 06 11:07:12 2000
TimeThis : Elapsed Time : 00:01:38.859

Bryce

How many user shares do you have ?

Would be interesting if you could write a little test script that read a text file containing the paths of all your user folders - do a diruse on each one and get the overall elapsed time for that !

Shawn.

[This message has been edited by Shawn (edited 06 December 2000).]

using this code, to build a database/ini file

code:

---

break on cls
$path		= "d:\users"
$tempfile	= "%temp%\temp.dat"
$database 	= "d:\diruse.ini"
if exist($database) = 0
	$nul = open(1,$database,5)
	$nul = close(1)
endif
? "Building $Database"
$return = dir("$path\*.*")
while @error = 0
	select
		case $return = "." or $return = ".."
			;ignore
		case (getfileattr("$path\$return") & 16) = 16
			; $return will equal a dir or a file, 
			; depending on how $dirfileflag was set
			shell '%comspec% /c diruse /m "$path\$return" | find /i " total:" > $tempfile'
			$nul = open(1,$tempfile,2) $data = readline(1) $nul = close(1)
			$foldersize = ltrim(substr($data,1,13))
			$nul = writeprofilestring("$database","DIRUSE","$return","$foldersize") "."
	endselect
	$return = dir()
loop

---

It took a total of 00:01:50.765 to run.

Bryce

Shawn.

I am thinking about breaking it up in to 2 time groups.

Group 1 is ran once every 10 min, but this scan will only check the users that are close to and or over the limit (only using the information that is supplied from the database, and not doing a full diruse scan).

Group 2 would run once every 2 hours and it would run doing a full diruse scan

Thinking about using a 3 strikes your out rule too. You will have to be over your limit for 3 scans in a row before write access is removed. This is where I would like to use email as a warning tool.

I would like to have some way of notifying the user that their user folder is over it's size limit, and i can only use their USERID to do this. If all my users were NT i would just do a "net send" message, but.... this is not the case.

Bryce

I have included sample code below. The only assumption is that you have the Exchange admin program loaded on the machine that this is being run on

code:

---

break on
$fname = "Paul"		;The user's first name
$Lname = "Berquam"	;
$exch = "Y"		;
? "Searching for $fname $lname" ?
;options.txt is a file with the following
;
;[Export]
;Subcontainers=Yes
;Basepoint=/o=<ORGNAME>/ou=<SITENAME>/cn=<CONTAINERNAME> 
;
;End of options.txt
;note: The container is optional, if you don't enter it it should go to the GAL

if $exch = "Y"
  $exchadminpath = readvalue("HKEY_LOCAL_MACHINE\Software\Microsoft\Exchange\Setup","AdminDest")
  $exchfile = "c:\temp\testexch.csv"
  $options = "c:\options.txt"
  $DSNAME = "YOUREXCHANGESERVERNAME" ;Directory server name
  if exist($exchfile)
    del "$exchfile"
  endif
  $nul = open (7,$exchfile,1)
  $nul =  close(7)
  shell "$exchadminpath\admin.exe /e $exchfile /d $DSNAME /o $options" 	;for export
;Note that you can include a /n switch so that it doesn't display the gui export screen.  ;I kept it so that I could be sure that it was it was doing something 
  $found = 0 
  $found2 = 0
  $count = 0
  $countfirst = 0
  $countlast = 0
  $line = "none"
  $nul = open(7,$exchfile,2)
    ? "Searching..."
    while $line <> ""  
    $line = readline(7) "."
    $count = $count + 1
    $found = instr($line,$fname) ;	? "$fname $line"
    if $found <> 0
      $countfirst = $countfirst + 1
      $found2 = instr($line,$lname)
      if $found2 <> 0
	  $mailstart = instr($line,"SMTP:")
	  $linelen = len($line) 	
	  $line2 = substr($line,$mailstart,$linelen - $mailstart)
	  $mailend = instr($line2,"%")		
	  $mailaddy = substr($line2,6,$mailend-6) 
	  $countlast = $countlast + 1
      endif
    endif
  loop
  $nul = close(7)
? "$count records searched"
if $countlast > 0 
  ? "$fname $lname found"
  ? "Mail address is $mailaddy"
else
  ? "$fname $lname not found"
endif
endif
? ? "$countfirst name(s) matching $fname"
? "$countlast name(s) matching $lname"
? "End"
get $c

---

------------------
"He was a good little monkey and always very curious..."

[This message has been edited by Paul_Berquam (edited 06 December 2000).]

[This message has been edited by Paul_Berquam (edited 06 December 2000).]

------------------
"He was a good little monkey and always very curious..."

I will take at look at this. All of my users are in a single container.

Bryce

Tested it here with a few names and it seems to work. Of course performance will depend on how big the GAL is. In fact my script for screating the user accounts uses the import mode of admin.exe to create the mailboxes. One of these days I'll get around to cleaning it up and posting it.

------------------
"He was a good little monkey and always very curious..."

------------------
"He was a good little monkey and always very curious..."

Thanks for the code! I learned something new today! Using your code I am writing a script that will populate my database with the windows ID/smtp:address.

Thanks a lot!

Bryce

PS: this BBS is by far one of the best around!

If I may ask, what's the db for? Are you using it so that you can use the addy as a UPN for 2k users or something?

------------------
"He was a good little monkey and always very curious..."