把这个BAT文件译成VBS?

来源:百度知道 编辑:UC知道 时间:2024/05/25 08:18:24
就是这个清理垃圾文件的批处理:
pause
echo 正在清理系统垃圾文件,请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
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 %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清理系统垃圾完成!
echo. & pause

译成VBS就可以了,效果要一样

能详细给我分析的我可以加分!!!

'使用CScript宿主
If Not (LCase(Right(WSH.FullName,Len("CScript.exe")))="cscript.exe") Then
CreateObject("WScript.Shell").Run "CScript.exe -nologo " & """" & WSH.ScriptFullName & """" , 1 , False
WSH.Quit
End If

WSH.StdOut.Write "请按任意键继续. . . "
WSH.StdIn.ReadLine
WSH.Echo "正在清理系统垃圾文件,请稍等......"

'删除
With CreateObject("WScript.Shell")
del .ExpandEnvironmentStrings("%systemdrive%") , "tmp" , False
del .ExpandEnvironmentStrings("%systemdrive%") , "_mp" , False
'最好不要删除.log文件,否则某些软件可能无法卸载
'del .ExpandEnvironmentStrings("%systemdrive%") , "log" , False
del .ExpandEnvironmentStrings("%systemdrive%") , "gid" , False
del .ExpandEnvironmentStrings("%systemdrive%") , "chk" , Fa