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

SchedLgU.Txt

8 réponses
Avatar
Lavache
Bonjour,
en vbs je ne suis pas capable de lire c:\Windows\SchedLgU.Txt

Set myfso = createObject("Scripting.FileSystemObject")
Set fichelog = myfso.OpenTextFile("C:\WINDOWS\SchedLgU.txt")

pourtant ce fichier semble être un fichier txt bien normal...

Quelqun a une idée???

Sébas
Signaler un problème avec ce contenu

8 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
Do Re Mi chel La Si Do
Bonsoir !

Il est peut-être en cours d'utilisation ?
As-tu essayé de le copier, et de lire la copie ?

@-salutations

Michel Claveau
Avatar
Lavache
"Do Re Mi chel La Si Do" a écrit dans le
message de news:
Bonsoir !

Il est peut-être en cours d'utilisation ?
As-tu essayé de le copier, et de lire la copie ?

@-salutations

Michel Claveau

oui je lai copier.

et si je le fait lire tous les ligne et écrire dans un autre fichier sa
donne

"nuit.job" (nuit.vbs)
????????? ? ?????????? ??????????
"update.job" (update.vbs)
????????? ? ?????????? ??????????
"update2.job" (startweb.vbs)
???????? ? ?????????? ??????????
Résultat : La tâche s'est terminée avec le code de sortie : (0).
????????? ??????????? ?????????????????????

Avatar
Do Re Mi chel La Si Do
Bonsoir !

Perso, je n'ai aucun problème, avec un Batch, pour lire ce fichier.

Exemple de ce que j'obtiens :

"Symantec NetDetect.job" (NDETECT.EXE)
Démarré à 25/12/2005 22:56:00
"Symantec NetDetect.job" (NDETECT.EXE)
Quitté à 25/12/2005 22:56:01
Résultat : La tâche s'est terminée avec le code de sortie : (0).
"Service du Planificateur de tâches"
Quitté à 25/12/2005 22:56:22



Pour info, j'utilise des instructions du genre :
type SchedLgU.Txt |find "Démarré"
ou
type SchedLgU.Txt |find "Résultat"



@-salutations

Michel Claveau
Avatar
Raymond.Schmit
Le Tue, 27 Dec 2005 22:42:30 +0100, "Do Re Mi chel La Si Do"
écrivait:

Bonsoir !

Perso, je n'ai aucun problème, avec un Batch, pour lire ce fichier.

Exemple de ce que j'obtiens :

"Symantec NetDetect.job" (NDETECT.EXE)
Démarré à 25/12/2005 22:56:00



Avec pfe, j'obtiens le texte avec un caractère sur 2 = un pavé

avec winword ....
"Task Scheduler Service"
Started at 11/30/2005 10:37:09 PM
"Task Scheduler Service"
4.71.2195.6972"Task Scheduler Service"
Exited at 12/1/2005 1:22:03 AM

mais c'est avec le décodage "unicode"


--
Ray. (changez le pircarre en scarlet pour m'atteindre par mail)

Avatar
jbongran
Lavache wrote:
"Do Re Mi chel La Si Do" a écrit
dans le message de news:
Bonsoir !

Il est peut-être en cours d'utilisation ?
As-tu essayé de le copier, et de lire la copie ?

@-salutations

Michel Claveau

oui je lai copier.

et si je le fait lire tous les ligne et écrire dans un autre fichier
sa donne

"nuit.job" (nuit.vbs)
????????? ? ?????????? ??????????
"update.job" (update.vbs)
????????? ? ?????????? ??????????
"update2.job" (startweb.vbs)
???????? ? ?????????? ??????????
Résultat : La tâche s'est terminée avec le code de sortie : (0).
????????? ??????????? ?????????????????????


Peut être ça:

Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", ForReading,
False, True)

Qui ouvrira le fichier en lecture, ne le creera pas si il n'existe pas, et
le traitera en unicode, ce qui semble être le souci rencontré d'après le
message de Raymond Schmit


Avatar
Lavache
"jbongran" a écrit dans le message de news:
%23b7Hf%
Lavache wrote:
"Do Re Mi chel La Si Do" a écrit
dans le message de news:
Bonsoir !

Il est peut-être en cours d'utilisation ?
As-tu essayé de le copier, et de lire la copie ?

@-salutations

Michel Claveau

oui je lai copier.

et si je le fait lire tous les ligne et écrire dans un autre fichier
sa donne

"nuit.job" (nuit.vbs)
????????? ? ?????????? ??????????
"update.job" (update.vbs)
????????? ? ?????????? ??????????
"update2.job" (startweb.vbs)
???????? ? ?????????? ??????????
Résultat : La tâche s'est terminée avec le code de sortie : (0).
????????? ??????????? ?????????????????????


Peut être ça:

Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", ForReading,
False, True)

Qui ouvrira le fichier en lecture, ne le creera pas si il n'existe pas, et
le traitera en unicode, ce qui semble être le souci rencontré d'après le
message de Raymond Schmit



Voila mon code.
testé le et dit moi si c:test.txt est lisible pour vous.

merci
Sébas

Option Explicit
Dim myfso, fichelog, lu, txt

Set myfso = CreateObject("Scripting.FileSystemObject")
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt",1, True)
Set txt = myfso.CreateTextFile("c:test.txt")
lu = fichelog.ReadLine
Do While Not fichelog.AtEndOfStream
lu = lu&VbCrLf& fichelog.ReadLine
Loop

txt.Write lu



Avatar
jbongran
Lavache wrote:
"jbongran" a écrit dans le message de news:
%23b7Hf%
Lavache wrote:
"Do Re Mi chel La Si Do" a écrit
dans le message de news:
Bonsoir !

