Algun programador en la sala?

Front page Foros Offtopic Algun programador en la sala?

Viendo 4 entradas - de la 1 a la 4 (de un total de 4)
  • Autor
    Entradas
  • #50020
    FrichisFrichis
    Miembro

    Si, ya se que sois varios y que ahora ya os he enganchado.
    Al turron:
    En mi curro necesitamos,con cierta frecuencia, que los usuarios habiliten y deshabiliten el proxy en sus portatiles.
    Rebuscando por ahi, he encontrado un glorioso script en vbs que a continuacion, les adjunto en spoiler:
    [spoiler:3k2t9l4m]'————————————————
    ' Autor:
    ' Gregorio Zamora
    ' http://sites.google.com/site/scriptswindows
    '————————————————

    Const HKEY_CURRENT_USER = &H80000001

    strComputer = "."
    Set objRegistry = GetObject("winmgmts:\" & strComputer & "rootdefault:StdRegProv")
    Set objShell = WScript.CreateObject("WScript.Shell")

    strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionInternet Settings"
    strValueNameEnable = "ProxyEnable"
    strValueNameProxy = "ProxyServer"

    objRegistry.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueNameEnable, dwValueEnable
    objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueNameProxy, strValueProxy

    if dwValueEnable = 1 Then
    strmensaje = "El proxy esta habilitado y configurado contra" & vbCrlf & strValueproxy
    strmensaje = strmensaje & vbCrlf & vbCrlf & vbCrlf & "¿Desea deshabilitarlo?"
    dwValorProxyEnable = 0
    Else
    strmensaje = "El proxy esta dehabilitado"
    strmensaje = strmensaje & vbCrlf & vbCrlf & vbCrlf & "¿Desea habilitarlo contra " & strValueProxy & " ?"
    dwValorProxyEnable = 1
    End if

    intRespuesta = objShell.Popup (strmensaje, 0 ,"Estado del Proxy", vbQuestion + vbOKCancel)

    Select Case intRespuesta
    Case vbOK
    objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueNameEnable, dwValorProxyEnable
    Case vbCancel

    End Select

    objRegistry.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueNameEnable, dwValueEnable
    objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueNameProxy, strValueProxy

    if (dwValueEnable = 1) Then
    objShell.popup "Proxy habilitado" & vbCrlf & strValueProxy, 10, "Estado del proxy", vbInformation + vbOKOnly
    Else
    objShell.popup "Proxy deshabilitado", 10, "Estado del proxy", vbInformation + vbOKOnly
    End if[/spoiler:3k2t9l4m]

    El caso es que por motivos obvios los usuarios no tienen mas privilegios en el equipo que encender,apagar y poco mas.
    La solucion pasa, obviamente, por un RUNAS.
    El problema es que como yo de programacion no tengo ni puta idea no se si puedo añadir el runas en el propio codigo del script o deberia crear un nuevo script que mediante runas invoque a este primero.

    No se si queda claro o no, pero si alguien es tan amable de halludarrrme le estare agradecido, si bien no eternamente, al menos si un ratejo.

    EDIT: Supongo que ya lo habeis deducido, pero es Win XP y Explorer…

    #272028
    WorvastWorvast
    Miembro

    No he leido el script, pero, para lanzarlo con otras credenciales, con un cmd (por no hacer a los usuarios ponerlo en ejecutar) que lanze algo así:

    [spoiler:2mztd5lg]No vale lo que había puesto, me he equivocado, ya pensaré algo xD[/spoiler:2mztd5lg]

    O algo así, es lo primero que se me viene a la cabeza.

    #272033
    FrichisFrichis
    Miembro

    La idea es crear algo ligero y que no sea muy farragoso para, en caso de no poder hacer un remoto, dejarlo en la ftp corporativa y que lo descarguen ellos solos sin tener que hacer demasiada cosa.
    El problema es que si tenemos 2 scripts tenemos que hacer que el [strike:2wrj8zgg]mandril[/strike:2wrj8zgg] usuario de turno guarde uno en su escritorio y el otro en C:
    Y no se que clase de Lusers tienes tu, pero los mios pertenecen al Fashionismo mas salvaje, asi que te puedes imaginar los niveles de muñonez que alcanzan…

    #272044
    WorvastWorvast
    Miembro

    Se que los Lusers son lo peor xD

    Al final creo que si que había puesto lo correcto o casi parecido, tampoco es que yo toque mucho de este tema en mi trabajo, que para eso ya hay otros.

    [spoiler:2fuw5ywk]runas /user:USUARIO@DOMINIO" "cscript.exe \serverblaoblaoScript.vbs""

    Obviamente el \ser…. puedes cambiarlo por C: a tu bola.[/spoiler:2fuw5ywk]

    ¿Algo así? Esto en un bat o algo así, y que ejecuten el bat supongo, lo dicho, tampoco tengo mucha idea.

Viendo 4 entradas - de la 1 a la 4 (de un total de 4)
  • Debes estar registrado para responder a este hilo.