win 2012 Terminal Чистка профилей

Скрипт, разбит на функции и переменные, позволяет чистить профили, при этом не удаляет информацию, а переносит её на другой указанный сервер, распределяя информацию по дням чистки.


code (VBS)

Dim s
Set WshShell = CreateObject("WScript.Shell")
'MsgBox "rrun"
' --------------------------------------------------------------------------------
'Функция, которая архивирует все подпапки в определённой папке и размещает
'их в формате "имя папки" _ "датавремя" в указаном месте
' --------------------------------------------------------------------------------


put = "C:\Users"
' = ВНИМАНИЕ = (куда архивируем?)
kudaarhiviruem = "\\server\Temp_TS_Users_Files"

Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(put)
Set fc = f.SubFolders
For Each f1 in fc
papkausername = f1.name
If (papkausername<>"учетная запись, которую не нужно чистить") And (papkausername<>"All Users") And (papkausername<>"Default") And (papkausername<>"Default User") And (papkausername<>"MSSQL$MICROSOFT##WID") And (papkausername<>"Public") And (papkausername<>"system") And (papkausername<>"UvhdCleanupBin") Then
s = Arhivirovanie(put,papkausername,kudaarhiviruem)
End If
Next


' --------------------------------------------------------------------------------
' Функция, которая запускает 7zip для архивирования папки papki,
' расположенного по пути put с параметром быстрейшего архивирования в zip архив
' в папку kudaarhiviruem, причём архив называется по маске "имя папки" _ "датавремя"
' --------------------------------------------------------------------------------rrun = """C:\Program Files\7-Zip\7z.exe"" a -tzip "&kudaarhiviruem&"\"&papkausername&"_"&denperenosa&".zip "&put&"\"&papkausername&"\ -mx1"
Function Arhivirovanie(put,papkausername,kudaarhiviruem)
denperenosa = DatePart("yyyy",date)&"."&DatePart("m",date)&"."&DatePart("d",date)
line1 = put&"\"&papkausername&"\"
line2 = kudaarhiviruem&"\"&denperenosa&"\"&papkausername&"\"
'"/move /e"
'MsgBox papkausername
a=movefolder(line1,line2,"AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.Outlook")
a=movefolder(line1,line2,"AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5")
a=movefolder(line1,line2,"AppData\Local\Microsoft\Windows\Temporary Internet Files\Low\Content.IE5")
a=movefiles(line1,line2,"AppData\Local\Google\Chrome\User Data\Default\Cache")
a=movefiles(line1,line2,"AppData\Local\Temp")
a=movefiles(line1,line2,"AppData\Local\Microsoft\Terminal Server Client\Cache")
a=movefiles(line1,line2,"AppData\Local\Microsoft\Windows\Explorer")
a=movefolders(line1,line2,"AppData\Roaming\1C\1Cv82")
a=movefolders(line1,line2,"AppData\Local\1C\1Cv82")
'Return = WshShell.Run(rrun, 0, true)
Arhivirovanie = 1
'MsgBox kudaarhiviruem&rrun
End function

Function movefolder(line1,line2,line3)

rrun = """C:\Windows\System32\Robocopy.exe"" """&line1 & line3 & """ """& line2 & line3 & """ /move /e /R:1 /W:1"
'MsgBox rrun
Return = WshShell.Run(rrun, 0, true)
movefolder = 1

End function

Function movefiles(line1,line2,line3)

rrun = """C:\Windows\System32\Robocopy.exe"" """&line1 & line3 & """ """ & line2 & line3 & """ *.* /mov /e /R:1 /W:1"
'fname=InputBox("Command:",,rrun)
'MsgBox rrun
Return = WshShell.Run(rrun, 0, true)
movefiles = 1
'MsgBox kudaarhiviruem&rrun
End function

Function movefolders(line1,line2,line3)

put2 = line1 & line3
Dim fs2, f2, f12, fc2
Set fs2 = CreateObject("Scripting.FileSystemObject")
If fs2.FolderExists(put2) = True Then
Set f2 = fs2.GetFolder(put2)
Set fc2 = f2.SubFolders
fsourse = put2 &"\"
fdistenation = line2 & line3 &"\"

For Each f12 in fc2
papkatemp = f12.name
distenation = line2 & line3 &"\"& papkatemp
rrun = """C:\Windows\System32\Robocopy.exe"" """&fsourse&papkatemp&""" """&distenation &papkatemp&""" /move /e /R:1 /W:1"
'fname=InputBox("Command:",,distenation)
'fname=InputBox("Command:",,rrun)
Return = WshShell.Run(rrun, 0, true)
Next
'Else
'MsgBox put2
End If



'fname=InputBox("Command:",,rrun)
'Return = WshShell.Run(rrun, 0, true)

movefolders = 1
'MsgBox kudaarhiviruem&rrun
End function