Re^4: mehrere Verzeichnisinhalte beim shudown lösc
Hi,
hab das kürlich für mich in der Arbeit über VBScript realisiert. Haben da NT4. Es müssten also nur die Verzeichnisse geändert werden.
Zur erläuterung:
V gibt die Pafade an, in denen nur die Unterverzeichnisse gelöscht werden soll
D nur Dateien löschen
A alles Löschen
Die Variable User enthält den aktuellen Username. Musste ich so machen, weil man das eigene Profil nicht löschen soltle/kann, wenn man gerade angemeldet ist.
cu
Mischa
Code:
option explicit
on error resume next
dim filesys, dateien, folder, file, ordner, verzeichnis, D(2), V(2), A(0), myshell, user
Set MyShell = Wscript.CreateObject("Wscript.Shell")
set filesys=CreateObject("Scripting.FileSystemObject")
For Each MyVariable In MyShell.Environment("PROCESS")
if instr(MyVariable,"USERNAME=") = 1 then
user=mid(Myvariable,len("username= "))
exit for
end if
Next
A(0)="C:\WINNT\temp\" + user
D(0)="C:\WINNT\temp\" + user+ "\Temporary Internet Files"
D(1)="C:\WINNT\Profiles\" + user + "\Recent"
D(2)="C:\WINNT\Profiles\" + user + "\Cookies"
V(0)="C:\WINNT\Profiles\" + user + "\Local Settings\Temporary Internet Files\Content.IE5"
V(1)="C:\WINNT\Profiles\" + user + "\Temporary Internet Files\Content.IE5"
V(2)="C:\WINNT\Profiles"
for each All in A
set folder=filesys.GetFolder(All)
set dateien=folder.Files
For Each file in dateien
filesys.deletefile(file)
next
set ordner=folder.subFolders
for each verzeichnis in ordner
filesys.deletefolder(verzeichnis)
next
next
for each Dat in D
set folder=filesys.GetFolder(Dat)
set dateien=folder.Files
For Each file in dateien
filesys.deletefile(file)
next
next
for each Ver in V
set folder=filesys.GetFolder(Ver)
set ordner=folder.subFolders
for each verzeichnis in ordner
if not Verzeichnis="All Users" or not Verzeichnis = user or not Verzeichnis = "Default User" then filesys.deletefolder(verzeichnis)
next
next