CMD dans VBS

"sans succès": que se passe-t-il?

as-tu essayé avec une commande plus simple, genre echo?

exemple:

Dim Message
Set Message = CreateObject("WsCript.Shell")
Message.run "cmd /k echo 'hello'"

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

Je l'ai mis dans le script mais je ne vois aucun changement

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 ^^

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 ?

peux-tu alors marquer cette discussion comme résolue?

je comptais la mettre après avoir résolue le problème des remontées.

Vous allez continuer à me venir en aide ?