CMD dans VBS
Résolu/Fermé
BRRG
BRRG
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
BRRG
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
A voir également:
- CMD dans VBS
- Entrée une commande en .vbs dans le cmd ✓ - Forum - Autoit / batch
- [VB] ouvrir CMD et y entrer plusieurs lignes ✓ - Forum - VB / VBA
- Cmd - Guide
- Traceroute cmd - Articles
- Cmd.exe - Articles
3 réponses
yg_be
11 nov. 2020 à 14:33
- Messages postés
- 19946
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 7 août 2022
11 nov. 2020 à 14:33
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
T3chN0g3n
19 nov. 2020 à 11:21
- Messages postés
- 4199
- Date d'inscription
- samedi 16 février 2019
- Statut
- Membre
- Dernière intervention
- 5 août 2022
19 nov. 2020 à 11:21
Bonjour,
Vous pouvez aussi manipuler le registre directement avec
Vous pouvez aussi manipuler le registre directement avec
wshShell.RegWrite
BRRG
19 nov. 2020 à 11:24
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
19 nov. 2020 à 11:24
Bonjour vous parlez pour quel endroit ?
T3chN0g3n
Modifié le 19 nov. 2020 à 11:49
- Messages postés
- 4199
- Date d'inscription
- samedi 16 février 2019
- Statut
- Membre
- Dernière intervention
- 5 août 2022
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
Modifié le 19 nov. 2020 à 11:49
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 ^^
BRRG
19 nov. 2020 à 11:46
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
- Messages postés
- 4199
- Date d'inscription
- samedi 16 février 2019
- Statut
- Membre
- Dernière intervention
- 5 août 2022
19 nov. 2020 à 11:46
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 ?
yg_be
19 nov. 2020 à 18:23
- Messages postés
- 19946
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 7 août 2022
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
19 nov. 2020 à 18:23
peux-tu alors marquer cette discussion comme résolue?
BRRG
19 nov. 2020 à 18:24
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
- Messages postés
- 19946
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 7 août 2022
19 nov. 2020 à 18:24
je comptais la mettre après avoir résolue le problème des remontées.
Vous allez continuer à me venir en aide ?
Vous allez continuer à me venir en aide ?
BRRG
19 nov. 2020 à 18:31
- Messages postés
- 1002
- Date d'inscription
- lundi 31 août 2015
- Statut
- Membre
- Dernière intervention
- 25 mars 2022
19 nov. 2020 à 18:31
d'accord
11 nov. 2020 à 14:34
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
11 nov. 2020 à 14:58
as-tu essayé avec une commande plus simple, genre echo?
11 nov. 2020 à 15:08
11 nov. 2020 à 15:17
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
11 nov. 2020 à 18:11