VBScript to delete folder from APPDATA and LocalSettings

set fso =createobject("scripting.filesystemobject")
set wshshell = createobject("wscript.shell")
USRPROFILE = wshshell.expandenvironmentstrings("%APPDATA%")
If fso.FolderExists(USRPROFILE & "\santosh") Then
   fso.DeleteFolder(USRPROFILE & "\santosh")
End If

USRPROFILE = wshshell.expandenvironmentstrings("%HOMEPATH%")
If fso.FolderExists(USRPROFILE & "\Local Settings\Application Data\santosh") Then
   fso.DeleteFolder(USRPROFILE & "\Local Settings\Application Data\santosh")
End If