; Save Directory Reports
; 
; This script will generate directory size reports on the specified server, 
; and then write an event to it.

Break on

; Server specified?
If $SVR = 0
	? "No server specified..."
	?
	? "KIX32 SaveDirSizeLogs.KIX $$SVR=servername $$RDRV=reportdrive $$SDRV=scandrive"
	QUIT 1
EndIf
If $RDRV = 0
	? "No report drive specified. Please specify the server's drive for storing the reports..."
	?
	? "KIX32 SaveDirSizeLogs.KIX $$SVR=servername $$RDRV=reportdrive $$SDRV=scandrive"
	QUIT 1
EndIf
If $SDRV = 0
	? "No scan drive specified. Please specify the server's drive to scan..."
	?
	? "KIX32 SaveDirSizeLogs.KIX $$SVR=servername $$RDRV=reportdrive $$SDRV=scandrive"
	QUIT 1
EndIf

; Format today's date for use in file names
$DATE = Substr(@DATE,1,4) + Substr(@DATE,6,2) +Substr(@DATE,9,2)
 
; Location to store archived logs (this is a central storage depot)
$LOG = "\\SERVER1\DATA\IT\Servers\DirectorySizeLogs\$SVR"
; In case the directory does not exist, let's make it
md $LOG

; Location to store the event logs on the server being checked
$LOC = "\\$SVR\$RDRV$$\DIRSIZELOGS"
; Make this directory so it exists
md $LOC

; Clear Logs? Set this to TRUE to clear them - not implemented really
$CLR = 1

; Process Log
StoreDirLog($CLR)

EXIT

Function StoreDirLog($CLR)
	; Process Log
        $LogName=$SDRV + "-DriveScan"

	; Remove spaces from the name
	$LOGFILE = join(split($LogName),'')
	$LOGNAME= $LOGFILE + "Log-$DATE.EVT"
	$ARCHIVE = "$LOG\$LOGNAME"
	$MAINLOG = "$LOC\$LOGNAME"
	$LOCALLOG = "$DRV:\DIRSIZELOGS\$LOGNAME"
	? "Building... $SVR - $LOGNAME"

	; Remove any existing log
	del "$ARCHIVE"
	del "$MAINLOG"

	$RTN = DirSize($SERVER,$SDRV) ; Doesn't exist yet
	If @ERROR = 0
	EndIf

	; Archive the logfile
	copy $MAINLOG $ARCHIVE
	? "Storing... $ARCHIVE"

	$RC = LogEvent( 0 , 1 , "$LogName successfully created and archived." , "\\$SVR", "Log-$LOGFILE")
EndFunction

for each $line in diruse("\\flag-fs01\resource", "/* /m /,")

	? $line

next





Function DirUse($Source, optional $options)

	dim $i, $return

	$return = wshpipe('diruse ' + $options + ' ' + $source,1)

	dim $out[ubound($return)-4]

	for $i = 2 to ubound($return)-2

		$out[$i-2] = $return[$i]

	next

	$diruse = $out

endfunction