| |
电脑问题
|
|
作者： fengvsting
01-01 08:00
回复
|
|
我的电脑某次中毒了，杀过毒以后就出现下列情况：除了“C”盘双击能打开外，其余“D”“E”“F”盘双击均会弹出选择打开类型的窗口（类似没有安装压缩的人打开rar文件一样），请教个位大虾指点迷津！不胜感激！ |
|
| |
回复：电脑问题
|
|
作者： vus520
01-01 08:00
回复
|
|
中了脚本病毒了.
在盘符上点右键,点"打开"
删除盘符下的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 |
|
| |
回复：电脑问题
|
|
作者： wwln
03-21 08:54
回复
|
|
中了脚本病毒了.
在盘符上点右键,点"打开"
删除盘符下的autorun.inf
文件可能是隐藏的,要取消文件的隐藏,在工具=选项里.
删除后重启计算机就可以了.
或者下载一个windows 优化大师,里面的优化项有禁止驱动器自动运行功能 |
|
|
