CMD dans VBS [Résolu]

"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

as-tu essayé l'exemple en #4?

Le hello s'affiche bien lorsque je le met juste avant la récupération de la clé.

ok, donc la technique fonctionne bien.

selon ce que j'ai compris, il ne reste plus qu'a trouver la commande qui permet de pouvoir utiliser ces deux commandes.

Désactivation de l'UAC :

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

que se passe-t'il quand tu utilises ce commandes dans une boite de commande?

dans cmd ca fonctionne parfaitement

mais dans vbs je ne sais pas comment faire

qu'as-tu essayé?

j'ai essayé cela : Set shl.run "cmd /k 'REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f'"

Je préfère le dire je n'ai pas trop compris ce qu'il fallait mettre.

as-tu essayé comme l'exemple en #4, en remplaçant simplement echo 'hello' par REG ADD ... ?

j'ai mis c'est deux commandes mais la console me dit que ''REG_ADD' ou REG ADD n’est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.

Message.run "cmd /k 'REG_ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t 'REG_DWORD /d 1 /f"

Message.run "cmd /k 'REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t 'REG_DWORD /d 1 /f"

regarde bien, as-tu vraiment fait ce que j'ai écrit en #15?

je n'ai pas du comprendre surtout je pense.

Ca ne donne pas ca ?

Dim Message
Set Message = CreateObject("WsCript.Shell")
Message.run "cmd /k 'REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t 'REG_DWORD /d 1 /f"

non, cela ne donne pas ça.
recommence en partant du #4 et des commandes que tu as mis dans ta question initiale.

Bonjour, Je pense que le résultat est comme ca

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

quel résultat cela donne-t-il?
on va alors faire cela en plusieurs étapes:
pars de l'exemple en #4, et remplace

echo 'hello'

par

BRRG

.
montre-nous ce que cela donne.

Cela me dit que la commande n'est pas reconnu comme une commande.

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

Je dois me tromper dans les apostrophes et guillemets.

je pense aussi que tu te trompes: en tous cas, tu ne fais pas ce que j'explique.

Je ne comprends pas trop ce qui est ce qui est demandé.

Vous voulez cela ?

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

pars de l'exemple en #4, et remplace

echo 'hello'

par un point d'interrogation.
montre-nous ce que cela donne.
montre aussi ce que tu vois dans l'exemple #4, je me pose des questions...

Dim Message
Set Message = CreateObject("WsCript.Shell")
Message.run "cmd /k ?"

Toujours pareil. Je les ai mis dans un vbs.

A l'exécution
'?' n’est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.

et maintenant tu remplaces le point d'interrogation par

reg

Dim Message
Set Message = CreateObject("WsCript.Shell")
Message.run "cmd /k reg"

Voila ce qu'il s'affiche
ERREUR : syntaxe incorrecte.
Entrez "REG /?" pour afficher la syntaxe.

maintenant replace reg par la commande

reg add

complète, comme elle est au tout début de cette discussion.

Dim Message
Set Message = CreateObject("WsCript.Shell")
Message.run "cmd /k reg add"

Voila ce qu'il s'affiche
ERREUR : syntaxe incorrecte.
Entrez "REG ADD /?" pour afficher la syntaxe.

j'ai essayé cela :
Set fso = CreateObject("Scripting.FileSystemObject")

set shl = createobject("wscript.shell")

shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"


J'ai comme message accès refusé.

avec cela ca fonctionne.If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, WScript.ScriptFullName & " /elevate", "", "runas", 1
WScript.Quit
End If

Set fso = CreateObject("Scripting.FileSystemObject")

set shl = createobject("wscript.shell")

shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

Je mets le script en fonctionnement et je vous redis

ca ne fonctionne pas lorsque je le met dans mon script
Option Explicit

'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre, WshShell

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

'*** Droits administrateur
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'*** Definition du contenu de la variable
Set ObjetRegedit = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")

'*** Definition du contenu de la variable "CleRegistre"
CleRegistre = WshShell.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 CleRegistre = "1" then

'*** Suppression de la clé de registre
shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"

'*** Création des valeurs et son type "REG_DWORD".
shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

End if
On Error GoTo 0

