ON ERROR RESUME NEXT
Set FSO = CreateObject("Scripting.FileSystemObject")
numberOfFilesDeleted = 0
bytesDeleted = 0
dim computerName

Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )

For Each objItem in colItems
	computerName = lcase(objItem.Name)
Next

set logFile = FSO.createTextFile("\\kaikoma.ads.hhs.nl\deletechannelscripts_logs$\"&computerName&".txt",true)

set marimba = fso.getfolder("C:\Program Files\BMC Software\BBCA\Tuner\.marimba\HHS Managed Endpoint")
for each subfolder in marimba.subFolders
        if instr(subfolder.name,"ch.") then
		for each ssubfolder in subfolder.subFolders
			for each sssubfolder in ssubfolder.subFolders
				if sssubfolder.name = "scripts" then
					for each file in sssubfolder.files
						logFile.writeline(file.path&";"&file.size)
						bytesDeleted=bytesDeleted + file.Size
						numberOfFilesDeleted = numberOfFilesDeleted + 1
						file.delete true
					next
				end if
			next
		next
	end if
next

logFile.writeline "numberOfFilesDeleted: "&numberOfFilesDeleted
logFile.writeline "MegaBytesDeleted: "&bytesDeleted/1024/1024