Crear un acceso Directo por GPO

Hace unos días me solicitaron crear una política que consistía en crear un acceso directo de un Script para que cuando el usuario ejecute muestre datos básicos que son de mucha utilidad para personal de Mesa de Ayuda o Mesa de Servicio.

Lo primero que haremos es copiar el Script a un file server o algún equipo que siempre esté disponible y compartirlo.

En mi caso he creado una carpeta en un File Server con el nombre SharedPolitica, he copiado el script.

0

Luego comparto la carpeta como muestro en la imágenes.

Damos de sólo lectura a todos a nivel de permisos Sharing y de seguridad.

1

2

 

Ahora nos dirigimos a la consola de Group Policy Management de nuestro controlador de dominio y en la OU donde aplicaremos la política damos clic derecho y creamos y enlazamos la política

3

Una vez creada editamos.

4

NO dirigimos a User Configuration/Preferences/Windows Setting/Shortcuts

Luego en la parte izquierda, damos clic derecho New, Shortcut.

5

En Action seleccionamos crear, colocamos un Nombre amigable, en Target type seleccionamos File System Object, en Location seleccionamos Desktop (Donde se creará el acceso directo), en Target path colocamos la ruta donde se encuentra el script y en Icon File Path seleccionamos un ícono que más nos agrade.

6

Luego en la pestaña Common nos aseguramos que esté marcada la opción Apply once and do not reapply para que la política sólo se ejecute una vez.

Aplicamos y damos clic en OK.

7

Para actualizar la política y nos muestre el acceso directo forzamos la política con gpupdate /force.

8.0

Y como vemos nos muestra el acceso directo,

8

si le damos doble clic no muestra el siguiente mensaje de acuerdo al Script.

9

Eso es todo, saludos.

Dejo aquí las líneas del script, que me compartió mi compañero Luis Durand.

Simplemente cópienlo en un Notepad y lo guardan con extensión .vbs.

dim NIC1, Nic, StrIP, CompName

Set NIC1 = GetObject(“winmgmts:”).InstancesOf(“Win32_NetworkAdapterConfiguration”)

For Each Nic in NIC1

if Nic.IPEnabled then

StrIP = Nic.IPAddress(i)

Set WshNetwork = WScript.CreateObject(“WScript.Network”)

CompName= WshNetwork.Computername
Set wshShell = WScript.CreateObject( “WScript.Shell” )
strUserName = wshShell.ExpandEnvironmentStrings( “%USERNAME%” )
strUserDomain = wshShell.ExpandEnvironmentStrings( “%USERDOMAIN%” )

MsgBox “Usuario: ” &strUserName & vbNewLine _
& “Dominio: ” &strUserDomain & vbNewLine _
& “Dirección: ” &StrIP & vbNewLine _
& “Equipo: ” &CompName,4160,”Mi Empresa S.A.C.”

wscript.quit

end if

next

WScript.Echo

Anuncios

Acerca de eldeza

System Engineer, MVP Microsoft, CCNA, CCNA Security, MCSA Windows Server 2012, MCSA Office 365, Specialist Azure, ITIL Certification

Publicado el 20 de julio de 2015 en Windows Server 2008 R2. Añade a favoritos el enlace permanente. Deja un comentario.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: