VBS杀毒软件

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