[VBS] Crear link y cambiarle el icono.

'CREAR ACCESO DIRECTO:
Set objShell = WScript.CreateObject("WScript.Shell")
Set link= objShell.CreateShortcut("C:\ArchivoMalicioso.lnk")
link.TargetPath = "C:\Ejecutable.exe"
link.Description = "Archivo malicioso"
link.Save 

'CAMBIAR ICONO DE UN ACCESO DIRECTO

Const DESKTOP = &H10&

Set objShell = CreateObject("Shell.Application")

'SELECCIONAMOS LA CARPETA
Set objFolder = objShell.NameSpace("c:\")
'SELECCIONAMOS EL ARCHIVO DE ACCESO DIRECTO
Set objFolderItem = objFolder.ParseName("ArchivoMalicioso.lnk")
Set objShortcut = objFolderItem.GetLink

'ELEGIMOS EL ICONO 13 DE SHELL32.DLL
objShortcut.SetIconLocation "C:\Windows\System32\SHELL32.dll", 13
objShortcut.Save