CMD dans VBS [Résolu]

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2
11 nov. 2020 à 14:34

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 14:58

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

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 15:08

exemple:

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 15:17

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 18:11

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 18:17

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

Modifié le 11 nov. 2020 à 18:57

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 19:17

ok, donc la technique fonctionne bien.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 19:29

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 21:58

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 22:09

dans cmd ca fonctionne parfaitement

mais dans vbs je ne sais pas comment faire

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 22:34

qu'as-tu essayé?

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 22:37

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 22:41

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 22:45

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"

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 22:54

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

11 nov. 2020 à 23:00

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"

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

11 nov. 2020 à 23:03

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 09:39

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

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 11:28

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 11:34

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 12:31

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 12:37

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'"

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 12:46

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 13:13

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 13:41

et maintenant tu remplaces le point d'interrogation par

reg

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 13:43

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 13:48

maintenant replace reg par la commande

reg add

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 13:50

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 15:58

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é.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 16:18

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

Modifié le 12 nov. 2020 à 17:31

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 ........."

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 18:39

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 18:48

à 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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

12 nov. 2020 à 21:34

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?

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

12 nov. 2020 à 21:35

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

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 11:29

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

13 nov. 2020 à 11:43

qui affiche quand quel message?

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

Modifié le 13 nov. 2020 à 11:53

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

Modifié le 13 nov. 2020 à 12:02

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

Modifié le 13 nov. 2020 à 13:11

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

Modifié le 13 nov. 2020 à 14:57

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

13 nov. 2020 à 15:08

cmd /k

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

cmd /c

pour que ces fenêtres se ferment.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 15:22

D'accord merci aussi simple que cela .

Je regroupe toutes les parties.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 15:51

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é.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 17:16

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

13 nov. 2020 à 17:23

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 17:45

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

13 nov. 2020 à 17:50

sais-tu à quoi sert On Error Resume Next?

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 17:54

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

13 nov. 2020 à 18:33

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?

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 18:38

vous parlez de l'assemblage ?

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

13 nov. 2020 à 18:39

il s'agit de

On Error Resume Next

.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 18:40

je l'ai enlevé

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 20:05

Les deux premiers fonctionnent

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

13 nov. 2020 à 22:40

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 ?

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

14 nov. 2020 à 11:33

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

14 nov. 2020 à 11:51

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

14 nov. 2020 à 13:14

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

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

14 nov. 2020 à 13:28

D'accord. Je vais regarder. Merci

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

Modifié le 14 nov. 2020 à 14:29

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

Modifié le 14 nov. 2020 à 14:50

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

14 nov. 2020 à 14:52

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

14 nov. 2020 à 15:20

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

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

14 nov. 2020 à 16:23

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

14 nov. 2020 à 16:46

il ne manque pas des lignes

pkey= '...

?

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

Modifié le 14 nov. 2020 à 18:38

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

Seul cela fonctionne mais pas regroupé

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

14 nov. 2020 à 16:40

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

14 nov. 2020 à 16:48

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

16 nov. 2020 à 22:39

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 ?

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

17 nov. 2020 à 10:36

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 10:43

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

17 nov. 2020 à 10:52

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 11:04

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

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 10:55

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 15:07

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

17 nov. 2020 à 15:30

il faudrait voir ce que tu fais avec

WSHNetwork

avant cette ligne.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 15:34

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

17 nov. 2020 à 16:11

ne devrait-ce pas être:

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 16:15

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

17 nov. 2020 à 18:06

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 18:18

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

17 nov. 2020 à 18:31

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 18:32

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

Modifié le 17 nov. 2020 à 21:44

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

Modifié le 18 nov. 2020 à 11:05

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.

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

18 nov. 2020 à 11:51

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

18 nov. 2020 à 12:47

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

18 nov. 2020 à 12:53

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

18 nov. 2020 à 12:55

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

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

18 nov. 2020 à 12:58

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.

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

18 nov. 2020 à 13:03

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ù ?

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

18 nov. 2020 à 14:53

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

18 nov. 2020 à 15:09

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... ?

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

18 nov. 2020 à 22:01

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                                                                                                                                                                                                '
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
.
.
.
.
)

yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

1 170 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

19 nov. 2020 à 10:23

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

19 nov. 2020 à 10:36

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 19:01

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

17 nov. 2020 à 16:16

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

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > yg_be

Messages postés: 19946
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 7 août 2022

14 nov. 2020 à 12:03

je pense que les bugs viennent de ca alors

BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

2 > BRRG

Messages postés: 1002
Date d'inscription: lundi 31 août 2015
Statut: Membre
Dernière intervention: 25 mars 2022

14 nov. 2020 à 20:25

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

CMD dans VBS

3 réponses

Newsletters