'----------------------------------------------------------------------
on error resume next
dim fso, Javafolder,folder,collfolder,collfiles,file
Set WSHNetwork = WScript.CreateObject("WScript.Network")
strUserName = WSHNetwork.UserName


Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
set Javafolder = fso.GetFolder("c:\documents and settings\" & strUserName & "\application data\sun")  ' the java folder



Set collfiles=Javafolder.Files  'delete files under Java folder
     for each file in collfiles
	file.delete
     next

Set collfolder=Javafolder.subfolders 'delete subfolders and files under Javafolder
     for each folder in collfolder
	     folder.Delete
     next



set Javafolder = fso.GetFolder("c:\documents and settings\" & strUserName & "\G2IP")  ' the java folder


Set collfiles=Javafolder.Files  'delete files under Java folder
     for each file in collfiles
	file.delete
     next

Set collfolder=Javafolder.subfolders 'delete subfolders and files under Javafolder
     for each folder in collfolder
	     folder.Delete
     next

'----------------------------------------------------------------------