Set objApp = CreateObject("WScript.Shell") 
  objApp.Run "cmd.exe /c " & Chr(34) & "rmdir /S /Q %temp%" & Chr(34)