none
Script de executar como RRS feed

  • Pergunta

  • Olá,

         Tenho o seguinte script abaixo que ativa e desativa a aba de conexão:
    @ECHO OFF
    SET LIVE=REG ADD "HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel" /V ConnectionsTab /T REG_DWORD /D 00000000 /f

    SET HIDDEN=REG ADD "HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel" /V ConnectionsTab /T REG_DWORD /D 00000001 /f

    :MENU
    ECHO =============================================
    ECHO Escolha a opcao 1 DESBLOQUEIA e 2 BLOQUEIA!!!
    ECHO =============================================
    SET /P C=[1,3]?
    if "%C%"=="1" %LIVE%
    if "%C%"=="2" %HIDDEN%
    if "%C%"=="3" exit
    if "%C%"=="" GOTO MENU

    pause

            Gostaria de saber, alguma forma de executa-lo como administrador?
    Leonardo Sousa
    quinta-feira, 13 de agosto de 2009 12:58

Respostas

  • Olá,

    Fiz um script em HTA que irá te atender:




    <HTML>
    <HEAD>
    <TITLE>RUNAS</title>
    <HTA:APPLICATION
    ApplicationName="RUNAS"
    SingleInstance="Yes"
    WindowsState="Normal"
    Scroll="No"
    Navigable="Yes"
    MaximizeButton="No"
    SysMenu="Yes"
    Caption="Yes"
    ></HEAD>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    '# Size Window
    sHorizontal = 440
    sVertical = 175
    Window.resizeTo sHorizontal, sVertical
    '# Get Monitor Details
    Set objWMIService = GetObject _
    ("winmgmts:root\cimv2")
    intHorizontal = sHorizontal *2
    intVertical = sVertical *2
    Set colItems = objWMIService.ExecQuery( _
    "Select ScreenWidth, ScreenHeight from" _
    & " Win32_DesktopMonitor", , 48)
    For Each objItem In colItems
    sWidth= objItem.ScreenWidth
    sHeight = objItem.ScreenHeight
    If sWidth > sHorizontal _
    then intHorizontal = sWidth
    If sHeight > sVertical _
    then intVertical = sHeight
    Next
    Set objWMIService = Nothing
    '# Center window on the screen
    intLeft = (intHorizontal - sHorizontal) /2
    intTop = (intVertical - sVertical) /2
    Window.moveTo intLeft, intTop
    '# default window content
    window.location.href="#Top"
    End Sub


    Sub RunScript

    Dim oShell

    strLogin = UsrnameArea.Value
    strSenha = PasswordArea.Value

    set oShell= CreateObject("WScript.Shell")

    oShell.Run "runas /user:" & strLogin & " ""C:\teste.bat"""

    oShell.Run "c:\sleep.vbs", 0, 1

    oShell.Sendkeys strSenha &"~"


    Self.Close()
    End Sub


    Sub CancelScript
    Set oShell = Nothing
    Set objNetwork = Nothing
    Self.Close()
    End Sub

    </SCRIPT>


    <BODY STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
    <a name="Top"></a><CENTER>
    <table border="0" cellpadding="0" cellspacing="0"><font size="2" color="black" face="Arial">
    <tr>
    <td height="30">
    <p align="right">Your Username @domain.com</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="UsrnameArea" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right"> Password</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="password" name="PasswordArea" size="30"></td></tr>
    </table><BR>
    <HR color="#0000FF">
    <Input id=runbutton class="button" type="button" value=" Create Drive " name="run_button" onClick="RunScript">
    &nbsp;&nbsp;&nbsp;
    <Input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </CENTER>
    </BODY>

    </HTML>

    Salve com a extensão .hta

    Salve tambem o script sleep.vbs (abaixo)

    wscript.sleep 100
    wscript.quit

    Altere o c:\teste.bat para o seu script (bat)
    Execute e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique






    • Marcado como Resposta Leo Sousa quinta-feira, 13 de agosto de 2009 15:46
    quinta-feira, 13 de agosto de 2009 15:11

