Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Challenge : configuration par VBS ou REG

Challenge : configuration par VBS ou REG

4 réponses
Avatar
~Jean-Marc~ [MVP]
(fu2 : fr.scripting)

Bonsoir à tous,

Dans I.E. 6 > Outils > Options > Confidentialité > Avancé
on peut désactiver la prise en charge automatique des cookies
et toujours autoriser les cookies de session.
(oui, je sais, côté confidentialité, c'est pas top...)

Je cherche à valider ces deux options par VBS de manière totalement
transparente.

Attention, y'a un piège :
J'ai tracé les modifications avec ntregmon, (ntfilemon) et installwatch
et j'ai appliqué les modifications trouvées au registre avec un VBS

seulement, il n'y a aucun résultat (même si I.E. est fermé durant la manip.)
(les modifs du registre sont pourtant OK : vérifié)

les modifs appliquées se font sur les clés/valeurs :

key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\"
' 1A10 : Paramètres de confidentialité

shell.RegWrite key & "1A10", 0 ,"REG_DWORD"

' 1A05 : cookies

shell.RegWrite key & "1A05", 0 ,"REG_DWORD"

' PrivacyAdvanced

key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
shell.RegWrite key & "PrivacyAdvanced", 0 ,"REG_DWORD"

' un peu plus loin....

f.writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]"
f.writeline """{AEBA21FA-782A-4A90-978D-B72164C80120}""=hex:1a,37,61,59,23,52,35,0c,7a,5f,20,\"
f.writeline " 17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18,\"
f.writeline " 36,32"
f.writeline """{A8A88C49-5EB2-4990-A1A2-0876022C854F}""=hex:1a,37,61,59,23,52,35,0c,7a,5f,20,\"
f.writeline " 17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18,\"
f.writeline " 36,32"

(partie de la création d'un reg pour écriture des 2 valeurs BINARY)

pour ceux qui voudraient s'y plonger, les valeurs se trouvent dans la KB 182569


@+

--
~Jean-Marc~ MSAE & MVP Windows XP Fr
M'écrire : http://msmvps.com/docxp/contact.aspx
- http://docxp.mvps.org - http://msmvps.com/docxp/ -
Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Georges MAUREL
Bonjour,
Voici comment doit être votre .reg pour activer les cases à cocher
souhaitées :

REGEDIT4
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
Settings]
"PrivacyAdvanced"=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3]
"{AEBA21FA-782A-4A90-978D-B72164C80120}"=hex:1a,37,61,59,23,52,35,0c,7a,5f,2
0,17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18
,36,32
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3]
"{A8A88C49-5EB2-4990-A1A2-0876022C854F}"=hex:1a,37,61,59,23,52,35,0c,7a,5f,2
0,17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18
,36,32

Cordialement
Georges MAUREL

PS: j'ai gagné quoi au challenge ? ; )



"~Jean-Marc~ [MVP]" a écrit dans le message de
news:
(fu2 : fr.scripting)

Bonsoir à tous,

Dans I.E. 6 > Outils > Options > Confidentialité > Avancé
on peut désactiver la prise en charge automatique des cookies
et toujours autoriser les cookies de session.
(oui, je sais, côté confidentialité, c'est pas top...)

Je cherche à valider ces deux options par VBS de manière totalement
transparente.

Attention, y'a un piège :
J'ai tracé les modifications avec ntregmon, (ntfilemon) et installwatch
et j'ai appliqué les modifications trouvées au registre avec un VBS

seulement, il n'y a aucun résultat (même si I.E. est fermé durant la
manip.)

(les modifs du registre sont pourtant OK : vérifié)

les modifs appliquées se font sur les clés/valeurs :

key "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3"

' 1A10 : Paramètres de confidentialité

shell.RegWrite key & "1A10", 0 ,"REG_DWORD"

' 1A05 : cookies

shell.RegWrite key & "1A05", 0 ,"REG_DWORD"

' PrivacyAdvanced

key "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
Settings"

shell.RegWrite key & "PrivacyAdvanced", 0 ,"REG_DWORD"

' un peu plus loin....

f.writeline
"[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet

SettingsZones3]"
f.writeline
"""{AEBA21FA-782A-4A90-978D-B72164C80120}""=hex:1a,37,61,59,23,52,35,0c,7a,5

f,20,"
f.writeline "
17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18,

"
f.writeline " 36,32"
f.writeline
"""{A8A88C49-5EB2-4990-A1A2-0876022C854F}""=hex:1a,37,61,59,23,52,35,0c,7a,5

f,20,"
f.writeline "
17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18,

"
f.writeline " 36,32"

