elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Píldoras formativas en seguridad de la información


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Acceso denegado al crear acceso directo desde consola de windows
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Acceso denegado al crear acceso directo desde consola de windows  (Leído 969 veces)
Lekim

Desconectado Desconectado

Mensajes: 265



Ver Perfil
Acceso denegado al crear acceso directo desde consola de windows
« en: 20 Marzo 2016, 16:38 »

hola

Desde Vista y posterior funciona este código:

Vista/Windows7

Código:
@Echo off

REM     <<<< Crea acceso directo >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
echo Set oWS = WScript.CreateObject("WScript.Shell") > %~dp0CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Desktop\Notepad.lnk" >> %~dp0CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %~dp0CreateShortcut.vbs
echo oLink.TargetPath = "%systemroot%\System32\Notepad.exe" >> %~dp0CreateShortcut.vbs
echo oLink.Save >> %~dp0CreateShortcut.vbs
cscript %~dp0CreateShortcut.vbs
del  %~dp0CreateShortcut.vbs
REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


XP [DEVUELVE ACCESO DENEGADO ( y como Administrador)]
Código:
@Echo off

REM     <<<< Crea acceso directo >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
echo Set oWS = WScript.CreateObject("WScript.Shell") > %~dp0CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Escritorio\Notepad.lnk" >> %~dp0CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %~dp0CreateShortcut.vbs
echo oLink.TargetPath = "%systemroot%\System32\Notepad.exe" >> %~dp0CreateShortcut.vbs
echo oLink.Save >> %~dp0CreateShortcut.vbs
cscript %~dp0CreateShortcut.vbs
del  %~dp0CreateShortcut.vbs
REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Gracias



He hecho un prueba creando un paquete de instalación con WinRAR, de modo que se ejecute como administrador. En tal caso, si que funciona. ¿Como puedo ejecutarlo como Administrador directamente?, ya que realmente lo ejecuto desde una cuenta con privilegios de administrador. No entiendo porqué me da Acceso denegado..
 
[SOLUCIONADO]

Ya lo he solucionado quitando %~dp0 y cambiando el directorio mediante PUSHD.
 

Ahora funciona en ambos sistemas y en Administrador o No adeministrador

Código:
REM     <<<< Crea acceso directo >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
PUSHD %APPPATH%
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Escritorio\Notepad.lnk" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%systemroot%\System32\Notepad.exe" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del  CreateShortcut.vbs
REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>



« Última modificación: 20 Marzo 2016, 17:25 por Lekim » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
crear acceso directo...
Programación Visual Basic
soru13 1 1,140 Último mensaje 28 Diciembre 2006, 03:19
por CeLaYa
Crear acceso directo
Programación Visual Basic
Jareth 0 882 Último mensaje 13 Mayo 2007, 23:39
por Jareth
Ejecutar comandos cmd desde un Acceso Directo en Windows
Hacking Básico
ikary 7 15,749 Último mensaje 12 Noviembre 2009, 21:06
por Castg!
conectarme a un server desde un MAC y crear un acceso directo permanente?
Mac OS X
Shadow 4 17,597 Último mensaje 17 Octubre 2011, 13:03
por Shadow
Cómo crear un acceso directo a Windows Update en Windows 10
Noticias
wolfbcn 0 313 Último mensaje 7 Marzo 2018, 21:22
por wolfbcn
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines