Recyle Bin script

[networkingNut]

Hi I am trying to write a script to empty users Bins at logoff. I must confess my scriping knowledge is pretty much non existant so I have been cytting bits from other scripts which we have

What I have got so ar is

'Script to Empty the recycle Bin on Logoff.


'Get User DN
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName

If InStr(strUser, "Staff") Then 
	DEL  \\rhs-svr-001\staff$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year02") Then
	DEL  \\rhs-svr-001\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year03") Then
	DEL  \\rhs-svr-001\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year04") Then
	DEL  \\rhs-svr-003\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year05") Then
	DEL  \\rhs-svr-003\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year06") Then
	DEL  \\rhs-svr-001\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year07") Then
	DEL  \\rhs-svr-001\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year08") Then
	DEL  \\rhs-svr-003\year02$\%username%\RECYCLER\*.*
End If

If InStr(strUser, "Year09") Then
	DEL  \\rhs-svr-001\year02$\%username%\RECYCLER\*.*
End If


'Terminate script and engine
WScript.Quit

I have saved it as a bat but it does not seem to work. I would prefer to ue Vbscript. Howver when saved as a VB script it errors.

Any help is apreciated
nN

[networkingNut]

Update 8.3.2010

I have found the following script (Source: Empty Recycle Bin Script - Script Center - Spiceworks Community)

'#==============================================================================
'#==============================================================================
'#  SCRIPT.........:  emptyRecycleBin.vbs
'#  AUTHOR.........:  Joe Glessner
'#  EMAIL..........:  jglessner@gmail.com
'#  VERSION........:  1.0
'#  DATE...........:  02OCT09
'#  COPYRIGHT......:  2009, laoae.com
'#  LICENSE........:  Freeware
'#  REQUIREMENTS...:  
'#
'#  DESCRIPTION....:  Empties the Recycle Bin on the local computer.
'#
'#  NOTES..........:  This has only been tested on Windows 7, though it should 
'#                    work on all Windows versions, 2000 or later.
'#
'#                    This script will empty the Recycle bin, but will not 
'#                    change the icon to show it has been emptied, until the 
'#                    recycle bin has been opened by a user.
'# 
'#  CUSTOMIZE......:  
'#==============================================================================
'#  REVISED BY.....:  
'#  EMAIL..........:  
'#  REVISION DATE..:  
'#  REVISION NOTES.:
'#
'#==============================================================================
'#==============================================================================
'**Start Encode**

'#==============================================================================
'#  START OF SCRIPT
'#==============================================================================
'Option Explicit
'On Error Resume Next

    '#--------------------------------------------------------------------------
    '#  Declare Constants
    '#--------------------------------------------------------------------------
    Const RECYCLE_BIN = &Ha&
    Const FILE_SIZE = 3
    
    '#--------------------------------------------------------------------------
    '#  Declare Variables
    '#--------------------------------------------------------------------------
    Dim objShell, objFolder, objFSO, colItems
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(RECYCLE_BIN)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set colItems = objFolder.Items
    
    '#--------------------------------------------------------------------------
    '#  Delete everything in the Recycle Bin
    '#--------------------------------------------------------------------------
    For Each objItem in colItems
        If (objItem.Type = "File folder") Then
            objFSO.DeleteFolder(objItem.Path)

        Else
            objFSO.DeleteFile(objItem.Path)
        End If
    Next

'#==============================================================================
'#  SUBROUTINES/FUNCTIONS/CLASSES
'#==============================================================================

'#==============================================================================
'#  END OF FILE
'#==============================================================================

Whiel the for statement is running I would like to display a box the the student saying "Emptying your recycle bin". I dont want the box to have any buttons but just be timed so once the for statement has executed the box closes.

I ahve tried both MsgBox and document.writeln but document.writeln errors and MsgBox has buttons.

Sorry for such as newbe question but I am stumped

nN