ich habe ein kleines script geschrieben was alle $NtUninstallKB Verzeichnisse älter als 3 Monate im Windows Verzeichniss löschen soll. Da ich keine Lust habe mit das ganze Windows Verzeichniss von einem Server zu löschen, ist das testen ein bischen schwierig.
Vielleicht kann mir jemand sagen ob es geht, oder ob ich auf dem falschen Weg bin......
Edit by Agent: VB-Tag eingefügt
Vielleicht kann mir jemand sagen ob es geht, oder ob ich auf dem falschen Weg bin......
Visual Basic-Quellcode
- Dim folder
- Dim oFolder
- Dim sysFolder
- Dim oFSO
- Dim Alter
- Alter = 90 ' Verzeichnisse, die vor xxx Tagen angelegt wurden
- On Error Resume Next
- Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
- set oShell = WScript.CreateObject("WScript.Shell")
- sysfolder1="%systemroot%"
- sysfolder = oShell.ExpandEnvironmentStrings(sysfolder1)
- Set oFolder = oFSO.GetFolder(sysFolder)
- Alter = FormatDateTime( now() - Alter ,2)
- For Each oSubfolder In oFolder.Subfolders
- If oSubfolder like "$NtUninstallKB$" Then
- if DateDiff("d" , oSubfolder.DateLastModified, Alter) > 0 then ' vor dem Alter geänderte Verzeichnisse
- Set oFolder1 = oFSO.GetFolder(Pfad)
- Set oFiles1 = oFolder.Files
- for Each oFile In oFiles
- oFSO.DeleteFile(oFile.Path),True
- Next
- for each oSubfolder In OFolder.Subfolders
- oSubfolder.delete
- Next
- End If
- End If
- Next
- Set oFiles1 = Nothing
- Set oFolder = Nothing
- Set oFolder1 = Nothing
- Set sysFolder = Nothing
- Set oFSO = Nothing
- Set folder = Nothing
- Set Alter = Nothing
- WScript.Quit
Edit by Agent: VB-Tag eingefügt