Il est peut-être en cours d'utilisation ?
As-tu essayé de le copier, et de lire la copie ?

@-salutations

Michel Claveau

oui je lai copier.

et si je le fait lire tous les ligne et écrire dans un autre fichier
sa donne

"nuit.job" (nuit.vbs)
????????? ? ?????????? ??????????
"update.job" (update.vbs)
????????? ? ?????????? ??????????
"update2.job" (startweb.vbs)
???????? ? ?????????? ??????????
Résultat : La tâche s'est terminée avec le code de sortie : (0).
????????? ??????????? ?????????????????????


Peut être ça:

Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt",
ForReading, False, True)

Qui ouvrira le fichier en lecture, ne le creera pas si il n'existe
pas, et le traitera en unicode, ce qui semble être le souci
rencontré d'après le message de Raymond Schmit



Voila mon code.
testé le et dit moi si c:test.txt est lisible pour vous.

merci
Sébas

Option Explicit
Dim myfso, fichelog, lu, txt

Set myfso = CreateObject("Scripting.FileSystemObject")
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt",1, True)
Set txt = myfso.CreateTextFile("c:test.txt")
lu = fichelog.ReadLine
Do While Not fichelog.AtEndOfStream
lu = lu&VbCrLf& fichelog.ReadLine
Loop

txt.Write lu


Mais là tu n'ouvre pas le fichier en unicode, tu indiques juste que si le
fichier n'existe pas, tu le créé.
Il aurait fallu écrire
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", 1, True, True)
si vraiment tu veux creer le fichier si il n'existe pas, sinon
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", 1, False, True)
Ps, il faudrait aussi un bout du fichier pour tester.
Ci-dessous, l'aide extraite de la doc de vbscript 5.6
object.OpenTextFile(filename[, iomode[, create[, format]]])
Arguments
object
Requis. Object correspond toujours au nom d'un objet FileSystemObject.
filename
Requis. Expression de chaîne qui identifie le fichier à ouvrir.
iomode
Facultatif. Peut être une des trois constantes ForReading, ForWriting ou
ForAppending.
create
Facultatif. Valeur booléenne indiquant si un nouveau fichier peut être créé
lorsque l'élément spécifié filename n'existe pas. La valeur est True si un
nouveau fichier est créé, et False s'il ne l'est pas. En cas d'omission,
aucun nouveau fichier n'est créé.
format
Facultatif. Une des trois valeurs Tristate servant à indiquer le format du
fichier ouvert. En cas d'omission, le fichier sera ouvert en format ASCII.




Avatar
Lavache
"jbongran" a écrit dans le message de news:

Lavache wrote:
"jbongran" a écrit dans le message de news:
%23b7Hf%
Lavache wrote:
"Do Re Mi chel La Si Do" a écrit
dans le message de news:
Bonsoir !

Il est peut-être en cours d'utilisation ?
As-tu essayé de le copier, et de lire la copie ?

@-salutations

Michel Claveau

oui je lai copier.

et si je le fait lire tous les ligne et écrire dans un autre fichier
sa donne

"nuit.job" (nuit.vbs)
????????? ? ?????????? ??????????
"update.job" (update.vbs)
????????? ? ?????????? ??????????
"update2.job" (startweb.vbs)
???????? ? ?????????? ??????????
Résultat : La tâche s'est terminée avec le code de sortie : (0).
????????? ??????????? ?????????????????????


Peut être ça:

Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt",
ForReading, False, True)

Qui ouvrira le fichier en lecture, ne le creera pas si il n'existe
pas, et le traitera en unicode, ce qui semble être le souci
rencontré d'après le message de Raymond Schmit



Voila mon code.
testé le et dit moi si c:test.txt est lisible pour vous.

merci
Sébas

Option Explicit
Dim myfso, fichelog, lu, txt

Set myfso = CreateObject("Scripting.FileSystemObject")
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt",1, True)
Set txt = myfso.CreateTextFile("c:test.txt")
lu = fichelog.ReadLine
Do While Not fichelog.AtEndOfStream
lu = lu&VbCrLf& fichelog.ReadLine
Loop

txt.Write lu


Mais là tu n'ouvre pas le fichier en unicode, tu indiques juste que si le
fichier n'existe pas, tu le créé.
Il aurait fallu écrire
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", 1, True,
True)
si vraiment tu veux creer le fichier si il n'existe pas, sinon
Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", 1, False,
True)
Ps, il faudrait aussi un bout du fichier pour tester.
Ci-dessous, l'aide extraite de la doc de vbscript 5.6
object.OpenTextFile(filename[, iomode[, create[, format]]])
Arguments
object
Requis. Object correspond toujours au nom d'un objet FileSystemObject.
filename
Requis. Expression de chaîne qui identifie le fichier à ouvrir.
iomode
Facultatif. Peut être une des trois constantes ForReading, ForWriting ou
ForAppending.
create
Facultatif. Valeur booléenne indiquant si un nouveau fichier peut être
créé lorsque l'élément spécifié filename n'existe pas. La valeur est True
si un nouveau fichier est créé, et False s'il ne l'est pas. En cas
d'omission, aucun nouveau fichier n'est créé.
format
Facultatif. Une des trois valeurs Tristate servant à indiquer le format du
fichier ouvert. En cas d'omission, le fichier sera ouvert en format ASCII.
avec

Set fichelog = myfso.OpenTextFile("C:WINDOWSSchedLgU.txt", 1, True, True)
sa marche #1.
MERCI BEAUCOUP

Sébas