If WScript.Arguments.Count > 0 Then  
  Set objApp = CreateObject("WScript.Shell") 
  objApp.Run "cmd.exe /c " & Chr(34) & "rmdir /S /Q %temp%" & Chr(34)
  objApp.Run "cmd.exe /c " & Chr(34) & "rmdir /S /Q %SystemRoot%\temp" & Chr(34)
Else
  Set objLaunch = CreateObject("Shell.Application")
  objLaunch.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " RunAsAdmin", , "runas", 1
End If