(partie de la création d'un reg pour écriture des 2 valeurs BINARY)

pour ceux qui voudraient s'y plonger, les valeurs se trouvent dans la KB
182569



@+

--
~Jean-Marc~ MSAE & MVP Windows XP Fr
M'écrire : http://msmvps.com/docxp/contact.aspx
- http://docxp.mvps.org - http://msmvps.com/docxp/ -
Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/



Avatar
~Jean-Marc~
Salutations *Georges MAUREL* !
Dans http://groups.google.fr/groups?threadm=
tu nous disais :
Bonjour,
Voici comment doit être votre .reg pour activer les cases à cocher
souhaitées :

REGEDIT4
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
Settings]
"PrivacyAdvanced"=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3]
"{AEBA21FA-782A-4A90-978D-B72164C80120}"=hex:1a,37,61,59,23,52,35,0c,7a,5f,2
0,17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18
,36,32
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3]
"{A8A88C49-5EB2-4990-A1A2-0876022C854F}"=hex:1a,37,61,59,23,52,35,0c,7a,5f,2
0,17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18
,36,32


Bonjour,

J'ai également avancé de mon côté :

Les trois valeurs de registre étaient appliquées de cette manière :

1) Création d'un temp.reg par writeline
2) Appel de regedit /s temp.reg
3) suppression du temp.reg

Un des problèmes se situait au niveau de la suppression du temp.reg
qui s'effectuait trop rapidement et qui empêchait aléatoirement la
fusion du .reg temporaire. J'ai résolu ce problème en obligeant le script
à patienter jusqu'à la fin du shell.exec...

Mon 2ème problème ne doit être qu'un détail cosmétique :
- sous XP, une fois le registre modifié, dans :
I.E. 6 > Outils > Options > Confidentialité
on voit le changement, mais dans :
I.E. 6 > Outils > Options > Confidentialité > Avancé
les cases ne sont pas cochées

(alors que le même script sous W98, tout est OK)

En tout cas, merci de ton aide !

@+

--
~Jean-Marc~
Contact : http://msmvps.com/docxp/contact.aspx
Site : http://perso.wanadoo.fr/doc.jm/ http://docxp.mvps.org
WebLog : http://msmvps.com/docxp/

Avatar
Georges MAUREL
Bonjour Jean-Marc,
Il est étonnant que cela ne fonctionne pas correctement sous windows xp.
J'ai fait le test du .reg sous windows 2000 pro sp4 et les cases étaient
bien cochées. Peut-être que sous xp il y a d'autres clés de la bases de
registre à modifier en plus de celles déjà utilisées ?

Cordialement
Georges MAUREL

"~Jean-Marc~" a écrit dans le message de
news:
Salutations *Georges MAUREL* !
Dans
http://groups.google.fr/groups?threadm=

tu nous disais :
Bonjour,
Voici comment doit être votre .reg pour activer les cases à cocher
souhaitées :

REGEDIT4
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
Settings]
"PrivacyAdvanced"=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3]

"{AEBA21FA-782A-4A90-978D-B72164C80120}"=hex:1a,37,61,59,23,52,35,0c,7a,5f,2



0,17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18


,36,32
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet
SettingsZones3]

"{A8A88C49-5EB2-4990-A1A2-0876022C854F}"=hex:1a,37,61,59,23,52,35,0c,7a,5f,2



0,17,2f,1e,1a,19,0e,2b,01,73,13,37,13,12,14,1a,15,2a,4e,2c,08,0d,20,1b,28,18


,36,32


Bonjour,

J'ai également avancé de mon côté :

Les trois valeurs de registre étaient appliquées de cette manière :

1) Création d'un temp.reg par writeline
2) Appel de regedit /s temp.reg
3) suppression du temp.reg

Un des problèmes se situait au niveau de la suppression du temp.reg
qui s'effectuait trop rapidement et qui empêchait aléatoirement la
fusion du .reg temporaire. J'ai résolu ce problème en obligeant le script
à patienter jusqu'à la fin du shell.exec...

Mon 2ème problème ne doit être qu'un détail cosmétique :
- sous XP, une fois le registre modifié, dans :
I.E. 6 > Outils > Options > Confidentialité
on voit le changement, mais dans :
I.E. 6 > Outils > Options > Confidentialité > Avancé
les cases ne sont pas cochées

(alors que le même script sous W98, tout est OK)

En tout cas, merci de ton aide !

@+

--
~Jean-Marc~
Contact : http://msmvps.com/docxp/contact.aspx
Site : http://perso.wanadoo.fr/doc.jm/ http://docxp.mvps.org
WebLog : http://msmvps.com/docxp/




Avatar
~Jean-Marc~
Salutations *Georges MAUREL* !
Dans http://groups.google.fr/groups?threadm=%
tu nous disais :
Bonjour Jean-Marc,
Il est étonnant que cela ne fonctionne pas correctement sous windows
xp. J'ai fait le test du .reg sous windows 2000 pro sp4 et les cases
étaient bien cochées. Peut-être que sous xp il y a d'autres clés de
la bases de registre à modifier en plus de celles déjà utilisées ?


J'ai ré-essayé ce matin sur d'autres XP que le mien et ça fonctionne.
J'ai certainement bidouillé trop de choses sur celui-là... ;-)

Merci !

--
~Jean-Marc~
Contact : http://msmvps.com/docxp/contact.aspx
Site : http://perso.wanadoo.fr/doc.jm/ http://docxp.mvps.org
WebLog : http://msmvps.com/docxp/