CMD dans VBS

Résolu

BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention -
BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention - 19 nov. 2020 à 18:31

Bonjour je voudrais savoir s'il est possible de mettre ces deux commandes DOS dans un script VBS.

REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f

Activation de l'UAC :
REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f

Merci de votre aide car je n'y arrive pas.

Afficher la suite

3 réponses

Résumé de la discussion

Plusieurs échanges portent sur l'intégration de commandes REG ADD dans un script VBScript visant à activer ou désactiver l'UAC par le registre Windows et sur la gestion des erreurs associée. Des solutions évoquent d'abord que les commandes fonctionnent isolément, puis soulignent des problèmes pratiques comme l'extension de fichier et le nom 'Disable.vbs' qui peut déclencher des avertissements, et proposent On Error Resume Next. D'autres éléments signalent que les entrées dans le registre se créent correctement, mais l'effet sur l'explorateur peut être absent, et une gestion complète des erreurs ou des autorisations peut être nécessaire.

Réponse 1 / 3
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588

bonjour,
as-tu fait une recherche?
https://codes-sources.commentcamarche.net/forum/affich-589514-executer-une-commande-dos-dans-un-fichier-vbs
0
1. BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4
  
  je l'ai bien vu mais je n'arrive pas à appliquer .
  
  J'ai fais ça shl.run "cmd /c REG ADD HKEY_LOCAL_\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System / v EnableLUA / t REG_DWORD / d 0 / f",0,true
  
  sans succès
  
  0
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention
  
  "sans succès": que se passe-t-il?
  
  as-tu essayé avec une commande plus simple, genre echo?
  
  0
3. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  exemple:
  Dim Message Set Message = CreateObject("WsCript.Shell") Message.run "cmd /k echo 'hello'"
  
  0
4. BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4 > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  non car je ne maîtrise pas trop le script. J'ai pris ce langage car j'ai trouvé les commandes sur internet. Je vous envoie ce que j'ai fais. De mon côté je tente la commande
  
  Option Explicit
  
  '*** Déclaration des variables
  Dim ObjetRegedit, CleRegistre
  
  '*** 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 fso = CreateObject("Scripting.FileSystemObject")
  set shl = createobject("wscript.shell")
  
  '*** recuperation du contenu de la clef, placement dans la variable "CleRegistre"
  CleRegistre = ObjetRegedit.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
  
  '*** 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 TypeName(CleRegistre) = "Empty" Then
  MsgBox "Clef registre inexistante"
  Else
  MsgBox "Valeur de CleRegistre " & CleRegistre
  If CleRegistre = "1" then
  '*** Suppression de la clé de registre
  'ObjetRegedit.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
  
  ''Commande a inclure dans le VBS''''''''''''''''''''''''''''''''''''
  'shl.run "cmd /c REG ADD HKEY_LOCAL_\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System / v EnableLUA / t REG_DWORD / d 0 / f",0,true
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  
  '*** Création des valeurs et son type "REG_DWORD".
  'ObjetRegedit.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "0", "REG_DWORD"
  MsgBox "Je suis bien passé dans le If de CleRegistre = 1, passage à valeur 0 FAIT"
  Else
  MsgBox "Je suis bien passé dans le If de CleRegistre = 0, donc pas de modification"
  End If
  End if
  
  On Error GoTo 0
  
  '*** Destruction des objets
  Set ObjetRegedit = Nothing
  
  '*** Quitter le script
  'WScript.Quit
  
  0
5. BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4 > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  Je l'ai mis dans le script mais je ne vois aucun changement
  
  0
Réponse 2 / 3
T3chN0g3n Messages postés 69 Date d'inscription Statut Membre Dernière intervention 1 217
Bonjour,
Vous pouvez aussi manipuler le registre directement avec
```
wshShell.RegWrite
```
0
1. BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4
  
  Bonjour vous parlez pour quel endroit ?
  
  0
2. T3chN0g3n Messages postés 69 Date d'inscription Statut Membre Dernière intervention 1 217 > BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention
  
  Oulà désolé j'avais pas vu l'historique des 100 messages, je suis un peut hors sujet du-coup ^^
  
  Je parlais juste d'utiliser un truc du genre:
  Set WshShell = CreateObject("WScript.Shell") wshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "0", "REG_DWORD" wshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "1", "REG_DWORD"
  pour votre question initiale ^^
  
  0
3. BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4 > T3chN0g3n Messages postés 69 Date d'inscription Statut Membre Dernière intervention
  
  C'est super gentil d'intervenir. Ce problème est résolu. Est ce que vous pouvez m'aider pour le problème de remontée des lecteurs réseaux s'il vous plaît ?
  
  0
4. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention
  
  peux-tu alors marquer cette discussion comme résolue?
  
  0
5. BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4 > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
  
  je comptais la mettre après avoir résolue le problème des remontées.
  
  Vous allez continuer à me venir en aide ?
  
  0
Réponse 3 / 3
BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention 4

d'accord
0

CMD dans VBS

3 réponses

Discussions similaires

Newsletters