Kasowanie zawartości folderu badmail w Microsoft Exchange 2000 serwer - kod źródłowy
Skrypt który umożliwia kasowanie zawartości folderu badmail w Microsoft Exchange 2000 serwer. W skrypcie został zaszyty link do folderu, link ten trzeba zmodyfikować. Aby skrypt uruchamiał, się automatycznie trzeba stworzyć nowe zadanie w harmonogramie zadań i odnieść się do skryptu
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | '**********************************************************************************************************************'* Autor: Marcin Mazurek *'* Data: 16/11/2004 *'* Opis: *'* Usuwa zawartoc folderu Badmail Standardowy folder w Microsoft Exchange 2000 srv *'* source = "C:\Program Files\Exchsrvr\Mailroot\vsi 1\BadMail" *'**********************************************************************************************************************Dim source'Nalez zmienic zmienna source na własciwa sciezke dostepu do folderu ktory ma byc wyczyszczonysource = "C:\Program Files\Exchsrvr\Mailroot\vsi 1\BadMail"Set objFSO = CreateObject("Scripting.FileSystemObject")If objFSO.FolderExists(source) then objFSO.DeleteFolder(source) objFSO.CreateFolder(source) WScript.echo "Zrobione"else WScript.echo "Folder nie istnieje: " & source WSCript.Quitend ifWSCript.Quit |