'*** Destruction des objets
Set ObjetRegedit = Nothing

'*** Quitter le script
WScript.Quit

et j'ai aussi "pas d'extension de fichier dans ........."

sais-tu à quoi sert

On Error Resume Next

?
peux-tu utiliser les balises de code quand tu partages du code (en précisant "basic" pour du vbs): https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

à continuer même s'il y a une erreur.

Option Explicit

'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre, WshShell

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

'*** Droits administrateur
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'*** Definition du contenu de la variable
Set ObjetRegedit = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")

'*** Definition du contenu de la variable "CleRegistre"
CleRegistre = WshShell.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 CleRegistre = "1" then

'*** Suppression de la clé de registre
shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"

'*** Création des valeurs et son type "REG_DWORD".
shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

End if
On Error GoTo 0

'*** Destruction des objets
Set ObjetRegedit = Nothing

'*** Quitter le script
WScript.Quit

tu n'as pas choisi "basic".
es-tu certain que c'est une bonne idée de continuer si il y a une erreur? cela ne peut-il pas d'empecher de découvrir ce qui ne fonctionne pas?

Les commandes fonctionnaient seules donc j'ai voulu les mettre dans le script complet.

Je n'ai pas fait attention pour la flèche

Bonjour, j'ai réussi à mettre en place le script mais lorsque je l'enregistre il s'affiche le message "Pas d'extension de fichier sans .........". Le fichier se nomme simplement "Disable.vbs". Je vais tenter de corriger.

qui affiche quand quel message?

Apparemment certains scripts ne peuvent pas être exécuter s'ils sont dans un dossier

Le script pour activer n'affiche pas d'erreur mais celui pour désactiver si.

Caractère incorrect ligne 1 / Caractère 1.

Option Explicit
 
'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre, WshShell, fso, shl

'**** Droits administrateur
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'*** 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")
Set WshShell = WScript.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 de 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) Then
 If CleRegistre = "0" then
 '*** Suppression de la clé de registre
 shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"

 '*** Création des valeurs et son type "REG_DWORD".
 shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"
         
 End If
End if

On Error GoTo 0
 
'*** Destruction des objets
Set ObjetRegedit = Nothing
 
'*** Quitter le script
'WScript.Quit

J'ai réussi à corriger le problème de lancement avec "https://www.nicolas-housset.fr/vbscript-invalid-character-800a0408-compilation-error/".

Le problème vient de mon script car les commandes sont bonnes.

Enfin une bonne nouvelle les deux scripts fonctionnent. Il ne reste plus qu'à les perfectionner pour éviter que les fenêtres de console CMD ne s'ouvrent ou bien pour qu'elle se ferment seules.

Pour désactiver l'UAC :

Option Explicit
 
'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre, WshShell, run, shl
 
'*** 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")
Set WshShell = WScript.CreateObject("WScript.Shell")

'**** Droits administrateurs
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'*** Récupération 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. Si la valeur est égale à 1 tout est correct sinon la clé qui est égale à 0 doit être supprimée puis créée avec la valeur 1.

If TypeName(CleRegistre) = "Empty" Then
 Else 
 If CleRegistre = "1" then

  '*** Suppression de la clé de registre
  shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"

  '*** Création des valeurs et son type "REG_DWORD".
  shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

 End If
End if

On Error GoTo 0
 
'*** Destruction des objets
Set ObjetRegedit = Nothing
 
'*** Quitter le script
'WScript.Quit

Pour activer l'UAC :

Option Explicit
 
'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre, WshShell, run, shl
 
'*** 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")
Set WshShell = WScript.CreateObject("WScript.Shell")

'**** Droits administrateurs
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'*** Récupération 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. Si la valeur est égale à 0 alors le rajout de la ligne dans le fichier host est à effectuer sinon la clé qui est égale à 1 doit être supprimée puis créée avec la valeur 0.

If TypeName(CleRegistre) = "Empty" Then
 Else
 If CleRegistre = "0" then

 '*** Suppression de la clé de registre
 shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

  '*** Création des valeurs et son type "REG_DWORD".
  shl.run "cmd /k REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"
 
 End If
End if

On Error GoTo 0
 
