Script VBScript Para Ejecutar Un Comando En Un Equipo Remoto

Scritp VBScript que permite lanzar un comando en un equipo remoto. El script utiliza el servicio WMI del equipo remoto para lanzar el comando.

Sintaxis

cscript [//nologo] comando-remoto.vbs [/E:nombre equipo] [/U:usuario] [C:contraseña]] [/?] comando

Siendo

Parámetro	¿Requerido?	Descripción
/E	No	Nombre del equipo remoto; en caso de omitirse se considerará que está en el equipo local.
/U	No	Nombre del usuario que se utilizará para conectar con el servicio WMI del equipo. En caso de omitirse se utilizará el usuario que lanza el script. Si se trata del equipo local se ignora, pues no se puede conectar al servicio WMI con credenciales alternativas en el equipo local; en este caso se debe ejecutar desde una ventana de comandos (cmd.exe) abierta con un administrador local usando RunAs, por ejemplo.
/C	No	Cuando está establecido el parámetro /U, este parámetro nos permite especificar la contraseña del usuario que conectará con el servicio WMI. Si no está especificado el parámetro U se ignorará. Si está establecido el parámetro U y este parámetro es omitido, el script presentará una ventana de Internet Explorer donde entrar la contraseña. Es recomendable no usar este parámetro, pues implica que se teclea la contraseña y alguien puede verla; como el usuario debe tener derechos administrativos, es peligroso que tengamos la contraseña expuesta. Al usar una ventana de IE para teclear la contraseña, esto se realiza en una caja de texto de tipo password, quedando enmascarada, protegida de ojos indiscretos.
/?	No	Muestra la ayuda en línea.
comando	Sí	Ruta de la carpeta que se quiere listar.

Ejemplos

cscript comando-remoto.vbs "cmd /c tracert http://www.moria.com>c:\traza.txt"

cscript //nologo comando-remoto.vbs /e:pc-frodo /u:\comarca\peregrin "cscript //nologo c:\Scripts\reset.vbs"

cscript //nologo comando-remoto.vbs /e:portatil-sam /u:comarcaperegrin /c:"soy untuk" "cmd /c gpupdate /force"

Este es el código del script:

'comando-remoto.vbs
'
'Scritp VBScript que permite lanzar un comando en un equipo remoto.
'El script utiliza el servicio WMI del equipo remoto para lanzar el
'comando.
'
'Sintaxis
'
'cscript [//nologo] comando-remoto.vbs [/E:nombre equipo]
'        [/U:usuario] [C:contraseña]] [/?] <comando>
'
'Siendo:
'
'        - /E (opcional):
'
'               Nombre NETBIOS del equipo donde está la carpeta;
'               en caso de omitirse se considerará que está en 
'               el equipo local.
'
'        - /U (opcional):
'
'               Nombre del usuario que se utilizará para conectar
'               con el servicio WMI del equipo. En caso de
'               omitirse se utilizará el usuario que lanza el
'               script. Si se trata del equipo local se ignora,
'               pues no se puede conectar al servicio WMI con
'               credenciales alternativas en el equipo local; en
'               este caso se debe ejecutar desde una ventana de
'               comandos (cmd.exe) abierta con un administrador
'               local usando RunAs, por ejemplo.
'
'        - /C (opcional):
'
'               Cuando está establecido el parámetro /U, este
'               parámetro nos permite especificar la contraseña
'               del usuario que conectará con el servicio WMI.
'               Si no está especificado el parámetro U se
'               ignorará. Si está establecido el parámetro U
'               y este parámetro es omitido, el script presentará
'               una ventana de Internet Explorer donde entrar la
'               contraseña. Es recomendable no usar este parámetro,
'               pues implica que se teclea la contraseña y alguien
'               puede verla; como el usuario debe tener derechos
'               administrativos, es peligroso que tengamos la
'               la contraseña expuesta. Al usar una ventana de IE
'               para teclear la contraseña, esto se realiza en
'               una caja de texto de tipo password, quedando
'               enmascarada, protegida de ojos indiscretos.
'
'        - /? (opcional):
'
'               Muestra la ayuda en línea.
'
'        - comando (requerido):
'
'               Ejecutable y sus opciones que se quiere ejecutar.
'               Si contiene espacios (ya sea en su ruta, nombre 
'               o porque lleva parámetros) se debe encerrar entre
'               comillas
'
'Ejemplos
'
'cscript comando-remoto.vbs "cmd /c tracert www.moria.com>c:\traza.txt"
'
'cscript //nologo comando-remoto.vbs /e:pc-frodo
'        /u:comarca\peregrin "cscript //nologo c:\Scripts\reset.vbs"
'
'cscript //nologo comando-remoto.vbs /e:portatil-sam
'        /u:comarca\peregrin /c:"soy untuk" 
'        "cmd /c gpupdate /force"
'
'
'© Fernando Reyes - Mayo 2007

'Requerimos la declaración de variables
Option Explicit



Dim obj_ServicioWMI, int_Devolucion, int_IdentificadorDeProceso
Dim obj_Proceso, obj_Arranque, obj_Configuracion, int_Equipo
Dim str_Usuario, str_Clave, str_Equipo, str_Comando

Call s_ComprobarParametros

For int_Equipo = 0 To UBound(str_Equipo)

    'Si de nombre se ha pasado un punto, significa
    'equipo local
    If str_Equipo(int_Equipo) = "." Then
    
        str_Equipo(int_Equipo) = _
                 obj_SH.ExpandEnvironmentStrings( _
                                     "COMPUTERNAME")
                                     
     End If
    

'Llamamos a la función que nos permite cargar el objeto
'SWbemLocator. Si la función devuelve False es que no se
'ha podido crear
If Not f_ServicioWMI(obj_ServicioWMI, _
                             str_Usuario, _
                             str_Clave, _
                             str_Equipo(int_Equipo)) Then

    'Lanzamos el mensaje de que ha habido un error en la conexión
    'al servicio WMI
    Wscript.Echo str_Equipo(int_Equipo) & vbtab & "Error 2: error al conectar con el servicio WMI"

    'Terminamos el script con el código de error 2
'    WScript.Quit 2

Else

    'Creamos una instancia de la clase "Win32_Process"
    Set obj_Proceso = obj_ServicioWMI.Get("Win32_Process")
    
    'Creamos una instancia de la clase Win32_ProcessStartup
    'que nos servirá para establecer condiciones de inicio del
    'proceso
    Set obj_Arranque = obj_ServicioWMI.Get("Win32_ProcessStartup")
    
    'Creamos un objeto para establecer la configuración
    'configuración deseada, usando el método SpawnInstance
    'de la clase Win32_ProcessStartup; una vez establecidas
    'las propiedades de este objeto configuración, lu usaremos
    'para lanzar el proceso recibido como parámetro "comando"
    Set obj_Configuracion = obj_Arranque.SpawnInstance_
    
    'Establecemos que se vea la ventana lanzada; sólo funciona
    'en el equipo local, pues la ejecución remota se realiza
    'siempre en ventana oculta cuando usamos WMI
    obj_Configuracion.ShowWindow = 1
    obj_Configuracion.FillAttribute = 29
    
    'Lanzamos el comando recibido como parámetro con las opciones
    'de inicio establecidas. Si la ejecución tiene éxito, el
    'parámetro de salida, recogido con la variable
    'int_IdentificadorDeProceso, devolverá el PID del proceso
    'lanzado 
    int_Devolucion = obj_Proceso.Create(str_Comando, _
                                        Null, _
                                        obj_Configuracion, _
                                        int_IdentificadorDeProceso)
    
    'Si la ejecución ha sido exitosa, mostramos el PID
    'del proceso
    If int_Devolucion = 0 Then
    
    	WScript.Echo "Proceso lanzado con éxito." & vbCrLf & _
    	             "PID: " & int_IdentificadorDeProceso
    	
    	
    Else
    
        WScript.Echo "Error 4: No se pudo ejecutar." & vbCrLf & _
                     "Código de error: " & int_Devolucion
                     
        
    End If

End If

Next 'int_Equipo

Function f_ServicioWMI(obj_ServicioWMI, str_Usuario, _
                       str_Clave, str_Equipo)
'Esta función permite conectar con el servicio WMI de un equipo.
'La conexión puede ser realizada directamente por el usuario
'que ha lanzado el script o por otro usuario cuyas credenciales
'son recibidas como parámetros. La función recibe como parámetro
'un objeto que será utilizado como parámetro de salida, siendo
'creado por la función como objeto de servicio WMI del equipo
'recibido como parámetro

    Dim obj_LocalizadorWMI
    Dim lng_Respuesta
    
    WScript.Echo str_Equipo

    'Si hemos recibido nombre de usuario, debemos conectar
    'al servicio WMI del equipo como el usuario
    'recibido
    If Len(str_Usuario) > 0 Then

        'Para poder especificar unas credenciales alternativas,
        'debemos crear primero un localizador WMI
        Set obj_LocalizadorWMI = CreateObject( _
                                  "WbemScripting.SWbemLocator")

        'Establecemos control de errores
        On Error Resume Next
        'Conectamos con el servicio WMI del equipo con las
        'credenciales pasadas
        Set obj_ServicioWMI = obj_LocalizadorWMI.ConnectServer( _
                                       str_Equipo, "root\cimv2", _
                                       str_Usuario, str_Clave)

        'Si se ha producido algún error...
        If Err.Number <> 0 Then

            'Lo primero es vaciar la variable con el localizador WMI
            Set obj_LocalizadorWMI = Nothing

            'Mostramos el error
            WScript.Echo vbCrLf & vbCrLf & _
                         Err.Number & ": " & Err.Description

            'Vaciamos el objeto Err
            Err.Clear

            'Devolvemos False
            f_ServicioWMI = False

            'Salimos de la función
            Exit Function
            
        End If
        
    Else

        'Podemos conectar directamente con el servicio WMI del equipo
        'sin necesidad de utilizar el localizador WMI ya que no hay
        'que hacerlo con otras credenciales distintas a las del
        'usuario que lanza el script
        Set obj_ServicioWMI = GetObject("winmgmts:\\" & str_Equipo & _
                                        "\root\CIMV2")

        'si se ha producido algún error...
        If Err.Number <> 0 Then

            'Mostramos el error
            WScript.Echo Err.Number & ": " & Err.Description & _
                         vbCrLf & vbCrLf

            'Vaciamos el objeto Err
            Err.Clear

            'Devolvemos False
            f_ServicioWMI = False

            'Salimos de la función
            Exit Function
            
        End If
        
    End If

    'No se han producido errores, devolvemos True
    f_ServicioWMI = True

    'Limpieza de culito :-)
    Set obj_LocalizadorWMI = Nothing

End Function 'f_ServicioWMI

Function f_EntrarClave(str_HTML)
'El propósito de esta función es el proveer al usuario de una caja
'de texto en la que teclear una contraseña sin revelarla, pues
'la caja de texto es de tipo password. Para ello se crea una página
'web que es cargada en un Internet Explorer y se recoge de éste
'la contraseña tecleada y se convierte en la devolucion de la función.
'La ruta y nombre de la página es recibida como parámetro por la
'función, lo que permite reutilizar esta función en más scripts y
'personalizar la página para cada script, lo único que debe ser igual
'en todas las páginas que se quieran utilizar es que el botón debe
'llamarse Aceptar, el control oculto AceptarPulsado y la caja de texto
'Clave.

'Esta función está basada en:
'http://www.microsoft.com/technet/scriptcenter/guide/sas_ent_lppm.mspx?mfr=true

'En el ejemplo de TechNet se pone una ruta local (c:\carpeta\fichero.asp)
'para la ubicación del fichero. Esto no es correcto cuando estamos de
'XP SP2 en adelante, pues la navegación segura interfiere con el script,
'Ya que contiene un script VBScript. Para evitar esto, yo lo que hago
'es situar el fichero en una carpeta compartida y acceder a él con su
'ruta UNC; de esta manera es tratado como de la zona de intranet y no
'hay problemas. También se podría colocar en un servidor Web que fuese
'de la intranet o de los sitios de confianza y referirse a él por su
'ruta http; de hecho esta es la opción deseable si se hace de forma
'segura (hhtps) pues así no podría cazar la contraseña algún gracioso
'que estuviese ejecutando un sniffer.

    'Declaramos variables
    Dim obj_IE

    'Creamos un objeto Internet Explorer
    Set obj_IE = WScript.CreateObject _
              ("InternetExplorer.Application", "IE_")

    'Cargamos el navegador con la página recibida como parámetro
    obj_IE.Navigate "file:///" & str_HTML

    'Con este bucle esperamos a que la página esté completamente cargada
    Do

        WScript.Sleep 10

    Loop Until obj_IE.ReadyState = 4    

    'Establecemos propiedades del navegador
    obj_IE.ToolBar = 0
    obj_IE.StatusBar = 0
    obj_IE.Width = 400
    obj_IE.Height = 250
    obj_IE.Left = 0
    obj_IE.Top = 0
    obj_IE.Visible = 1

    'En este bucle esperamos a que se haya pulsado el botón
    '"Aceptar"
    Do While (obj_IE.Document.All.AceptarPulsado.Value = "")

        WScript.Sleep 250

    Loop

    'Recogemos la contraseña entrada
    str_Clave = obj_IE.Document.All.Clave.Value

    'Cerramos el navegador
    obj_IE.Quit

    'Esperamos a que esté cerrado
    WScript.Sleep 250

    'Establecemos la contraseña como devolución de la función
    f_EntrarClave = str_Clave  

    'Limpiadita de culito :-)
    Set obj_IE = Nothing

End Function 'f_EntrarClave

Sub  s_ComprobarParametros()
'Este procedimiento revisa los parámetros recibidos
'y los asigna a las variables correspondientes, en caso de
'ser correctos

    Dim bol_EquipoLocal,obj_SH
    
    If WScript.Arguments.Named.Exists("?") Then
    
        Call s_Ayuda("************************" & vbCrLf & _
                     "*        AYUDA         *" & vbCrLf & _
                     "************************")
        
        WScript.Quit
    
    End If

    'Revisamos que se ha pasado un comando a ejecutar
    If WScript.Arguments.Unnamed.Count = 0 Then
    
        Call s_Ayuda("Error 1: No se ha indicado el " & _
                    "comando a ejecutar en el equip" & _
                    "o remoto")
                    
        WScript.Quit 1
        
    Else
    
        'Recogemos el comando pasado
        str_Comando = WScript.Arguments.Unnamed(0)
                    
    End If
    
    'Vamos ahora a recoger el nombre del equipo
    'Primero creamos un objeto WshShell
    Set obj_SH = CreateObject("WScript.Shell")
    
    'Si es pasado como parámetro, lo recogemos
    If WScript.Arguments.Named.Exists("E") Then
    
        str_Equipo = Split(WScript.Arguments.Named("E"),",")
        
        
    Else
    
        'Obtenemos el nombre del equipo local y
        'lo asignamos a la variable
        str_Equipo = Array(obj_SH.ExpandEnvironmentStrings( _
                                         "%COMPUTERNAME%"))
                                         
        
    End If
    
    'Si coinciden el nombre del equipo con el nombre del
    'equipo local, vaciamos las variables de usuario y
    'contraseña, pues no se puede conectar con 
    'credenciales alternativas a WMI desde el equipo
    'local; para ello sería necesario lanzar el script 
    'con RunAs. También ponemos a True la booleana que
    'indica si se trata del equipo local
'    If UCase(str_Equipo) = UCase(_
'                 obj_SH.ExpandEnvironmentStrings( _
'                          "COMPUTERNAME")) Then
                          
'        bol_EquipoLocal=True
'        str_Usuario = ""
'        str_Clave = ""
        
'    End If
                                             
    'Ya no necesitamos más el objeto wshShell, así que
    'lo destruimos   
    Set obj_SH = Nothing
        
    'Si se ha pasado usuario, lo recogemos. Si se trata
    'de ejecutar en el equipo local lo ignoraremos, pues
    'no se puede conectar con credenciales alternativas a
    'WMI desde el equipo local; para ello sería necesario
    'lanzar el script con RunAs
    If WScript.Arguments.Named.Exists("U") _
    And Not bol_EquipoLocal Then
    
        str_Usuario = WScript.Arguments.Named("U")
        
        'Si se ha pasado la contraseña, la recogemos
        If WScript.Arguments.Named.Exists("C") Then
        
            str_Clave = WScript.Arguments.Named("C")
            
        Else
        
            'Si no se ha pasado la contraseña, habiendo
            'establecido un usuario, llamamos a la 
            'función que invoca una página html con
            'la que recoger la clave
            str_Clave = f_EntrarClave("https:\\too" & _
                           "ls.midominio.com\clave.htm")
            
            'Si no se ha suministrado contraseña en la
            'página html, terminamos el script
            If Len(str_Clave) = 0 Then
            
                Call s_Ayuda("Error 3: Se ha sumins" & _
                            "trado usuario, para l" & _
                            "a conexión al equipo " & _
                            "remoto, pero no su co" & _
                            "ntraseña.")
                            
                WScript.Quit 3
                
            End If
            
        End If
        
    End If

End Sub 's_ComprobarParametros

Sub s_Ayuda(str_Error)

    WScript.Echo vbCrLf & str_Error & vbCrLf & vbCrLf
    
    WScript.Echo "comando-remoto.vbs"
    WScript.Echo ""
    WScript.Echo "Scritp VBScript que permite" & _
                 " lanzar un comando en un eq" & _
                 "uipo remoto."
    WScript.Echo "El script utiliza el servic" & _
                 "io WMI del equipo remoto pa" & _
                 "ra lanzar el"
    WScript.Echo "comando."
    WScript.Echo ""
    WScript.Echo "Sintaxis"
    WScript.Echo ""
    WScript.Echo "cscript [//nologo] comando-" & _
                 "remoto.vbs [/E:nombre equip" & _
                 "o]"
    WScript.Echo "        [/U:usuario] [C:con" & _
                 "traseña]] [/?] <comando>"
    WScript.Echo ""
    WScript.Echo "Siendo:"
    WScript.Echo ""
    WScript.Echo "        - /E (opcional):"
    WScript.Echo ""
    WScript.Echo "               Nombre NETBI" & _
                 "OS del equipo donde está la" & _
                 " carpeta;"
    WScript.Echo "               en caso de o" & _
                 "mitirse se considerará que " & _
                 "está en "
    WScript.Echo "               el equipo lo" & _
                 "cal."
    WScript.Echo ""
    WScript.Echo "        - /U (opcional):"
    WScript.Echo ""
    WScript.Echo "               Nombre del u" & _
                 "suario que se utilizará par" & _
                 "a conectar"
    WScript.Echo "               con el servi" & _
                 "cio WMI del equipo. En caso" & _
                 " de"
    WScript.Echo "               omitirse se " & _
                 "utilizará el usuario que la" & _
                 "nza el"
    WScript.Echo "               script. Si s" & _
                 "e trata del equipo local se" & _
                 " ignora,"
    WScript.Echo "               pues no se p" & _
                 "uede conectar al servicio W" & _
                 "MI con"
    WScript.Echo "               credenciales" & _
                 " alternativas en el equipo " & _
                 "local; en"
    WScript.Echo "               este caso se" & _
                 " debe ejecutar desde una ve" & _
                 "ntana de"
    WScript.Echo "               comandos (cm" & _
                 "d.exe) abierta con un admin" & _
                 "istrador"
    WScript.Echo "               local usando" & _
                 " RunAs, por ejemplo."
    WScript.Echo ""
    WScript.Echo "        - /C (opcional):"
    WScript.Echo ""
    WScript.Echo "               Cuando está " & _
                 "establecido el parámetro /U" & _
                 ", este"
    WScript.Echo "               parámetro no" & _
                 "s permite especificar la co" & _
                 "ntraseña"
    WScript.Echo "               del usuario " & _
                 "que conectará con el servic" & _
                 "io WMI."
    WScript.Echo "               Si no está e" & _
                 "specificado el parámetro U " & _
                 "se"
    WScript.Echo "               ignorará. Si" & _
                 " está establecido el paráme" & _
                 "tro U"
    WScript.Echo "               y este parám" & _
                 "etro es omitido, el script " & _
                 "presentará"
    WScript.Echo "               una ventana " & _
                 "de Internet Explorer donde " & _
                 "entrar la"
    WScript.Echo "               contraseña. " & _
                 "Es recomendable no usar est" & _
                 "e parámetro,"
    WScript.Echo "               pues implica" & _
                 " que se teclea la contraseñ" & _
                 "a y alguien"
    WScript.Echo "               puede verla;" & _
                 " como el usuario debe tener" & _
                 " derechos"
    WScript.Echo "               administrati" & _
                 "vos, es peligroso que tenga" & _
                 "mos la"
    WScript.Echo "               la contraseñ" & _
                 "a expuesta. Al usar una ven" & _
                 "tana de IE"
    WScript.Echo "               para teclear" & _
                 " la contraseña, esto se rea" & _
                 "liza en"
    WScript.Echo "               una caja de " & _
                 "texto de tipo password, que" & _
                 "dando"
    WScript.Echo "               enmascarada," & _
                 " protegida de ojos indiscre" & _
                 "tos."
    WScript.Echo ""
    WScript.Echo "        - /? (opcional):"
    WScript.Echo ""
    WScript.Echo "               Muestra la a" & _
                 "yuda en línea."
    WScript.Echo ""
    WScript.Echo "        - comando (requerid" & _
                 "o):"
    WScript.Echo ""
    WScript.Echo "               Ejecutable y" & _
                 " sus opciones que se quiere" & _
                 " ejecutar."
    WScript.Echo "               Si contiene " & _
                 "espacios (ya sea en su ruta" & _
                 ", nombre "
    WScript.Echo "               o porque lle" & _
                 "va parámetros) se debe ence" & _
                 "rrar entre"
    WScript.Echo "               comillas"
    WScript.Echo ""
    WScript.Echo "Ejemplos"
    WScript.Echo ""
    WScript.Echo "cscript comando-remoto.vbs " & _
                 """cmd /c tracert www.moria." & _
                 "com>c:\traza.txt"""
    WScript.Echo ""
    WScript.Echo "cscript //nologo comando-re" & _
                 "moto.vbs /e:pc-frodo /u:com" & _
                 "arca\peregrin ""cscript //n" & _
                 "ologo c:\Scripts\reset.vbs"""
    WScript.Echo ""
    WScript.Echo "cscript //nologo comando-re" & _
                 "moto.vbs /e:portatil-sam /u" & _
                 ":comarca\peregrin /c:""soy " & _
                 "untuk"" ""cmd /c gpupdate /" & _
                 "force"""
    WScript.Echo ""


End Sub 's_Ayuda