Habilita/Desabilita o Controle de Usuário no Windows com permissões de Administrador

Amigos este código funciona perfeitamente da seguinte maneira:

sh.Run (CurrentProject.Path & "\HabilitaDesabilitaUAC.vbs" & " 0")

Como acrescentar o modo de executar como adiministrador, pois ao executar da forma abaixo, na janela dos aparece o Help do comando RunAs

sh.Run "RunAs /noprofile /user:administrator " & (CurrentProject.Path & "\HabilitaDesabilitaUAC.vbs" & " 0")

Cumprimentos.

O mais proximo que cheguei foi executando pelo DOS, mas deu que o vbs não é um aplicativo Win32 válido.

Se alguem souber, fico-lhe grato.

Cumprimentos.

Cole uma destas linhas num .txt e renomeie para .bat

Desabilitar UAC

C:\Windows\System32\cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f


Habilitar UAC

C:\Windows\System32\cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f

Boas JP, habilitar e desabilitar eu ja fiz, inclusive postei o exemplo no Fórum.

A questão é executar como administrador.. porque?

quado o UAC está desabilitado ao executar a função aparecerá ainda a mensagem do UAC avisando que o comando pretende fazer alterações no PC, se executar como administrador esta mensagem não é exibida.

O que desejo é a adequação apenas da parte em vermelho para o comando RunAs.

O que ocorre é que para o VBS ele é executado porem da a mensagem de aplicativo nao e um Won32 valido.

sh.Run "RunAs /noprofile /user:administrator " & (CurrentProject.Path & "\HabilitaDesabilitaUAC.vbs" & " 0")

Cumprimentos.

Por VBS sim, mas você testou como lhe passei em .bat ?

Veja isto;
http://blogs.office.com/b/microsoft-access/archive/2009/11/11/running-a-command-as-administrator-in-vba.aspx

Irei testar Mestre.

Abraços.