Todas as Respostas

  • Olá,

    Quando você utiliza esse script?? No logon???

    Você pode fazer isso por group policy.

    Ou colocar ele no script de startup. Assim ele irá usar a conta system (que tem permissão para alterar o registro)



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    quinta-feira, 13 de agosto de 2009 13:03
  • Esse script e para os tecnicos executarem atendimento.
    Quando executado ele peça a conta de adm ao técnico o mesmo preenche ai o menu aparece, como se fosse um RUNAS.
    Isso e para não executar logoff da conta do usuário.
    Leonardo Sousa
    quinta-feira, 13 de agosto de 2009 14:14
  • Olá,

    Fiz um script em HTA que irá te atender:




    <HTML>
    <HEAD>
    <TITLE>RUNAS</title>
    <HTA:APPLICATION
    ApplicationName="RUNAS"
    SingleInstance="Yes"
    WindowsState="Normal"
    Scroll="No"
    Navigable="Yes"
    MaximizeButton="No"
    SysMenu="Yes"
    Caption="Yes"
    ></HEAD>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    '# Size Window
    sHorizontal = 440
    sVertical = 175
    Window.resizeTo sHorizontal, sVertical
    '# Get Monitor Details
    Set objWMIService = GetObject _
    ("winmgmts:root\cimv2")
    intHorizontal = sHorizontal *2
    intVertical = sVertical *2
    Set colItems = objWMIService.ExecQuery( _
    "Select ScreenWidth, ScreenHeight from" _
    & " Win32_DesktopMonitor", , 48)
    For Each objItem In colItems
    sWidth= objItem.ScreenWidth
    sHeight = objItem.ScreenHeight
    If sWidth > sHorizontal _
    then intHorizontal = sWidth
    If sHeight > sVertical _
    then intVertical = sHeight
    Next
    Set objWMIService = Nothing
    '# Center window on the screen
    intLeft = (intHorizontal - sHorizontal) /2
    intTop = (intVertical - sVertical) /2
    Window.moveTo intLeft, intTop
    '# default window content
    window.location.href="#Top"
    End Sub


    Sub RunScript

    Dim oShell

    strLogin = UsrnameArea.Value
    strSenha = PasswordArea.Value

    set oShell= CreateObject("WScript.Shell")

    oShell.Run "runas /user:" & strLogin & " ""C:\teste.bat"""

    oShell.Run "c:\sleep.vbs", 0, 1

    oShell.Sendkeys strSenha &"~"


    Self.Close()
    End Sub


    Sub CancelScript
    Set oShell = Nothing
    Set objNetwork = Nothing
    Self.Close()
    End Sub

    </SCRIPT>


    <BODY STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
    <a name="Top"></a><CENTER>
    <table border="0" cellpadding="0" cellspacing="0"><font size="2" color="black" face="Arial">
    <tr>
    <td height="30">
    <p align="right">Your Username @domain.com</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="UsrnameArea" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right"> Password</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="password" name="PasswordArea" size="30"></td></tr>
    </table><BR>
    <HR color="#0000FF">
    <Input id=runbutton class="button" type="button" value=" Create Drive " name="run_button" onClick="RunScript">
    &nbsp;&nbsp;&nbsp;
    <Input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </CENTER>
    </BODY>

    </HTML>

    Salve com a extensão .hta

    Salve tambem o script sleep.vbs (abaixo)

    wscript.sleep 100
    wscript.quit

    Altere o c:\teste.bat para o seu script (bat)
    Execute e nos retorne.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique






    • Marcado como Resposta Leo Sousa quinta-feira, 13 de agosto de 2009 15:46
    quinta-feira, 13 de agosto de 2009 15:11
  • Com faço para desenvolver em HTA? Os comandos básicos.
    Leonardo Sousa
    quinta-feira, 13 de agosto de 2009 15:48