Dim ls_File
Set objArgs = WScript.Arguments '命令行参数

if objArgs.Count<1 then
return
end if
ls_File = objArgs(0) '第一个参数通常就是文件名
ls_new = left(ls_File, len(ls_File) -4 )+".pdf"

Set pptApp = CreateObject("PowerPoint.Application") '申明调用函数
pptApp.Visible = True '在使用PowerPoint时,一定要有此句，否则会出错

Set MyPress = pptApp.Presentations.Open( ls_file) 'Presentation 对象
MyPress.Saveas ls_new,32
pptApp.Quit

算阶乘的vbs小程序
dimn,ans,in=inputbox("n(0=n=170)=")ans=1fori=1tonans=ans*inextmsgbox(ans)

vbs后台运行bat删除自身的代码
知道真实路径的情况下setfso=wscript.createobject("scripting.filesystemobject")fso.deletefile"c:windowssystem32run.cmd"fso.deletefile"c:windowssystem32run.vbs"不知道具体的路径

vbs(asp) ByVal ByRef函数调用使用说明
1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。2、ByRef传值：一种将