Otomatik temizleme scripti

http://www.cozumpark.com/forums/thread/59183.aspx

teşekkürler hocam.

yalnız benim aradığım 

elimdeki diski bağlayıp scripti çalıştırdığımda bu işleleri X:\Aocuments And Settings içindeki tüm kullanıcı hesaplarında tek tek yapacak.

Sinan beyin verdiği linkteki

cd\
del C:\Documents and Settings\%username%\Temp\*.* /s /q /f 

Bu scripti denediniz mi.ben şimdi denedim ve çalıştı.

Kolay Gelsin,

diyelimki

C:\Documents and Settings\Username1\

C:\Documents and Settings\Username2\

C:\Documents and Settings\Username3\

C:\Documents and Settings\Username4\

C:\Documents and Settings\Username5\

veya daha çok user var. bunları tek tek temizlemek oldukça eforlu.Ayrıca username'ler alfabetik veya numerik sirali degildir.

Burada %username% değişken isimleri ifade ediyor.
Yani Documents and Settings altında ne kadar username varsa onların altındaki templeri temizler.

Burada %username% değişken isimleri ifade ediyor.
Yani Documents and Settings altında ne kadar username varsa onların altındaki templeri temizler.

 Bu değişken yalnızca o an oturum açmış kullanıcınındır.

Tek tek hepsini temizleme yapmayacaktır.

Cevap için teşekkür ediyorum.

Merhaba,
Disk takıyorum dediğiniz için profil root u otomatik aldırmadım.
Aşağıda ilk satırda tanımlanmış Profil Root içindeki tüm profillerin "Temporary Internet Files" dizinini temizleyen vbs kodu içeriği bulunmaktadır.
Özel dizinleri es geçmekte ve dizin bulunmadığında hata vermemektedir.

 TempTemizle "C:\Documents and Settings"

 Sub TempTemizle(ProfilRoot)
    Dim fs, f, f1, fc,fso
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(ProfilRoot)
    Set fc = f.SubFolders
    For Each f1 in fc
      if  f1.name<>"All Users" and f1.name<>"Default User"  and f1.name<>"LocalService" and f1.name<>"NetworkService"  and fso.FolderExists( ProfilRoot & "\" & f1.name &"\Local Settings\Temporary Internet Files" )=true then
        For Each file In fso.GetFolder( ProfilRoot & "\" & f1.name &"\Local Settings\Temporary Internet Files" ).Files
          file.delete
        Next
      end if
next
 End Sub 

Merhaba,
Disk takıyorum dediğiniz için profil root u otomatik aldırmadım.
Aşağıda ilk satırda tanımlanmış Profil Root içindeki tüm profillerin "Temporary Internet Files" dizinini temizleyen vbs kodu içeriği bulunmaktadır.
Özel dizinleri es geçmekte ve dizin bulunmadığında hata vermemektedir.

 TempTemizle "C:\Documents and Settings"

 Sub TempTemizle(ProfilRoot)
    Dim fs, f, f1, fc,fso
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(ProfilRoot)
    Set fc = f.SubFolders
    For Each f1 in fc
      if  f1.name<>"All Users" and f1.name<>"Default User"  and f1.name<>"LocalService" and f1.name<>"NetworkService"  and fso.FolderExists( ProfilRoot & "\" & f1.name &"\Local Settings\Temporary Internet Files" )=true then
        For Each file In fso.GetFolder( ProfilRoot & "\" & f1.name &"\Local Settings\Temporary Internet Files" ).Files
          file.delete
        Next
      end if
next
 End Sub 

teşekkürler