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$

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.

Si no sabe que vaya a una academia coñoooooooooooooooooooo,
bobo-mierda..


"Antonio FD" escribió en el mensaje
news:
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$

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.

¿A qué viene eso?
Ramón Sola / Málaga (España) / MVP Windows - Shell/User
(yanoseashooligan -> yahoo)

En su infinita sabiduría (dicho con mala intención), Jarod
<españ declaró solemnemente:

Si no sabe que vaya a una academia coñoooooooooooooooooooo,
bobo-mierda..

No te molestes Ramón.
Una opinión personal: Hay algunas personas que necesitan el anonimato que
ofrece Internet para descargar la agresividad que otras personas le generan
y a las cuales no tienen el coraje de enfrentarlas (la mujer, el jefe,
etc.).
Le deseo suerte y que le mejore la vida.

"Ramón Sola [MVP Windows Client]" escribió
en el mensaje news:#

¿A qué viene eso?
Ramón Sola / Málaga (España) / MVP Windows - Shell/User
(yanoseashooligan -> yahoo)

En su infinita sabiduría (dicho con mala intención), Jarod
<españ declaró solemnemente:
> Si no sabe que vaya a una academia coñoooooooooooooooooooo,
> bobo-mierda..
>

estoy de acuerdo contigo,



Saludos

Antonio FD


MS Windows Embedded


"DarioA" escribió en el mensaje news:%

No te molestes Ramón.
Una opinión personal: Hay algunas personas que necesitan el anonimato que
ofrece Internet para descargar la agresividad que otras personas le generan
y a las cuales no tienen el coraje de enfrentarlas (la mujer, el jefe,
etc.).
Le deseo suerte y que le mejore la vida.

"Ramón Sola [MVP Windows Client]" escribió
en el mensaje news:#

¿A qué viene eso?
Ramón Sola / Málaga (España) / MVP Windows - Shell/User
(yanoseashooligan -> yahoo)

En su infinita sabiduría (dicho con mala intención), Jarod
<españ declaró solemnemente:
> Si no sabe que vaya a una academia coñoooooooooooooooooooo,
> bobo-mierda..
>