Scripts
To force reboot: shutdown /r /f
To backup *.bak files into a folder and delete old folders.
-----------run.cmd---------------------
F:
cd f:\Principal
MD carpeta
robocopy f:\Archivosdeoficina F:\Principal\carpeta *.bak /MOV /S /v /SEC /r:1 /w:1 /eta /LOG:res.txt
renamef.vbs
deletef.vbs >ultdireliminado.txt
---------------------------------------
-----------renamef.vbs-------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = 'F:\\Principal\\carpeta'")
For Each objFile in colFiles
strDate = Left(objFile.CreationDate, 8)
strNewName = "F:\ArchivosBaksOT\" & strDate
strNameCheck = Replace(strNewName, "\", "\\")
i = 1
Do While True
Set colFiles = objWMIService.ExecQuery ("Select * from Win32_Directory where name = '" & strNameCheck & "'")
If colFiles.Count = 0 Then
errResult = objFile.Rename(strNameCheck)
Exit Do
Else
i = i + 1
strNewName = "F:\Principal\" & strDate & "_" & i
strNameCheck = Replace(strNewName, "\", "\\")
End If
Loop
Next
---------------------------------------------
-----------------deletef.vbs-------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("F:\Principal")
Set colSubfolders = objFolder.Subfolders
strdate = year(date()-15)*10000
strdate = month (date()-15)*100 + strdate
strdate = day (date()-15) + strdate
i=0
Wscript.Echo i
For Each objSubfolder in colSubfolders
if isnumeric(objSubfolder.Name) then
if cdbl(objSubfolder.Name) < strdate then
i=i+1
Wscript.Echo i
Wscript.Echo objSubfolder.Name, objSubfolder.Size
objFSO.DeleteFolder("F:\Principal\"& objSubfolder.Name)
end if
end if
Next
--------------------------------------------------