'*** Destruction des objets
Set ObjetRegedit = Nothing
 
'*** Quitter le script
'WScript.Quit

cmd /k

était utile pour voir le résultat. tu peux utiliser

cmd /c

pour que ces fenêtres se ferment.

D'accord merci aussi simple que cela .

Je regroupe toutes les parties.

Lorsque je regroupe les trois scripts (Désactiver UAC puis ajout de la ligne dans le fichier Host puis Réactivation de l'UAC) seul l'UAC est désactivé.

Voila pour les deux premières étapes. Il va à la fin mais rien ne s'ajoute dans le host. Je ne maîtrise pas assez le scripting pour trouver l'erreur.

'''' 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
 
'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre, WshShell, run, shl, oProcess, hostsNewLine 
 
'*** 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")
Set WshShell = WScript.CreateObject("WScript.Shell")

'**** Droits administrateurs
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'*** Récupération 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. Si la valeur est égale à 1 tout est correct sinon la clé qui est égale à 0 doit être supprimée puis créée avec la valeur 1.

If TypeName(CleRegistre) = "Empty" Then
	Else
	If CleRegistre = "1" then

		'*** Suppression de la clé de registre
		shl.run "cmd /c REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"

		'*** Création des valeurs et son type "REG_DWORD".
		shl.run "cmd /c REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

	End If


'''' AJOUT VALEUR DANS HOST ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1

hostsNewLine = "	10.8.0.1	BARRANGER-DSM"

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")

HostsFile = WinDir & "\System32\Drivers\etc\Hosts"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(HostsFile, ForReading)

Do Until objFile.AtEndOfStream
If InStr (objFile.ReadLine, hostsNewLine) <> 0 Then
x=msgbox("The line: " & hostsNewLine & " is already on the hosts file",0, "Already done")
WScript.Quit
End If
i = i + 1
Loop
objFile.Close

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(HostsFile)
If objFile.Attributes AND ReadOnly Then
objFile.Attributes = objFile.Attributes XOR ReadOnly
End If

Set filetxt = fso.OpenTextFile(HostsFile, ForAppending, True)
filetxt.WriteLine(vbNewLine & hostsNewLine)
filetxt.Close
x=msgbox("Added new line to hosts file: " & hostsNewLine,0, "Success")
End If
WScript.quit

J'ai une autre question, est il possible de créer un script vbs qui créé un autre vbscript mais cette fois-ci avec tout le script final car sur le net j'ai seulement bu pour du texte.

es-tu certain que c'est une bonne idée de continuer si il y a une erreur? cela ne peut-il pas d'empecher de découvrir ce qui ne fonctionne pas?

un fichier vbs est un ficher texte.

Les 3 scripts séparés fonctionnent parfaitement d'où le fait que j'ai continué.

Un fichier texte est bien en .txt alors qu'un vbscript est en .vbs.

sais-tu à quoi sert On Error Resume Next?

un fichier vbscript est un ficher texte, peu importe son nom.

oui je vous l'ai déjà dit. A continuer même s'il y a une erreur.

es-tu certain que c'est une bonne idée de continuer si il y a une erreur? cela ne peut-il pas d'empecher de découvrir ce qui ne fonctionne pas?

vous parlez de l'assemblage ?

il s'agit de

On Error Resume Next

.

je l'ai enlevé

Les deux premiers fonctionnent

Les deux premiers fonctionnent. Je viens de voir que l'adresse et le nom se mettent plusieurs fois dans le fichier host.
Je pense que j'ai un conflit Set WshShell = CreateObject("WScript.Shell") car lorsque je ne le met pas l'UAC se réactive et sinon il ne se réactive pas.

Les lecteurs ne se renomment pas lorsque je les mets dans le grand script alors que dans le script uniquement pour leur action cela fonctionne.

Aussi j'ai le message erreur 80070055 Nom périphérique déjà utilisé.

Est ce possible qu'il y est un conflit ?

je pense utile d'ajouter

WScript.Quit

après la ligne 24: inutile de laisser continuer le script si tu démarres une autre instance du même script.

je suis perdu car cela fonctionne de temps en temps.

Qu'elle est la commande pour monter un lecteur réseau ObjNetwork.MapNetworkDrive ou WSHNetwork.MapNetworkDrive

c'est toi qui choisis des noms comme ObjNetwork et WSHNetwork.

dim blabla
set blabla = WScript.CreateObject("WScript.Network")
blabla.MapNetworkDrive

D'accord. Je vais regarder. Merci

Je suis en train d'enlever tous les On error resume next. Par contre à la ligne bkey = Wshelle.RegRaed(Pkey). J'obtiens l'erreur "Impossible d'ouvrir la clé de registre
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\............".
Le code est 80070002.
La source WshShell.RegRead.

Je dois donc la corriger.

Je ne maitrise pas le scripting donc je copie colle et j'adapte au mieux à mes besoins.

Dim bKey, WshShell, pKey, fso

Set WshShell = CreateObject("WScript.Shell")

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Autre\_LabelFromReg"

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
 WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Autre\_LabelFromReg", "Local_Autre"
  else
    if (bKey <> "Local_Autre") then
      WshShell.RegWrite pkey, "Local_Autre"
    end if
  end if

ici, il est prévu qu'il peut y avoir une erreur, et le code prévoit de la gérer.
je suggère de mettre

on error resume next

juste avant la ligne 7, et

on error go to 0

juste après.

d'accord Merci. Je le fais à chaque fois si j'en ai plusieurs ?

Dans beaucoup de script je vois des commandes à la fin. Je voudrais savoir si je dois les mettre.

'On Error GoTo 0

'*** Destruction des objets
'Set ObjetRegedit = Nothing

'*** Quitter le script
'WScript.Quit

pour les "on error", difficile de définir une règle générale.

si c'est vraiment la fin, cela ne sert à rien.

Depuis que j'ai appliqué votre correction, le changement de nom ne se fait plus qu'à vidéo.

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Autre\_LabelFromReg", "Local_Autre"
		else
				if (bKey <> "Local_Autre") then
						WshShell.RegWrite pkey, "Local_Autre"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Cours\_LabelFromReg", "Local_Cours"
		else
				if (bKey <> "Local_Cours") then
						WshShell.RegWrite pkey, "Local_Cours"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Documents\_LabelFromReg", "Local_Documents"
		else
				if (bKey <> "Local_Documents") then
						WshShell.RegWrite pkey, "Local_Documents"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Films_Series_Dessins-Animes\_LabelFromReg", "Local_Films_Series_Dessins-Animes"
		else
				if (bKey <> "Local_Films_Series_Dessins-Animes") then
						WshShell.RegWrite pkey, "Local_Films_Series_Dessins-Animes"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Images\_LabelFromReg", "Local_Images"
		else
				if (bKey <> "Local_Images") then
						WshShell.RegWrite pkey, "Local_Images"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Logiciels\_LabelFromReg", "Local_Logiciels"
		else
				if (bKey <> "Local_Logiciels") then
						WshShell.RegWrite pkey, "Local_Logiciels"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Musiques\_LabelFromReg", "Local_Musiques"
		else
				if (bKey <> "Local_Musiques") then
						WshShell.RegWrite pkey, "Local_Musiques"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Photos\_LabelFromReg", "Local_Photos"
		else
				if (bKey <> "Local_Photos") then
						WshShell.RegWrite pkey, "Local_Photos"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Pieces officielles\_LabelFromReg", "Local_Pieces officielles"
		else
				if (bKey <> "Local_Pieces officielles") then
						WshShell.RegWrite pkey, "Local_Pieces officielles"
				end if
		end if

On error resume next
bKey = WshShell.RegRead(pKey)
On Error GoTo 0

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##BARRANGER-DSM#Videos\_LabelFromReg", "Local_Videos"
		else
				if (bKey <> "Local_Videos") then
						WshShell.RegWrite pkey, "Local_Videos"
				end if
		end if

il ne manque pas des lignes

pkey= '...

?

Le problème vient du fait que le script n'écris rien dans les données.

Seul cela fonctionne mais pas regroupé

Les données se mettent bien dans le registre mais rien ne se passe au niveau de l'explorateur de fichiers.

Je ne pense pas. J'ai vérifié mais tout me semble correct la dessus.

Bonjour, il n'est pas possible dans un même script de désactiver faire l'ajout puis de réactiver l'UAC à la suite ?

pourquoi pas? as-tu testé avec un petit script?

J'ai testé avec un script séparé puis j'ai regroupé petit à petit. Actuellement, ce qui fonctionne :
-La désactivation de l'UAC + Ajout dans le fichier host
ou
-Ajout dans le fichier host + Activation de l'UAC

mais pas
-La désactivation de l'UAC + Ajout dans le fichier host + Activation de l'UAC

as-tu testé:
-La désactivation de l'UAC + msgbox "bonjour" + Activation de l'UAC

Je vous confirme qu'avec le message cela fonctionne parfaitement.

C'est donc l'ajout qui pose problème.

Je n'ai pas trop compris la manipulation à faire pour quitter le script afin de procéder par étape.

Avez-vous vu ma réponse pour le message 64 ? La voici : J'ai refais le fichier avec le mien ca fonctionne. Avec les rajouts, uniquement le dernier (Videos) fonctionne.

J'ai réussi à compiler les 3 premiers script. J'ai ajouté la remontée des lecteurs réseaux. Je cherche d'ù provient l'erreur.

cet objet ne gère pas cette propriété ou cette méthode. Le problème vient de mapnetworkdrive correspondant à la ligne
WSHNetwork.MapNetworkDrive "Q:" , "\\XXX\Autre", False, varUser, varPassword

il faudrait voir ce que tu fais avec

WSHNetwork

avant cette ligne.

Avant il y a ca
varUser = "XX"
varPassword = "XX"
Set WSHNetwork = WScript.CreateObject("WScript.Shell")

ne devrait-ce pas être:

set WSHNetwork = WScript.CreateObject("WScript.Network")

Effectivement je me suis fait avoir par notepad ++. Maintenant c'est nom du périphérique déjà utilisé.

Q: serait déjà utilisé...

Je n'ai aucun lecteur de lancé. J'ai essayé avec plusieurs lettres.

L'erreur est : "Nom de périphérique local déjà utilisé".

Selon Internet, c'est souvent une erreur dans mon script.

tu peux utiliser "net use" dans une boite de commande pour visualiser si Q est utilisé.

si j'utilise la partie du script seul tout fonctionne parfaitement

J'ai mis cela : objNetwork.MapNetworkDrive "K:" , "\\BARRANGER-DSM\Autre", False, varUser, varPassword

Avec Q j'ai l'erreur.

Je n'ai plus d'erreur mais lorsqu'il est seul le lecteur monte sinon il ne monte pas.

Bonjour, j'ai voulu mettre de côté la remontée des lecteurs car je ne trouve pas le problème. J'ai donc voulu mettre en place le renommage des lecteurs et j'ai encore une erreur que je n'ai pas lorsque je teste le seul.

En résumé pour la remontée des lecteurs j'ai l'erreur comme quoi le périphérique est déjà utilisé.

Pour la renommée des lecteurs j'ai l'erreur.

difficile d'analyser le message d'erreur sans voir ton script.

Je comprends. Il est juste très long

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	DESACTIVATION DE L'UAC                                                                                                                                                                                                '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'

Option Explicit

'---- Déclaration des variables -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim ObjetRegedit, CleRegistre, WshShell, ObjetNetwork, objNetwork, run, shl, oProcess, hostsNewLine, hostsNewLineLocal, fso, WinDir, HostsFile, objFSO, objFile, filetxt, x, varUser, varPassword, bKey, pKey, WSHNetwork

'---- Definition du contenu de la variable --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set ObjetRegedit = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")
'Set WshShell = WScript.CreateObject("WScript.Shell")

'---- Execution des droits administrateurs --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
End If

'---- Récupération 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. Si la valeur est égale à 1 tout est correct sinon la clé qui est égale à 0 doit être supprimée puis créée avec la valeur 1.
If TypeName(CleRegistre) = "Empty" Then
	Else
	If CleRegistre = "1" then'
		'---- Suppression de la clé de registre
		shl.run "cmd /c REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"

		'---- Création des valeurs et son type "REG_DWORD".
		shl.run "cmd /c REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

	End If
End if
 
msgbox "Coupure1" 

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	AJOUTER DANS LE FICHIER HOSTS                                                                                                                                                                                         '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'

Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1
msgbox "Coupure2"
'---- Ajout des lignes dans le fichier hosts ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 
hostsNewLine = "	10.8.0.1		XX-DSM"
hostsNewLineLocal = "	172.16.30.4		XX-DSM"
'msgbox "Coupure2.1"
'---- Modificatication du fichier hosts -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")
'msgbox "Coupure2.2"
'----
HostsFile = WinDir & "\System32\Drivers\etc\Hosts"
msgbox "Coupure3"
'----
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(HostsFile, ForReading)
msgbox "Coupure4"
'----
Do Until objFile.AtEndOfStream
If InStr (objFile.ReadLine, hostsNewLine) <> 0 Then
'WScript.Quit
End If
Loop
'objFile.Close
msgbox "Coupure5" 
'----
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(HostsFile)
If objFile.Attributes AND ReadOnly Then
objFile.Attributes = objFile.Attributes XOR ReadOnly
End If

'---- Execution des droits administrateurs --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'If Not WScript.Arguments.Named.Exists("elevate") Then
'  CreateObject("Shell.Application").ShellExecute WScript.FullName _
'    , WScript.ScriptFullName & " /elevate", "", "runas", 1
'  WScript.Quit
'End If

'----
Set filetxt = fso.OpenTextFile(HostsFile, ForAppending, True)
filetxt.WriteLine(vbNewLine & hostsNewLine)
filetxt.WriteLine(vbNewLine & hostsNewLineLocal)
filetxt.Close

'---- Destruction des objets ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set ObjetRegedit = Nothing
 
'---- Quitter le script ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'WScript.Quit

msgbox "Coupure6" 

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	ACTIVATION DE L'UAC                                                                                                                                                                                                   '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
msgbox "Coupure7" 
'---- Definition du contenu de la variable --------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set ObjetRegedit = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
set shl = createobject("wscript.shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
msgbox "Coupure8" 

'---- Execution des droits administrateurs --------------------------------------------------------------------------------------------------------------------------------------------------------------------
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
  WScript.Quit
End If
msgbox "Coupure9"

'---- Récupération 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. Si la valeur est égale à 0 alors le rajout de la ligne dans le fichier host est à effectuer sinon la clé qui est égale à 1 doit être supprimée --
'---- puis créée avec la valeur 0. ---------------------------------------------------------------------------------------------------------------------------------------------------
msgbox "Coupure10"
If TypeName(CleRegistre) = "Empty" Then
	'MsgBox "Clef registre inexistante"
	Else
	'MsgBox "Valeur de CleRegistre " & CleRegistre
	If CleRegistre = "0" then
msgbox "Coupure11"
	'---- Suppression de la clé de registre ------------------------------------------------------------------------------------------------------------------------------------------
	shl.run "cmd /c REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f"

		'---- Création des valeurs et son type "REG_DWORD" ---------------------------------------------------------------------------------------------------------------------------
		shl.run "cmd /c REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f"
msgbox "Coupure12"
      '  MsgBox "Je suis bien passé dans le If de CleRegistre = 0, passage à valeur 1 FAIT"
      ' Else
      '  MsgBox "Je suis bien passé dans le If de CleRegistre = 0, donc pas de modification"
	End If
End if
msgbox "Coupure13"

'---- Destruction des objets ---------------------------------------------------------------------------------------------------------------------------------------------------------
Set ObjetRegedit = Nothing

'WScript.Quit

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	RENOMMAGE DES LECTEURS RESEAUX                                                                                                                                                   '
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'

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

msgbox "Coupure14"

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Autre\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Cours\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Documents\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Films_Series_Dessins-Animes\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Images\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Logiciels\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Musiques\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Photos\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Pieces officielles\_LabelFromReg"
pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Videos\_LabelFromReg"

msgbox "Coupure15"

'---- /!\ PROBLEME SANS On error resume next /!\

On error resume next

bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Autre\_LabelFromReg", "Autre"
		else
				if (bKey <> "Autre") then
						WshShell.RegWrite pkey, "Autre"
				end if
		end if
msgbox "Coupure16"


bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Cours\_LabelFromReg", "Cours"
		else
				if (bKey <> "Cours") then
						WshShell.RegWrite pkey, "Cours"
				end if
		end if
msgbox "Coupure17"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Documents\_LabelFromReg", "Documents"
		else
				if (bKey <> "Documents") then
						WshShell.RegWrite pkey, "Documents"
				end if
		end if
msgbox "Coupure18"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Films_Series_Dessins-Animes\_LabelFromReg", "Films_Series_Dessins-Animes"
'		else
'				if (bKey <> "Films_Series_Dessins-Animes") then
'						WshShell.RegWrite pkey, "Films_Series_Dessins-Animes"
'				end if
'		end if
msgbox "Coupure19"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Images\_LabelFromReg", "Images"
		else
				if (bKey <> "Images") then
						WshShell.RegWrite pkey, "Images"
				end if
		end if
msgbox "Coupure20"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Logiciels\_LabelFromReg", "Logiciels"
		else
				if (bKey <> "Logiciels") then
						WshShell.RegWrite pkey, "Logiciels"
				end if
		end if
msgbox "Coupure21"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Musiques\_LabelFromReg", "Musiques"
		else
				if (bKey <> "Musiques") then
						WshShell.RegWrite pkey, "Musiques"
				end if
		end if
msgbox "Coupure22"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Photos\_LabelFromReg", "Photos"
		else
				if (bKey <> "Photos") then
						WshShell.RegWrite pkey, "Photos"
				end if
		end if
msgbox "Coupure23"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Pieces officielles\_LabelFromReg", "Pieces officielles"
		else
				if (bKey <> "Pieces officielles") then
						WshShell.RegWrite pkey, "Pieces officielles"
				end if
		end if
msgbox "Coupure24"
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Videos\_LabelFromReg", "Videos"
		else
				if (bKey <> "Videos") then
						WshShell.RegWrite pkey, "Videos"
				end if
		end if
msgbox "Coupure25"
'*** Destruction des objets
Set ObjetRegedit = Nothing

'---- /!\ PROBLEME /!\

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	MONTAGE ET CONNEXION DES LECTEURS RESEAUX                                                                                                                                        '
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'

msgbox "Coupure26"
'---- Informations de connexion à la session -----------------------------------------------------------------------------------------------------------------------------------------
varUser = "XX"
varPassword = "XX"

'---- Definition du contenu de la variable -------------------------------------------------------------------------------------------------------------------------------------------
Set WSHNetwork = WScript.CreateObject("WScript.Network")

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

'---- REMONTEES DES LECTEURS RESEAUX -------------------------------------------------------------------------------------------------------------------------------------------------
WSHNetwork.MapNetworkDrive "Q:" , "\\XX-DSM\Autre", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "R:" , "\\XX-DSM\Cours", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "S:" , "\\XX-DSM\Documents", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "T:" , "\\XX-DSM\Films_Series_Dessins-Animes", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "U:" , "\\XX-DSM\Images", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "V:" , "\\XX-DSM\Logiciels", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "W:" , "\\XX-DSM\Musiques", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "X:" , "\\XX-DSM\Photos", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "Y:" , "\\XX-DSM\Pieces officielles", False, varUser, varPassword
WSHNetwork.MapNetworkDrive "Z:" , "\\XX-DSM\Videos", False, varUser, varPassword

msgbox "Coupure28"
'On Error GoTo 0
msgbox "Coupure29"
'*** Destruction des objets
Set ObjetNetwork = Nothing
msgbox "Coupure30"
'WScript.Quit

tu peux aussi publier ton fichier sur internet, et partager ici le lien vers le fichier.

Je n'y avais pas pensé. C'est bon pour cette fois-ci ?

comme je te l'ai dit le 14 nov. 2020 à 16:46, tes lignes

pkey=

ne sont pas situées au bon endroit.
je pense que c'était encore correct le 14 nov. 2020 à 14:16.

j'ai suivi l'exemple trouvé sur le net vu que je ne maîtrise pas trop le script.

Le monsieur met la commande pour sauter les erreurs.

Je dois les mettre où ?

exemples:

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Autre\_LabelFromReg"
WshShell.RegWrite pkey, "Autre"

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Cours\_LabelFromReg"
WshShell.RegWrite pkey, "Cours"

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Documents\_LabelFromReg"
WshShell.RegWrite pkey, "Documents"

'...

ou bien:

On Error Resume Next

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Autre\_LabelFromReg"
bKey = WshShell.RegRead(pkey)
If (Err <> 0) Then
    WshShell.RegWrite pkey, "Autre"
    Err.Clear
Else
    If (bKey <> "Autre") Then
            WshShell.RegWrite pkey, "Autre"
    End If
End If

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Cours\_LabelFromReg"
bKey = WshShell.RegRead(pkey)
If (Err <> 0) Then
    WshShell.RegWrite pkey, "Cours"
    Err.Clear
Else
    If (bKey <> "Cours") Then
            WshShell.RegWrite pkey, "Cours"
    End If
End If

pkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##XX-DSM#Documents\_LabelFromReg"
bKey = WshShell.RegRead(pkey)
If (Err <> 0) Then
    WshShell.RegWrite pkey, "Documents"
    Err.Clear
Else
    If (bKey <> "Documents") Then
            WshShell.RegWrite pkey, "Documents"
    End If
End If

'...
On Error GoTo 0

J'ai opté pour la première méthode. Seule cela fonctionne mais ajouter il s'affiche toujours que le périphérique est déjà utilisé.

A tout hasard, il n'est pas possible de mettre le choix des lettres pour le lettres aléatoire afin d'éviter les conflits avec les clés usb etc... ?

J'ai souhaité avancer à côté le script permettant de créer le script dans Logon avec le reste du grand script. J'ai utilisé comme-ci dessous (la méthode du fichier txt) mais cela pas fonctionné.

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	CREATION DU SCRIPT DANS SON EMPLACEMENT                                                                                                                                                                                                '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'

'---- Déclaration des variables --------------------------------------------------------------------------------------------------------------------------------------------
Dim WSHNetwork, varUser, varPassword, bKey, WshShell, pKey, ObjetRegedit, hostsNewLine

'---- Préparation de l'environnement ---------------------------------------------------------------------------------------------------------------------------------------
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

'---- Exécution des droits administrateurs ---------------------------------------------------------------------------------------------------------------------------------
If Not WScript.Arguments.Named.Exists("elevate") Then
     CreateObject("Shell.Application").ShellExecute WScript.FullName _
       , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
     WScript.Quit
End If

'---- Emplacement du script vbs --------------------------------------------------------------------------------------------------------------------------------------------
FichierVBS = "C:\Windows\System32\GroupPolicy\User\Scripts\Logon\ScriptRéseaux.vbs"
msgbox "Coupure1" 

'---- Destruction des objets ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set ObjetRegedit = Nothing

'---- Création du script vbs -----------------------------------------------------------------------------------------------------------------------------------------------
Set NewFichier = fso.CreateTextFile ("C:\Windows\System32\GroupPolicy\User\Scripts\Logon\ScriptTest.vbs", TRUE)
msgbox "Coupure2" 
'---- Ajout de données -----------------------------------------------------------------------------------------------------------------------------------------------------
'data1 = "Test de ..............."

'---- Ecriture des données de désactivation de l'UAC -----------------------------------------------------------------------------------------------------------------------
'NewFichier.WriteLine(data1)
NewFichier.WriteLine(
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
'	DESACTIVATION DE L'UAC                                                                                                                                                                                                '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
.
.
.
.
)

peux-tu ouvrir une nouvelle discussion pour la création d'un fichier vbs?

Oui je le fais. Vous avez trouvé pour lecteur de remontée des lecteurs ?

Je pense que cela provient bien de mon script car la commande seule de net use fonctionne parfaitement. Il se monte.

je mets des messages box un peu partout pour voir ou se situe les blocages

je pense que les bugs viennent de ca alors

J'ai refais le fichier avec le mien ca fonctionne. Avec les rajouts, uniquement le dernier (Videos) fonctionne.

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 ?

cette discussion devient trop confuse, crée une nouvelle discussion pour les remontées.