Dim fso, folder, file, folderPath
Set fso = CreateObject("Scripting.FileSystemObject")
' Specify the folder to scan
folderPath = "C:\Path\To\Scan"
' Call the ScanFolder function
ScanFolder folderPath
Sub ScanFolder(path)
If fso.FolderExists(path) Then
Set folder = fso.GetFolder(path)
For Each file In folder.Files
' Check for suspicious file types
If IsSuspicious(file) Then
DeleteFile(file)
End If
Next
' Recursively scan subfolders
For Each subfolder In folder.Subfolders
ScanFolder subfolder.Path
Next
Else
WScript.Echo "Folder does not exist: " & path
End If
End Sub
Function IsSuspicious(file)
Dim ext
ext = LCase(fso.GetExtensionName(file.Name))
' Add more extensions or filenames as needed
If ext = "exe" Or ext = "bat" Or ext = "vbs" Or ext = "js" Then
IsSuspicious = True
Else
IsSuspicious = False
End If
End Function
Sub DeleteFile(file)
On Error Resume Next
file.Delete True
If Err.Number = 0 Then
WScript.Echo "Deleted: " & file.Path
Else
WScript.Echo "Failed to delete: " & file.Path
End If
On Error GoTo 0
End Sub