RunAsAdmin.prg: Rodando o Prompt do DOS como Administrador.

[rochinha]

Amiguinhos,

Mais uma dica legal para podermos executar ações burlando a segurança do Windows.

Testei em um Windows Seven Ultimate 64 com segurança média.

RunAsAdmin.prg

Código: Selecionar todos

////////////////////////////////////////////////////////////////////////////
//
//         Autor: Jose Carlos da Rocha                                                                                              
//          Data: 07/05/2015
//         Email: irochinha@hotmail.com.br
//     Linguagem: xBase / Fivewin
//   Plataformas: DOS, Windows
// Requerimentos: Harbour/xHarbour
//
/////////////////////////////////////////////////////////////////////////////

#include "FiveWin.ch"

FUNCTION MAIN()

   ? ;
   'ShellExecute( "CMD.EXE", "RUNAS", "", "C:\WINDOWS\SYSTEM32", 1 )',,;
   ShellExecute( "CMD.EXE", "RUNAS", "", "C:\WINDOWS\SYSTEM32", 1 )

RETURN .T.

#pragma BEGINDUMP
        #include <windows.h>
        #include <hbapi.h>
        // ShellExecute( cFile, cOperation, cParams, cDir, nFlag )
        HB_FUNC( SHELLEXECUTE )
        {
        hb_retnl( (LONG) ShellExecute( GetActiveWindow(),
                  ISNIL(2) ? NULL : (LPCSTR) hb_parc(2),
                  (LPCSTR) hb_parc(1),
                  ISNIL(3) ? NULL : (LPCSTR) hb_parc(3),
                  ISNIL(4) ? "C:\\" : (LPCSTR) hb_parc(4),
                  ISNIL(5) ? 1 : hb_parni(5) ) ) ;
        }
#pragma ENDDUMP

Testado com Fivewin, mas pode muito bem ser portado para o seu modo de programação ideal.

Bons usos.

[Pablo César]

Obrigado Rochinha por compartilhar.

[lucimauro]

Ola a todos
Rochinha estou tentando usar sua função mais acusa erro na funcao isnil() , voce teria o codigo dela?

[Itamar M. Lins Jr.]

Olá!
Se for Harbour.

Código: Selecionar todos

itamar@itamar-desktop:~$ hbmk2 -find isnil
Núcleo Harbour (instalado):
   HB_ISNIL()

Saudações,
Itamar M. Lins Jr.

[lucimauro]

Consegui rodar a função mais não funcionou aqui, estou precisando reiniciar um serviço quando esse para como adm mais o comando não surte efeito.
net start <servico> seria assim

[Itamar M. Lins Jr.]

Olá!
Configura pelo próprio windows, quando parar, reiniciar automático.

Saudações,
Itamar M. Lins Jr.

[lucimauro]

Consegui executar, era só um erro meu aqui.
Obg.