如何删除脚本病毒,删除文件的批处理文件.删除文件夹的VB程序

如何删除脚本病毒,删除文件的批处理文件.删除文件夹的VB程序

中了脚本病毒了.
在盘符上点右键,点"打开"
删除盘符下的autorun.inf
文件可能是隐藏的,要取消文件的隐藏,在工具=选项里.
删除后重启计算机就可以了.

你可以建立一个批处理文件,写入

del 盘符\autorun.inf 参数

运行之~~

推荐一些程序:
1,记住,修改文件名,最好是autorun.*
@echo off
del /f/s /q %systemdrive%\*.tmp
del /f/s /q %systemdrive%\*._mp
rem 下面是删除所有log后缀的文件，不过这种类型可能有一些是有用的文件，比如一些程序的安装记录，所以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 清除系统垃圾完成！！
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:    1.0"    &    VbCrLf    _  
          &    "Created:  [email=icuc88@hotmail.com][color=#2f5fa1]icuc88@hotmail.com[/color][/email]"    &    VbCrLf    _  
          &    "Last    Modify:    Feb    18th,    2004"    &    VbCrLf    _  
          &    "All    right    reserved."    &    VbCrLf    &    VbCrLf    _  
          &    "参数："    &    VbCrLf    _  
          &    "Driver:文件所在逻辑驱动器盘符"    &    VbCrLf    _  
          &    "Path:文件所在路径"    &    VbCrLf    _  
          &    "OlderBy:删除多少天以前的文件，缺省为3天。"    &    VbCrLf    _  
          &    "Example:"    &    VbCrLf    _  
          &    "      1.    删除3天以前的文件"    &    VbCrLf    _  
          &    "      RemoveFilesByDate.wsf    /Driver:C:    /Path:\\test\\"    &    VbCrLf    &    VbCrLf    _  
          &    "      2.    删除5天以前的文件"    &    VbCrLf    _  
          &    "    RemoveFilesByDate.wsf    /Driver:C:    /Path:\\test\\    /OlderBy:5"    &    VbCrLf   
      WScript.Echo    Str  
  End    Sub

把上面的内容拷贝到记事本中，另存为RemoveFilesByDate.vbs