Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture, True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les variables .
Malheuresement pour moi je suis incapable même si je déclare la variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème , je l'en remercie .
Bonne soirée :-)
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture, True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les variables .
Malheuresement pour moi je suis incapable même si je déclare la variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème , je l'en remercie .
Bonne soirée :-)
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture, True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les variables .
Malheuresement pour moi je suis incapable même si je déclare la variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème , je l'en remercie .
Bonne soirée :-)
Bonjour,
nicolas21 a écrit :Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Cela devrait mieux fonctionner comme ceci :
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Bonjour,
nicolas21 a écrit :
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Cela devrait mieux fonctionner comme ceci :
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Bonjour,
nicolas21 a écrit :Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Cela devrait mieux fonctionner comme ceci :
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Michel__D a écrit le 04/02/2009 à 20h46 :Bonjour,
nicolas21 a écrit :Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je
nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Cela devrait mieux fonctionner comme ceci :
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
En continuant à chercher , j'ai trouver ce que vous me proposez .
Mais mon souci est comment dire plus profond pour moi , c'est que je ne
comprend pas comment l'intégrer dans mon script que j'ai donner plus haut
.
Car quand je rajoute ce que vous m'avez donner , je n'ai pas de message
d'erreur mais il me dit que le chemin est introuvable , alors que le
chemin est
valide .
Mon code avec ce que vous m'avez dit ,donne cela :
Const Lecture = 1, Ecriture = 2
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("%USERPROFILE%test.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("%USERPROFILE%test.txt", Ecriture, True)
f.Write newtextfile
Merci de votre aide en tosu cas .
Michel__D a écrit le 04/02/2009 à 20h46 :
Bonjour,
nicolas21 a écrit :
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je
nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Cela devrait mieux fonctionner comme ceci :
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
En continuant à chercher , j'ai trouver ce que vous me proposez .
Mais mon souci est comment dire plus profond pour moi , c'est que je ne
comprend pas comment l'intégrer dans mon script que j'ai donner plus haut
.
Car quand je rajoute ce que vous m'avez donner , je n'ai pas de message
d'erreur mais il me dit que le chemin est introuvable , alors que le
chemin est
valide .
Mon code avec ce que vous m'avez dit ,donne cela :
Const Lecture = 1, Ecriture = 2
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("%USERPROFILE%test.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("%USERPROFILE%test.txt", Ecriture, True)
f.Write newtextfile
Merci de votre aide en tosu cas .
Michel__D a écrit le 04/02/2009 à 20h46 :Bonjour,
nicolas21 a écrit :Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent
dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau
dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de
réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je
nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Cela devrait mieux fonctionner comme ceci :
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
En continuant à chercher , j'ai trouver ce que vous me proposez .
Mais mon souci est comment dire plus profond pour moi , c'est que je ne
comprend pas comment l'intégrer dans mon script que j'ai donner plus haut
.
Car quand je rajoute ce que vous m'avez donner , je n'ai pas de message
d'erreur mais il me dit que le chemin est introuvable , alors que le
chemin est
valide .
Mon code avec ce que vous m'avez dit ,donne cela :
Const Lecture = 1, Ecriture = 2
Dim WshShell, sUserProfile
Set WshShell=CreateObject("WScript.Shell")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("%USERPROFILE%test.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile, "connecté=3","connecté=0")
Set f = fso.OpenTextFile("%USERPROFILE%test.txt", Ecriture, True)
f.Write newtextfile
Merci de votre aide en tosu cas .
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt",
Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt",
Ecriture, True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt",
Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt",
Ecriture, True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)
Bonjour,
J'uitlise le sript Vbs suivant ( trouvé sur ce site ) que j'ai
adapté :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:nouveau dossiertest.txt", Ecriture,
True)
f.Write newtextfile
Cela me permet de modifier des valeurs dans un fichier texte .
Le but étant de le déployer via une gpo pour modifier un fichier
ini présent dans le profil de l'utilisateur .
Je souhaiterais que cela me donne cela :
Const Lecture = 1, Ecriture = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt",
Lecture)
readalltextfile = f.ReadAll
newtextfile = Replace(readalltextfile,
"connecté=3","connecté=0")
Set f = fso.OpenTextFile("c:%USERPROFILE%nouveau dossiertest.txt",
Ecriture, True)
f.Write newtextfile
Cela ne marche pas , car j'ai compris qu'il fallait déclarer les
variables .
Malheuresement pour moi je suis incapable même si je déclare la
variable de réutiliser le résultat :
Dim oUserProfile
oUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Je ne vois pas du tout comment m'y prendre , j'ai beau chercher , je nage
totalement .
Si quelqu'un à un peu de temps a consacrer à mon problème
, je l'en remercie .
Bonne soirée :-)