Viva,
Para desligar o UAC eu utilizo o script em baixo, agora não sei se depois de executar tens que reinicializar o computador, mas acho que sim.
Este script desliga o UAC e cria um ficheiro na pasta %Temp% do computador para verificares se o script foi executado com sucesso.
Verifica se te interessa.
On Error Resume Next
Dim objShell
Dim objFSO
Dim strFile
Set objShell=Wscript.CreateObject("Wscript.Shell")
Err.Clear
objShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_DWORD"
If (Err.Number <> 0) Then
Call CreateControlFile(Err.Description)
Wscript.Quit(1)
Else
Call CreateControlFile("OK")
Wscript.QUit(0)
End If
Function CreateControlFile(ErrorMessage)
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set strFile=objFSO.CreateTextFile(objFSO.GetSpecialFolder(2) & "\UACControl_" & wscript.ScriptName & ".txt", True)
strFile.WriteLine(ErrorMessage)
strFile.Close
End Function
Set objShell=Nothing
Set objFSO=Nothing
Set strFile=Nothing
