@echo off
color 17
echo. *****************************************************
echo.
set /p equipo= Nombre de La maquina:
@echo %equipo%
echo.
echo. *****************************************************
set /p nombre= Nombre del usuario:
@echo. %nombre%
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add > usuario.bat
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add>> Listado.txt
:: El Listado.txt es para tener la relacion de todos los equipos, y correr la lista cada 3 o 4 horas.
pause.
echo. *****************************************************
echo.
call usuario.bat
echo.
echo. ******************************************************
exit

@echo off
title BY ***CSI ****
::-------- Pasar usuario a administrador
net localgroup Administradores nombre.apellido@dominio /add
pause
::-------- Listado de usuarios
net user
pause
::-------- Reinicio de sesion
msg * Se va  a reiniciar la sesión
shutdown -f -l

shutdown -f -l

:: Este es que me da error
psexec.exe \\%equipo% shutdown -f -l 
***********************************
::Esta es la que funciona la de reinicio.
psexec.exe \\%equipo% shutdown -r

'-----------------------------------------'
'HACER PING A UNA DIRECCION Y MOSTRAR EL NOMBRE DEL EQUIPO
'-----------------------------------------'
'Pedir la dirección'
titulo ="<CSI> Buscar Nombre de Equipo"
EstaIP=inputbox("Introduzca IP: ", titulo)
'-----------------------------------------'
'Definimos y Creamos objeto para ejecutar comandos DOS
'Se puede usar shell:  Shell "cmd.exe /c move c:\archivo.txt c:\carpeta\"
'si quieres ejecutar varios comandos separalos con &&.
'"/c", para que pueda ejecutar los comandos que le siguen,
'el resultado de la ejecución se pasa a un archivo .txt que está en la raíz
Set MiComandoDos = CreateObject("Wscript.Shell")
MiComandoDos.run "cmd.exe /c ping -a "&EstaIP&">C:\Ping.txt",0, true
'-----------------------------------------'
'Definimos y Creamos objeto para usar archivos
'Modos de abrir un archivo: 1.- Lectura, 2.- Escritura (ini), 8.- Append (fin) + true'
Set MiArchivo =  CreateObject("Scripting.filesystemobject")
Set BuscarEn = MiArchivo.opentextfile("C:\Ping.txt",1)
'Crear un Arreglo para capturar las lineas del archivo, nos interesa la segunda
Dim CadaLinea(13)
i = 0
do Until BuscarEn.atEndOfStream
   CadaLinea(i)= BuscarEn.Readline
   i=i+1
Loop
BuscarEn.close
'-----------------------------------------'
'Buscar Nombre del Equipo en la segunda linea, es la cuarta palabra hasta el punto
m = mid(CadaLinea(1),17,(Len(CadaLinea(1))-38))
'n = instr(1,m,".")
n = instr(1,m," ")
NomPC=left(m,n-1)
If len(NomPC)> 3 then
   'y=msgbox("Ping realizado al siguiente Equipo:... "+Chr(13)+CadaLinea(1)+ _
   '     Chr(13)+"El Nombre del Equipo es: >>> "+NomPC+" <<<",64,titulo)
   x=inputbox("Puede copiar el nombre"+chr(13)+"si desea utilizarlo en otra aplicación" _
          ,titulo,NomPc) 
else
   y=msgbox("No se puede encontrar nombre; IP parece ser no válida "+Chr(13)+ _
         "Verifique y ejecute de nuevo el programa.",48,titulo)
end if

@echo off
color 17
echo. *****************************************************
echo.
set /p equipo= Nombre de La maquina:
@echo %equipo%
echo.
echo. *****************************************************
echo.
set /p nombre= Nombre del usuario:
@echo. %nombre%
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add > usuario.bat
echo psexec.exe -i \\%equipo% shutdown.exe -l > usuario.bat
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add>> Listado.txt
pause.
echo. *****************************************************
echo.
call usuario.bat
echo.
echo. ******************************************************
exit