vbs循環(huán)產(chǎn)生的參數(shù)的傳遞問題
更新時(shí)間：2008年06月09日 23:08:17 作者：
用vbs實(shí)現(xiàn)循環(huán)產(chǎn)生參數(shù)的傳遞問題，建議大家測試學(xué)習(xí)
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
這個(gè)只傳遞一次就完了
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
這個(gè)只傳遞一次就完了
相關(guān)文章
指的是在程序運(yùn)行過程中其值保持不變的量，它用來保存固定不變的數(shù)值，字符串等常數(shù) ,需要的朋友可以參考下2018-05-05
VBS教程：VBScript 語句-Sub 語句...2006-11-11![利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本](http://img.jbzj.com/images/xgimg/bcimg2.png)
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本...2007-02-02
依靠135端口，用wmi。像下邊的腳本是得到共享目錄ttt的物理目錄,依靠445端口，靠smb。bt5下的 nmap2012-05-05
VBS 強(qiáng)制關(guān)閉Symantec Endpoint Protection的代碼
很多企業(yè)電腦系統(tǒng)是Windows Xp，使用Windows server 2003 來控制，其中客戶端得殺毒軟件有不少是使用 Symantec Endpoint Protection2013-01-01
VBScript 打造自己的遠(yuǎn)程CMDShell附使用教程
這個(gè)cmdshell需要結(jié)合nc進(jìn)行配合使用，現(xiàn)在肉雞上執(zhí)行cmdshell然后在本地上面運(yùn)行nc，注意看下面的參數(shù)2013-07-07
對于想結(jié)合OWC的朋友，可以參考下。2009-05-05
VBS教程：方法-GetSpecialFolder 方法...2006-11-11
最近寫asp程序時(shí)用到日期格式轉(zhuǎn)換，因?yàn)椴煌瑪?shù)據(jù)庫對日期格式要求不一樣，這里特別找了一些相關(guān)資料，希望對大家有所幫助，如有問題請留言，謝謝!2011-01-01
VBScript Enun Remote CMD Shell代碼
Enun Remote CMDShell，喜歡玩cmdshell的朋友可以參考下2013-07-07