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

--------------------------------------------------