如何彻底删除脚本病毒,彻底删除文件的批处理文件.彻底删除文件夹的VB程序(Procedures)(Procedures)
中了脚本病毒了.
在盘符上点右键,点"打开"
彻底删除盘符下的autorun.inf
文件可能是隐藏(Hide)的,要取消文件的隐藏(Hide),在工具=选项里.
彻底删除后重新启动操作系统操作系统电脑就可以啦.
您可以建立一个批处理文件,写入
del 盘符\autorun.inf 参数
运行之~~
推荐一些程序(Procedures)(Procedures):
1,记住,修改文件名,最好是autorun.*
@echo off
del /f/s /q %systemdrive%\*.tmp
del /f/s /q %systemdrive%\*._mp
rem 下面是彻底删除所有log后缀的文件，不过这种类型可能有一些是有用的文件，譬如一些程序(Procedures)(Procedures)的安装记录，所以rem掉了.如果要使用，把rem去掉就可以了.
rem del /f/s /q %systemdrive%\*.log
del /f/s /q %systemdrive%\*.gid
del /f/s /q %systemdrive%\*.chk
del /f/s /q %systemdrive%\*.old
del /f/s /q %windir%\*.bak
del /f/s /q %systemdrive%\recycled/*.*
del /f/s /q %windir%\prefetch\*.*
rd /s/q %windir%\temp & md %windir%\temp
rd /s/q %temp% & md %temp%
del /f/q %userprofile%\cookies\*.*
del /f/q %userprofile%\recent\*.*
rd /s/q "%userprofile%\Local Settings\Temporary Internet Files"
cls & echo 清除操作操作系统LJ完成！！
echo. & pause
2,
Option Explicit
On Error Resume Next
If WScript.Arguments.Count < 2 Then
ShowUsage()
WScript.Quit
Else
' 从指定的磁盘目录上面查找符合条件的文件
Dim strComputer
Dim objWMIService
Dim colFiles
Dim objFSO
strComputer = "." '在本地电脑上执行脚本
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Dim WMISql
WMISql = "Select * from CIM_DataFile where Path = '" _
& WScript.Arguments.Named.Item("Path") & "' AND Drive= '" _
& WScript.Arguments.Named.Item("Driver") & "'"
Set colFiles = objWMIService.ExecQuery(WMISql)
' 彻底删除满足条件的文件
' 该脚本指搜索当前路径下面的文件，不搜索子目录
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim strWMIDate
Dim ODate
Dim OlderBy
Dim objFile
Dim OToday
OToday = Date
For Each objFile in colFiles
strWMIDate = objFile.CreationDate
ODate = WMIDateStringToDate(strWMIDate)
If WScript.Arguments.Named.Item("OlderBy") <> "" Then
OlderBy = CInt(WScript.Arguments.Named.Item("OlderBy"))
Else
OlderBy = 3
End If
If (OToday - OlderBy) >= ODate Then
objFSO.DeleteFile(objFile.Name)
End If
Next
End If
Function WMIDateStringToDate(dtmInstallDate) '转换WMI格式的日期类型到DateTime类型
WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) )
End Function
Sub ShowUsage
Dim Str
Str = "FileName: RemoveFilesByDate.vbs" & VbCrLf _
& "这一个脚本彻底删除预定义天数以前的文件."& VbCrLf & VbCrLf _
& "Version: I.0" & VbCrLf _
& "Created: icuc88@hotmail.com" & VbCrLf _
& "Last Modify: Feb 18th, 2004" & VbCrLf _
& "All right reserved." & VbCrLf & VbCrLf _
& "参数：" & VbCrLf _
& "Driver:文件所在逻辑驱动器盘符" & VbCrLf _
& "Path:文件所在路径" & VbCrLf _
& "OlderBy:彻底删除多少天以前的文件，缺省为3天." & VbCrLf _
& "Example:" & VbCrLf _
& " I. 彻底删除3天以前的文件" & VbCrLf _
& " RemoveFilesByDate.wsf /Driver:C: /Path:\\test\\" & VbCrLf & VbCrLf _
& " II. 彻底删除5天以前的文件" & VbCrLf _
& " RemoveFilesByDate.wsf /Driver:C: /Path:\\test\\ /OlderBy:5" & VbCrLf
WScript.Echo Str
End Sub
把上面的内容拷贝到记事本中，另存为RemoveFilesByDate.vbs
-------
不明白有什么用，支持您一下
