Para Antonio FD - Como ejecuto los scripts en WSH

Hola de nuevo,
prueba este codigo, copiar y pegar en un bloc de notas, y guardalo como "directo.vbs",
la explicacion de este script muestra la forma de crear un acceso directo (aaa.lnk) para abrir un archivo de texto (aaa.txt) que utiliza bloc de notas. Tu puuedes cambiar los parametros para escojer otro tipo de acceso diecto.
No es preciso ejecutar en nada, simplemente al tener ya tu archivo *.vbs, le das doble click y andando,


'INICIO

'Create a WshShell Object
Set WshShell = Wscript.CreateObject("Wscript.Shell")

'Create a WshShortcut Object
Set oShellLink = WshShell.CreateShortcut("aaa.lnk")

'Set the Target Path for the shortcut
oShellLink.TargetPath = "notepad.exe"

'Set the additional parameters for the shortcut
oShellLink.Arguments = "c:\windows\desktop\aaa.txt"

'Save the shortcut
oShellLink.Save

'Clean up the WshShortcut Object
Set oShellLink = Nothing


'END

En windows xp windows script viene de forma predeterminada, si pretendieras en otro sistema anterior necesitarias esta descarga, http://www.microsoft.com/downloads/...A28C9A5D9D

Saludos

Antonio FD


MS Windows Embedded


"DarioA" escribió en el mensaje news:uo$
Mostrar la cita

En el día de ayer pregunté por algunos ejemplos de scripts en WSH.
'Antonio FD' me dió unas direcciones desde donde podría sacarlos.
Tomé uno sencillito y con 'cut and paste' lo puse en un archivo de texto con
extensión VBS.
Lo ejecuté con "wscript" y me arrojó el error "El objeto no acepta esta
propiedad o método: 'WshShell' "
Por las dudas le cambié la extensión a JS y el error fué "Se esperaba un
objeto".
¿Que estoy haciendo mal? A continuación el script que intentaba ejecutar:

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

Desde luego, a quien pueda ayudarme (aunque no se Antonio) le estaré muy
agradecido.