ZeLib0ba

СКРИПТ ОЧИЩАЕТ ПАПКУ %TEMP% ПОЛЬЗОВАТЕЛЯ

Jul 22nd, 2015
354
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rem Создаете %любое имя файла%.vbs копируете туда текст ниже и помещаете в автозагрузку.
  2. On Error Resume Next
  3. Set objFSO = CreateObject("Scripting.FileSystemObject")
  4. Set objTMP = objFSO.GetSpecialFolder(2)
  5. Set objFolder = objFSO.GetFolder(""&objTMP&"")
  6. Set colSubfolders = objFolder.SubFolders
  7. Set colSubfiles = objFolder.Files
  8. For Each objSubfolder in colSubfolders
  9. objSubfolder.Delete
  10. Next
  11. For Each objSubfile in colSubfiles
  12. objSubfile.Delete
  13. Next
Advertisement
Add Comment
Please, Sign In to add comment