vbs循環(huán)產生的參數(shù)的傳遞問題

更新時間：2008年06月09日 23:08:17 作者：

用vbs實現(xiàn)循環(huán)產生參數(shù)的傳遞問題，建議大家測試學習

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 常量
指的是在程序運行過程中其值保持不變的量，它用來保存固定不變的數(shù)值，字符串等常數(shù) ,需要的朋友可以參考下
2018-05-05
VBS教程：VBScript 語句-Sub 語句
VBS教程：VBScript 語句-Sub 語句...
2006-11-11
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本...
2007-02-02
獲取遠程機器共享目錄的物理路徑的代碼
依靠135端口，用wmi。像下邊的腳本是得到共享目錄ttt的物理目錄,依靠445端口，靠smb。bt5下的 nmap
2012-05-05
VBS 強制關閉Symantec Endpoint Protection的代碼
很多企業(yè)電腦系統(tǒng)是Windows Xp，使用Windows server 2003 來控制，其中客戶端得殺毒軟件有不少是使用 Symantec Endpoint Protection
2013-01-01
VBScript 打造自己的遠程CMDShell附使用教程
這個cmdshell需要結合nc進行配合使用，現(xiàn)在肉雞上執(zhí)行cmdshell然后在本地上面運行nc，注意看下面的參數(shù)
2013-07-07
VbScript 封裝MS OWC(二)
對于想結合OWC的朋友，可以參考下。
2009-05-05
VBS教程：方法-GetSpecialFolder 方法
VBS教程：方法-GetSpecialFolder 方法...
2006-11-11
VBS的字符串及日期操作相關函數(shù)
最近寫asp程序時用到日期格式轉換，因為不同數(shù)據庫對日期格式要求不一樣，這里特別找了一些相關資料，希望對大家有所幫助，如有問題請留言，謝謝!
2011-01-01
VBScript Enun Remote CMD Shell代碼
Enun Remote CMDShell，喜歡玩cmdshell的朋友可以參考下
2013-07-07