none
Como ejecutar un script

    Question

  • Hola buenas,

     

    Yo tengo el mismo problema, tengo un script para cambiar automaticamente las DNS pero solo me funciona como administrador:

     

    On Error Resume Next

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each objNetCard in colNetCards
        arrDNSServers = Array("192.168.1.58", "192.168.1.98")
        objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    Next

     

    Me gustaria saber que puede hacer para poder ejecutarlo en todas las maquinas del dominio.

     

    Gracias de antemano,

     

    Iosu

    Monday, November 19, 2007 2:39 PM

Answers

  • Hola iosu,

     

    Para estos casos lo más conveniente es disponer de una herramienta de administración de sistemas.

     

    Con Systems Management Server  de Microsoft puedes distribuir el script con credenciales de administrador.

     

    También puedes intentar ejecutarlo de forma remota:

     

    Bloque de código

    Dim Controller, RemoteScript
    Set Controller = WScript.CreateObject("WSHController")
    Set RemoteScript = Controller.CreateScript("cambiadns.vbs", "maquina.dominio.com")
    RemoteScript.Execute

    Do While RemoteScript.Status <> 2
        WScript.Sleep 100
    Loop

     

     

    Si el script no te funciona debes cambiar una rama del registro para permitir ejecución de script remotos. Acuérdate de volver a dejarla como estaba.

     

    Hay otros métodos, pero son un suicidio... puedes hacer un script que ejecute un runas y escriba la contraseña automáticamente... pero el usuario la podría leer .

     

    También podrías levantar el servicio de telnet, hacer un telnet, y ejecutar el script...

     

    Busca herrameintas que las hay. Tienes el psexec de sysinternals para ejecutar en forma remota y como administrador de la máquina distintos comandos.

     

    Si este mensaje te ha resultado útil ruego que marques la respuesta cómo válida.

     

    Un saludo,

    Rafael Valcárcel Lázaro

     

    MCSE

    MCSA

    CCNA

    ITIL Service Foundation

    Saturday, November 24, 2007 2:30 AM

All replies

  • Hola iosu,

     

    Para estos casos lo más conveniente es disponer de una herramienta de administración de sistemas.

     

    Con Systems Management Server  de Microsoft puedes distribuir el script con credenciales de administrador.

     

    También puedes intentar ejecutarlo de forma remota:

     

    Bloque de código

    Dim Controller, RemoteScript
    Set Controller = WScript.CreateObject("WSHController")
    Set RemoteScript = Controller.CreateScript("cambiadns.vbs", "maquina.dominio.com")
    RemoteScript.Execute

    Do While RemoteScript.Status <> 2
        WScript.Sleep 100
    Loop

     

     

    Si el script no te funciona debes cambiar una rama del registro para permitir ejecución de script remotos. Acuérdate de volver a dejarla como estaba.

     

    Hay otros métodos, pero son un suicidio... puedes hacer un script que ejecute un runas y escriba la contraseña automáticamente... pero el usuario la podría leer .

     

    También podrías levantar el servicio de telnet, hacer un telnet, y ejecutar el script...

     

    Busca herrameintas que las hay. Tienes el psexec de sysinternals para ejecutar en forma remota y como administrador de la máquina distintos comandos.

     

    Si este mensaje te ha resultado útil ruego que marques la respuesta cómo válida.

     

    Un saludo,

    Rafael Valcárcel Lázaro

     

    MCSE

    MCSA

    CCNA

    ITIL Service Foundation

    Saturday, November 24, 2007 2:30 AM
  •  

    Hola a todos. Tengo una pregunta para  rvalcarcel que rama del registro debo cambiar para que mi script funcione bien por que mi problemas es que cuando ejecuto el script me dice "permiso denegado"

    a ver si me puedes ayudar

    Tuesday, January 06, 2009 2:14 PM