Autoit.ES

Código: Seleccionar todo

#RequireAdmin
; Aqui comienza el programa - Primer msgBox, si deseas saber que sistema tienes
MsgBox(0, "Modificación del nivel de control de usuarios - UAC", "Sistema Operativo actual " & @OSVersion & " " & @OSServicePack & @CRLF & @CRLF & " Va a modificar su sistema")
If StringInStr("WIN_2003 WIN_XP WIN_XPe WIN_2000", @OSVersion) Then
	MsgBox(0, "Sistema sin control de usuarios - UAC", "Sistema Operativo actual " & @OSVersion)
ElseIf StringInStr("WIN_VISTA", @OSVersion) Then
	_ConmutaRegistro("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "ConsentPromptBehaviorAdmin", "REG_DWORD", "1|Protegido", "0|Sin Protección")
Else ; "WIN_2008R2 WIN_7 WIN_2008"
	_ConmutaRegistro("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "ConsentPromptBehaviorAdmin", "REG_DWORD", "5||Protección Máxima", "2|Protección Media", "1|Protección Baja", "0|Sin Protección")
EndIf

; #FUNCTION#=======================================================================================
; Nombre ........: _ConmutaRegistro
; Descripción ...: Conmuta el estado Activado/Desactivado o alterna diferentes valores del Registro
; Sintaxis.......: _ConmutaRegistro()
; Parámetros ....: $regpath,$regKey,$pType,$pValue1[1],$pValue2[1],$pValue3[1],$pValue4[1],$pSilent
;                  Ruta del registro y llave, el tipo de valor (e.g. REG_DWORD), los dos (o tres, o cuantro)valores a intercambiarse, silencioso 0/1
;
; Valor Retorno .: Éxito - Devuelve 1 si se pudo ejecutar correctamente.
;                  Fallo - Devuelve 0 y activa @error:
;                   1: Registro no encontrado (sistema sin Registro o acceso no permitido)
;                   2: Registro encontrado, pero no modificable
;                   3: Valor actual no especificado en los parametros
; Autor .........: Ximorro, BasicOS, chekok en http://www.autoit.es
; Comentarios ...: Los programas que utilicen esta función pueden requerir la directiva
;                  #RequireAdmin  para poder modificar esta entrada del registro como Admin
;;=================================================================================================

#include <Misc.au3>
Func _ConmutaRegistro($regpath, $regKey, $pType, $pValue1, $pValue2, $pValue3 = "|", $pValue4 = "|", $pSilent = 0)

;valores son 0 desactivado y 5 activado de DWORD,  0x00000001 (1) Y  0x00000005 (5)
	Local $nuevoValor, $resultadoEscritura, $ActualValor
	;Leemos clave actual
	$ActualValor = RegRead($regpath, $regKey)
	If @error <> 0 Then
		;     ;No está la clave: no estamos en un Vista, Seven, etc. o bien no tenemos permisos de acceso
		MsgBox(48, "Advertencia", "No existe clave del Registro. Valor encontrado: " & $ActualValor)
		Return SetError(1, 0, 0)
	EndIf
	; Elegimos la clave contraria
	$aValue1 = StringSplit($pValue1, "|")
	$aValue2 = StringSplit($pValue2, "|")
	$aValue3 = StringSplit($pValue3, "|")
	$aValue4 = StringSplit($pValue4, "|")
	If $aValue3[1] = "" And $aValue4[1] = "" Then
		$nuevoValor = _Iif($aValue1[1] = $ActualValor, $aValue2[1], _Iif($aValue2[1] = $ActualValor, $aValue1[1], "Error"))
	ElseIf $aValue4[1] = "" Then
		$nuevoValor = _Iif($aValue1[1] = $ActualValor, $aValue2[1], _Iif($aValue2[1] = $ActualValor, $aValue3[1], _Iif($aValue3[1] = $ActualValor, $aValue1[1], "Error")))
	Else
		$nuevoValor = _Iif($aValue1[1] = $ActualValor, $aValue2[1], _Iif($aValue2[1] = $ActualValor, $aValue3[1], _Iif($aValue3[1] = $ActualValor, $aValue4[1], _Iif($aValue4[1] = $ActualValor, $aValue1[1], "Error"))))
	EndIf
	$ActualTexto = _Iif($aValue1[1] = $ActualValor, $aValue1[2], _Iif($aValue2[1] = $ActualValor, $aValue2[2], _Iif($aValue3[1] = $ActualValor, $aValue3[2], _Iif($aValue4[1] = $ActualValor, $aValue4[2], "Error"))))
	$nuevoTexto = _Iif($aValue1[1] = $nuevoValor, $aValue1[2], _Iif($aValue2[1] = $nuevoValor, $aValue2[2], _Iif($aValue3[1] = $nuevoValor, $aValue3[2], _Iif($aValue4[1] = $nuevoValor, $aValue4[2], "Error"))))
	If $nuevoValor = "Error" Then
		MsgBox(16, "Error ", "El parametro actual del registro es un valor no soportado: " & $ActualValor)
		Return SetError(3, 0, 0)
	EndIf
	; Grabamos la clave
	$resultadoEscritura = RegWrite($regpath, $regKey, $pType, $nuevoValor)
	If Not $resultadoEscritura Then
		MsgBox(16, "Error al modificar Registro", "El Registro es de sólo lectura o algún error en escritura.")
		Return SetError(2, 0, 0)
	EndIf
	If Not $pSilent Then MsgBox(0, "Modificación del registro", "La Clave " & $regKey & " ha cambiado:" & @CRLF & @CRLF & " Valor ahora: " & $nuevoTexto & " (" & $nuevoValor&")" & @CRLF & @CRLF & "Valor previo: " & $ActualTexto& " (" & $ActualValor &")")
	Return $ActualValor ;Devolvemos el valor anterior si se pudo escribir en el registro
EndFunc   ;==>_ConmutaRegistro

Código: Seleccionar todo

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=conmutaRegistro.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Description=Autoit.es
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region ;**** Directives para compilar ****
;##############################################################################################

Código: Seleccionar todo

@OSVersion
 Returns one of the following: "WIN_2008R2", "WIN_7", "WIN_2008", "WIN_VISTA", "WIN_2003", "WIN_XP", "WIN_XPe", "WIN_2000". 

Código: Seleccionar todo

$strComputer = "."
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colOperatingSystems = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For $objOperatingSystem in $colOperatingSystems
	Msgbox(0,"Versión",$objOperatingSystem.Caption & " " & $objOperatingSystem.Version)
Next