Foro de elhacker.net

 hala de nuevo necesito ayuda con este vbs, la funcion de este vbs es crear
 acceso directo de algún programa o archivo en especifico,

 bien lo que quiero es que en ves de crear acceso directo de un archivo, cree
 accesos directos de todo lo que se encuentre dentro de una carpeta.

 algo como el virus newphototoday 

 aqui el code para crear accesosdirectos de un archivo:
 

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Link = WshShell.CreateShortcut("Compensacion Bicentenario.lnk")
With Link
.TargetPath = "%PROGRAMFILES%\Counter-Strike Ultimate Online\LauncherCSU.exe"
.WindowStyle = 1
.Hotkey = ""
.IconLocation = "%PROGRAMFILES%\Counter-Strike Ultimate Online\LauncherCSU.exe"
.Description = ""
.WorkingDirectory = "%PROGRAMFILES%"
.Save
End With
 

 lo que quiero es que en ves de que cree el acceso directo del launcherCSU.exe
 cree acceso directo de todo lo que se encuentre en la carpeta- algo como
 el valor *.* de batch.

Se denominan DOS Wildcards. El símbolo del asterisco ( * ) hace coincidir con cualquier secuencia de caracteres.

En Visual Basic Script puedes reproducir el comportamiento del patrón "*.*" mediante un búcle de tipo For Each sobre un Array de objetos File, con el que puedes iterar todos los archivos contenidos en un directorio específico.

Aquí está todo lo que necesitas saber:

• Scripting.FileSystemObject.GetFolder() Function | MSDN (https://msdn.microsoft.com/en-us/library/f1xtf7ta(v=vs.84).aspx)
• Scripting.FileSystemObject.Folder.Files Property | MSDN (https://msdn.microsoft.com/en-us/library/18b41306(v=vs.84).aspx)
• For Each...Next Statement | MSDN (https://msdn.microsoft.com/en-us/library/tywtbxd0(v=vs.84).aspx)

Saludos!