Check this line
Code: VBScript
objShell.Run("%COMSPEC% /k cacls & stfFolder & /E /G WhiteCastle\Sarah:F")

Should be,
Code: VBScript
objShell.Run("%COMSPEC% /k cacls """ & stfFolder & """ /E /G WhiteCastle\Sarah:F")