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 -
BRRG Messages postés 1129 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Vbs.cmd
- Cmd - Guide
- Vbs windows - Accueil - Optimisation
- Scannow cmd - Guide
- Supprimer mot de passe bios avec cmd - Guide
- Récupérer clé windows cmd - Guide
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.
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
as-tu fait une recherche?
https://codes-sources.commentcamarche.net/forum/affich-589514-executer-une-commande-dos-dans-un-fichier-vbs
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:
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 ^^
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
as-tu essayé avec une commande plus simple, genre echo?
Dim Message Set Message = CreateObject("WsCript.Shell") Message.run "cmd /k echo 'hello'"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