Partage
  • Partager sur Facebook
  • Partager sur Twitter

Script VBS pour modification de l'UAC

    9 novembre 2020 à 20:51:26

    Bonjour, j'ai créé un script pour désactiver l'UAL pour rajouter une ligne dans le fichier host. Ensuite il faut réactiver l'UAC. J'ai créé un script en vbs qui fonctionne car sur d'autres données cela a fonctionné? Je voudrais de l'aide pour comprendre pour le script vbs ne fonctionne pas pour l'UAL.

    '''' MODIFICATION VALEUR DANS LE REGISTRE ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    'PAR LE REGISTRE WINDOWS = Le registre de Windows contient les informations de configuration de Windows.

    'Une clé EnableUA se trouve dans HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System permet d'indiquer si l'UAC est activé 'ou non. Lorsque EnableUA est à 1, l'UAC est actif, à 0 l'UAC est désactivé.

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Option Explicit

    Dim bKey, WshShell, pKey

    '*** Déclaration des variables

    Dim ObjetRegedit

    '*** Permet de continuer le script même s'il y a une erreur

    On Error Resume Next

    '*** Definition du contenu de la variable

    'Set ObjetRegedit = CreateObject("WScript.Shell")

    'Set WshShell = WScript.CreateObject("WScript.Shell")

    '*** Definition du contenu de la variable "CleRegistre"

    CleRegistre = WshShell.RegRead ("HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader")

    'WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA")

    '*** Lecture de la clé de registre et si la valeur est égale à "0"

    '*** Action si "La clé est égale à 0" passer au rajout de la ligne dans le fichier host sinon si "La clé est égale à 1", supprimer la clé puis créer la clé avec la valeur 0

    'If CleRegistre = "1" then

    '*** Suppression de la clé de registre

    'WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA"

    WshShell.RegDelete "HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader"

    '*** Création des valeurs et son type "REG_DWORD".

    WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA", "0", "REG_DWORD"

    WshShell.RegWrite "HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader", "0", "REG_DWORD"

    End if

    On Error GoTo 0

    '*** Destruction des objets

    Set ObjetRegedit = Nothing

    '''' PARTIE HOST '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    '''' REINITIALISATION VALEUR DANS LE REGISTRE ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    'PAR LE REGISTRE WINDOWS = Le registre de Windows contient les informations de configuration de Windows.

    'Une clé EnableUA se trouve dans HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System permet d'indiquer si l'UAC est activé 'ou non. Lorsque EnableUA est à 1, l'UAC est actif, à 0 l'UAC est désactivé.

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    '*** Permet de continuer le script même s'il y a une erreur

    On Error Resume Next

    '*** Definition du contenu de la variable

    Set ObjetRegedit = CreateObject("WScript.Shell")

    Set WshShell = WScript.CreateObject("WScript.Shell")

    '*** Definition du contenu de la variable "CleRegistre"

    CleRegistre = WshShell.RegRead ("HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader")

    'WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA")

    '*** Lecture de la clé de registre et si la valeur est égale à "0"

    '*** Action si "La clé est égale à 1" passer à la suite du script sinon si "La clé est égale à 0", supprimer la clé puis créer la clé avec la valeur 1

    If CleRegistre = "0" then

    '*** Suppression de la clé de registre

    'WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA"

    WshShell.RegDelete "HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader"

    '*** Création des valeurs et son type "REG_DWORD".

    'WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA", "1", "REG_DWORD"

    WshShell.RegWrite "HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader", "1", "REG_DWORD"

    End if

    On Error GoTo 0

    '*** Destruction des objets

    Set ObjetRegedit = Nothing

    '*** Quitter le script

    WScript.Quit

    • Partager sur Facebook
    • Partager sur Twitter
      8 juin 2024 à 16:35:04

      Definition du contenu de la variable

      Set ObjetRegedit = CreateObject("WScript.Shell")

      Set WshShell = WScript.CreateObject("WScript.Shell")

      '*** Definition du contenu de la variable "CleRegistre"

      CleRegistre = WshShell.RegRead ("HKEY_CURRENT_USER\Software\ACME\FortuneTeller\MindReader")

      'WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA")

      '*** Lecture de la clé de registre et si la valeur est égale à "0"

      '*** Action si "La clé est égale à 1" passer à la suite du script sinon si "La clé est égale à 0", supprimer la clé puis créer la clé avec la valeur 1

      If CleRegistre = "0" then

      • Partager sur Facebook
      • Partager sur Twitter

      Script VBS pour modification de l'UAC

      × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
      • Editeur
      • Markdown