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..........:  [email protected]
'#  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