Modificar el arranque de los pcs en red remotos

y programas personales para otros como tu, puede que te corrijan ;)
Avatar de Usuario
BasicOs
Site Admin
Mensajes: 2099
Registrado: 21 Nov 2006, 19:24
Ubicación: El Internet - (Canarias, España)
Contactar:

Modificar el arranque de los pcs en red remotos

Mensaje por BasicOs »

Es un programa bastante sencillo a su vez util para trabajar a distancia en una LAN. :smt014
Se pueden autoarrancar programas por ejemplo como el identificador de Hard y Soft de http://www.emesn.com/autoitforum/viewto ... f=4&t=2382
A veces necesitamos modificar el autoarranque de los pcs (carpeta INICIO), de los pcs, para por ejemplo un parche, o porque necesitamos que esté algún programa funcionando cuando se inicia, o incluir un script, o un avisador, o que se abra un documento.
Atención para la carpeta All Users Inicio, como la actual, se necesitan derechos de administrador (si se copia en la del usuario por defecto "@UserName", no haría falta pero solo sería para el usuario seleccionado). :smt026 :smt026 :smt027

Lo que hace el Script es que pregunta el nombre del pc remoto o su IP, y le mueve un archivo que es en este caso un acceso directo a otro programa a su inicio remoto:

Código: Seleccionar todo

#include <file.au3>
$nombrePc=inputbox("Nombre Pc","Nombre Pc","192.168.0.")
IF NOT filecopy("\\servidor\install\accesodirecto\autoarranque.lnk","\\"&$nombrePc&"\C$\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\autoarranque.lnk") then MsgBox(0,"Error","La copia del acceso directo falló")
;FileCreateShortcut("\\servidor\install\Scripts\autoarranque.exe",@StartupCommonDir&"\autoarranque.lnk") puedo crear un acceso directo si lo deseo
if FileExists("\\"&$nombrePc&"\C$\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\autoarranque.lnk") then
	 msgbox(0,"Update","Correcto - El fichero existía en el destino "&@crlf &" o se ha realizado correctamente la copia") ; no sobreescribe
 Else
    msgbox(0,"Error Update","Error de actualizacion")
EndIf
Salu22:)
Responder