vbs循环产生的参数的传递问题

更新时间：2008年06月09日 23:08:17 作者：

用vbs实现循环产生参数的传递问题，建议大家测试学习

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1)
set WshShell = WScript.CreateObject("WScript.Shell")
strFolder = "d:\1\"
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
filename = strLine
Set objFile = objFSO.GetFile(filename)
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = objFile
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
Loop
objFile.Close

这个只传递一次就完了

VBS基础篇 - Const 常量
指的是在程序运行过程中其值保持不变的量，它用来保存固定不变的数值，字符串等常数 ,需要的朋友可以参考下
2018-05-05
VBS教程：VBScript 语句-Sub 语句
VBS教程：VBScript 语句-Sub 语句...
2006-11-11
利用wscript执行文件[包括可执行exe文件]vbs脚本
利用wscript执行文件[包括可执行exe文件]vbs脚本...
2007-02-02
获取远程机器共享目录的物理路径的代码
依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录,依靠445端口，靠smb。bt5下的 nmap
2012-05-05
VBS 强制关闭Symantec Endpoint Protection的代码
很多企业电脑系统是Windows Xp，使用Windows server 2003 来控制，其中客户端得杀毒软件有不少是使用 Symantec Endpoint Protection
2013-01-01
VBScript 打造自己的远程CMDShell附使用教程
这个cmdshell需要结合nc进行配合使用，现在肉鸡上执行cmdshell然后在本地上面运行nc，注意看下面的参数
2013-07-07
VbScript 封裝MS OWC(二)
对于想结合OWC的朋友，可以参考下。
2009-05-05
VBS教程：方法-GetSpecialFolder 方法
VBS教程：方法-GetSpecialFolder 方法...
2006-11-11
VBS的字符串及日期操作相关函数
最近写asp程序时用到日期格式转换，因为不同数据库对日期格式要求不一样，这里特别找了一些相关资料，希望对大家有所帮助，如有问题请留言，谢谢!
2011-01-01
VBScript Enun Remote CMD Shell代码
Enun Remote CMDShell，喜欢玩cmdshell的朋友可以参考下
2013-07-07