如何删除脚本病毒,删除文件的批处理文件.删除文件夹的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: 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 _ & " 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